<% Set objCn = Server.CreateObject ("ADODB.Connection") Set objRs = Server.CreateObject ("ADODB.Recordset") objCn.ConnectionString = "Data Source="& Server.MapPath("./cgi-bin/ercsr02.mdb") objCn.Provider = "Microsoft.JET.OLEDB.4.0" objCn.Open %> <%%> <% pagename="genel" %> <% if request.form()<>"" then if request.form("sender_email")<>"" and request.form("sender_name")<>"" and request.form("message")<>"" then objRs.open "MAILTOUS",objCn,2,2 objRs.addnew objRs("SENDER_NAME")=trim(request.form("sender_name")) objRs("SENDER_EMAIL")=trim(request.form("sender_email")) objRs("MESSAGE")=trim(request.form("message")) objRs("REG_DATE")=datevalue(now()) obJRs.update objRs.close on error resume next Set Mail = CreateObject("CDONTS.Newmail") if err.number = 0 then '***********SEND MAIL HERE********** Mail.BodyFormat = 0 Mail.MailFormat = 0 Mail.From = "info@satanreklam.com" Mail.To = "ercanamesaj@hotmail.com" Mail.Subject = "SATANREKLAM - Ziyaretçi Görüşü" Mail.Body = "gönderen: " & trim(request.form("sender_email")) & "görüşü: " & trim(request.form("message")) Mail.Send Set Mail = Nothing end if '********END SEND MAIL************** message="E-POSTA'NIZ İLETİLMİŞTİR.

Görüşlerinizi bizimle paylaştığınız için teşekkür ederiz." else message="Lütfen bilgilerinizi eksiksiz giriniz" end if end if %> Satan Reklam :: Bize Yazın
<% sql="SELECT * FROM BANNERS WHERE PAGENAME='"& pagename & "'" objRs.open sql,objCn,1,3 if not objRs.EOF then %> " >" width="468" height="60" border="0"> <% end if objRs.Close() %>
anasayfa
bize yazin
linkler
uye olun
tv reklamları
basın reklamları
internet reklamları
anti reklamlar
güncel reklamlar
göze batanlar
gülen elma
reklam ajansları
iş imkanları
mağaza
reklam arama

<% if pagename="gulenelma" then %>
<% sql=" SELECT * FROM TV WHERE ID IN (SELECT MAX(ID) FROM TV)" objRS.open sql,objCN,1,3 %> <% objRS.close %>
<% else %>



<%end if%> <%%> <%%> <%%> <%%>

<%=message%>

         
         
  Adınız Soyadınız :
 
  E-mailiniz :
 
  Görüşleriniz :
 
         
 
 


 
 
[Tv Reklamları] [Basın Reklamları] [İnternet Reklamları] [Anti Reklamlar] [Güncel Reklamlar] [Göze Batanlar] [Gülen Elma]
[Reklam Ajansları] [İş İmkanları] [Bize Yazın] [Linkler] [Üye Ol] [Reklam Verin]

Satan Reklam © 2003