%
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()
%>
<% if pagename="gulenelma" then %>
<%
sql=" SELECT * FROM TV WHERE ID IN (SELECT MAX(ID) FROM TV)"
objRS.open sql,objCN,1,3
%>