<%'Çilem.Net © 2007'%> <%=siteadi%> - Tavsiye
<% bolum=guvenlik(request("bolum")) If Not Isnumeric(bolum) Or Len(bolum)=0 Then msg "" End If Set rs= cilem.execute("SELECT * FROM haber WHERE haberonay='Evet' and bolum=" & guvenlik(request("bolum"))) If rs.eof Then msg"" End If %> <%bolum=guvenlik(request("bolum")) set rs=server.createobject("adodb.recordset") rs.open "haber where haberonay='Evet' and bolum=" & guvenlik(request("bolum")),cilem,1,3 %> <%islem=Request.QueryString("islem") if islem="tavsiyegonder" then call tavsiyegonder end if%>

            TAVSİYE
<%if rs("resimsiz")="" or rs("resimsiz")="Kapat" then %><% else %> <%=rs("resimurl")%><% else %>resim/<%=rs("resim")%><% end if%>" alt="<%=rs("baslik")%>" style="border:1px solid #DDDDDD; width: 80px; margin-left:0; margin-right:5px; margin-top:3px; margin-bottom:0" /><% end if%>

 Tavsiyeniz ;
&uyeid=<%=rs("uyeid")%>&islem=tavsiyegonder" method="POST" onSubmit="return check_frm()" name="kontrol"> "> "> "> "> "> <% else %>
<%if rs("resimsec")="Url" then %><% else %><% end if%>

<% end if%>

<%=rs("baslik")%>

Başlıklı haberin içeriğini merak ettiyseniz
Devamını okumak için Tıklayınız


<%=siteadi%>">

 
<%=rs("baslik")%>
 <%=rs("kisahaber")%>
<%response.write "
"&request("bilgi")&""%>

E-Mail Adresiniz :

Tavsiye Edeceğiniz E-Mail :

                                                      

  Pencereyi Kapat
<% rs.close set rs = nothing %>
<% sub tavsiyegonder gidecek_email=request("gidecek_email") gonderen_email=request("gonderen_email") bolum=request("bolum") uyeid=request("uyeid") haber=request("haber") baslik=request("baslik") konu=request("konu") siteadi=request("siteadi") internet_adresi=request("internet_adresi") resim=request("resim") klasor=request("klasor") email=request("email") mailsifre=request("mailsifre") mailserver=request("mailserver") resimsec=request("resimsec") mesaj=request("mesaj") bolum= request.querystring("bolum") set rs=server.createobject("adodb.recordset") rs.open "haber where bolum =" & guvenlik(request("bolum")),cilem,1,3 Mesaj=request("mesaj") %> <% Response.Buffer = true %> <%On Error Resume Next Select Case Request.Form("mailsec") Case "JMail" Set smtp = Server.CreateObject("JMail.Message") For Each veri In Request.Form msg = msg & veri & ": " & Request.Form(veri) & "
" Next smtp.ContentType = "text/html" smtp.AddRecipient request("gidecek_email") smtp.from = request("gonderen_email") smtp.fromname = request("gonderen_email") smtp.MailServerUserName = request("email") smtp.MailServerPassWord = request("mailsifre") smtp.Subject = request("konu") smtp.body = Mesaj smtp.Send Request("mailserver") set smtp = Nothing%> <%if err then%> <%response.Write err.Description & "
" %><% else%> <%end if%> <%Case "CDONTS" %> <% Set Mail = Server.CreateObject("CDONTS.NewMail" ) Mail.From =request("gonderen_email") mail.To =request("gidecek_email") Mail.Subject =request("konu") mail.bodyformat=0 mail.mailformat=0 Mail.Body =Mesaj Mail.Send Set Mail=Nothing %><%if err then%> <%response.Write err.Description & "
" %><% else%> <%end if%> <%Case "ASPEmail" %> <% Set WSweb = Server.CreateObject("Persits.MailSender") WSweb.Host = request("mailserver") WSweb.From = request("gonderen_email") WSweb.AddAddress request("gidecek_email") WSweb.Subject = request("konu") WSweb.Body = Mesaj WSweb.IsHTML = True WSweb.Send set WSweb = Nothing set HTML = Nothing %><%if err then%> <%response.Write err.Description & "
"%> <% else%> <%end if%> <%Case "CDOSYS" %> <% set imsg = createobject("cdo.message") set iconf = createobject("cdo.configuration") Set Flds = iConf.Fields With Flds .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = request("mailserver") .Update End With With iMsg Set .Configuration = iConf .To = request("gidecek_email") .From = request("gonderen_email") .Subject = request("konu") .HTMLBody = Mesaj .fields.update .Send End With set imsg = nothing set iconf = nothing set HTML = nothing %> <%if err then%> <%response.Write err.Description & "
" %><% else%> <%end if%> <% End Select%><%end sub%>