aboneplus
<%Fox_feed()%> <%Fox_hesaplama()%> <%Fox_header()%>
<%Fox_menu()%>
<%Fox_footer()%>
<%Fox_ortaikonlar()%> <% islem = request.querystring("islem") if islem = "pullu_abonelik" then call pullu_abonelik elseif islem = "cari_abonelik" then call cari_abonelik elseif islem = "abonemiz_olun" then call abonemiz_olun elseif islem = "abone_kampanyalari" then call abone_kampanyalari elseif islem = "" then Response.Redirect ("default.asp") end if sub pullu_abonelik Response.Write "
" & vbcrlf & "İdeal Kurye Pullu Abonelik Sistemi" & vbcrlf & "
" %>
<% set rs = bag.execute("select * from kurumsal where bolum = 'pulluabone'") IF rs.EOF THEN ELSE response.Write("
<% end sub sub cari_abonelik Response.Write "
" & vbcrlf & "İdeal Kurye Pullu Abonelik Sistemi" & vbcrlf & "
" %>
<% set rs = bag.execute("select * from kurumsal where bolum = 'cariabone'") IF rs.EOF THEN ELSE response.Write("
<% end sub sub abonemiz_olun Response.Write "
" & vbcrlf & "İdeal Kurye Pullu Abonelik Sistemi" & vbcrlf & "
" %>
<% end sub sub abonesend Response.Write "
" & vbcrlf & "İdeal Kurye Pullu Abonelik Sistemi" & vbcrlf & "
" %>
<% adsoyad=Request("adsoyad") Response.Cookies("adsoyad") = adsoyad abone_tip=Request.Form("abone_tip" ) adsoyad=trim(Request.form("adsoyad" ) ) firmaadi=Request.Form("firmaadi" ) tel=Request.Form("tel" ) email=Request.Form("email" ) adres=Request.Form("adres" ) MailBODYS = "Merhaba" id = request.querystring("id") Set Rs=Server.CreateObject("Adodb.Recordset") Sorgu = "select * from epostaayarlari order by id desc" Rs.Open Sorgu, Bag, 1, 3 Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = rs("smtp") 'Mail Göndermek için SMTP adresi Mail.IsHTML = True Mail.Charset = "iso-8859-9" Mail.Username = rs("mail") 'sunucuda kayıtlı olmalı mail Mail.Password = rs("sifre") 'sunucuda kayıtlı olmalı mail Mail.From = rs("mail") Mail.FromName = REQUEST("email") Mail.AddAddress rs("mail") Mail.Subject = "Abone Başvuru Formu" Mail.Body = "Abone Başvuru Formu
Abone Tipi :" & abone_tip & "
Yetkili Adı Soyadı :" & adsoyad & "
Firma Adı :" & firmaadi & "
Firma Telefon :" & tel & "
Firma E-Mail : "& email & "
Adres : "& mesaj & "
" On Error Resume Next Mail.Send response.Write "
" response.Write "
" response.write "
" response.Write "
" response.Write "
" response.write "
" rs.close set rs=nothing %>
<% end sub sub abone_kampanyalari Response.Write "
" & vbcrlf & "İdeal Kurye Pullu Abonelik Sistemi" & vbcrlf & "
" %>
<% end sub %>
<%Fox_sol()%>

<% set rs = bag.execute("select * from kurumsal where bolum = 'pulluabone'") IF rs.EOF THEN ELSE response.Write("
") Response.Write rs("icerik") response.Write("
") rs.close set rs=nothing END IF %><%Fox_sol()%>

<% set rs = bag.execute("select * from kurumsal where bolum = 'cariabone'") IF rs.EOF THEN ELSE response.Write("
") Response.Write rs("icerik") response.Write("
") rs.close set rs=nothing END IF %><%Fox_sol()%>

<%Fox_sol()%>

<% adsoyad=Request("adsoyad") Response.Cookies("adsoyad") = adsoyad abone_tip=Request.Form("abone_tip" ) adsoyad=trim(Request.form("adsoyad" ) ) firmaadi=Request.Form("firmaadi" ) tel=Request.Form("tel" ) email=Request.Form("email" ) adres=Request.Form("adres" ) MailBODYS = "Merhaba" id = request.querystring("id") Set Rs=Server.CreateObject("Adodb.Recordset") Sorgu = "select * from epostaayarlari order by id desc" Rs.Open Sorgu, Bag, 1, 3 Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = rs("smtp") 'Mail Göndermek için SMTP adresi Mail.IsHTML = True Mail.Charset = "iso-8859-9" Mail.Username = rs("mail") 'sunucuda kayıtlı olmalı mail Mail.Password = rs("sifre") 'sunucuda kayıtlı olmalı mail Mail.From = rs("mail") Mail.FromName = REQUEST("email") Mail.AddAddress rs("mail") Mail.Subject = "Abone Başvuru Formu" Mail.Body = "Abone Başvuru Formu
Abone Tipi :" & abone_tip & "
Yetkili Adı Soyadı :" & adsoyad & "
Firma Adı :" & firmaadi & "
Firma Telefon :" & tel & "
Firma E-Mail : "& email & "
Adres : "& mesaj & "
" On Error Resume Next Mail.Send response.Write "
" response.Write "
Sayın "& adsoyad & "
" response.Write "" response.write "
Abone Başvuru Formu Tarafımıza Ulaştı. İlgili birime ulaştırılacak ve en kısa sürede yanıtlanacaktır
" response.Write "" response.Write "
" response.write "
İlğiniz İçin Teşekkür Ederiz....
" response.Write "" rs.close set rs=nothing %>
<%Fox_sol()%>
