faceqent - aboneplus

aboneplus

<%Fox_feed()%> <%Fox_hesaplama()%>

<%Fox_header()%>

" alt="" />
"><%=rs("yazi" )%>

<%Fox_menu()%>

<%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 & " " %>

<%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 %>

<% end sub sub cari_abonelik Response.Write " " & vbcrlf & "İdeal Kurye Pullu Abonelik Sistemi" & vbcrlf & " " %>

<%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 %>

<% end sub sub abonemiz_olun Response.Write " " & vbcrlf & "İdeal Kurye Pullu Abonelik Sistemi" & vbcrlf & " " %>

<%Fox_sol()%>

<% end sub sub abonesend Response.Write " " & vbcrlf & "İdeal Kurye Pullu Abonelik Sistemi" & vbcrlf & " " %>

<%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 "
" response.write "

İlğiniz İçin Teşekkür Ederiz....

" response.Write "
" rs.close set rs=nothing %>

<% end sub sub abone_kampanyalari Response.Write " " & vbcrlf & "İdeal Kurye Pullu Abonelik Sistemi" & vbcrlf & " " %>

<%Fox_sol()%>

<% end sub %>

<%Fox_footer()%>