<%
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' mydesign | ziyaretçi defteri
' W: http://www.mydesign.gen.tr
' @: mydesign@mydesign.gen.tr
'
' Mesaj Yazma Formu Kodları
' Son Düzenleme: 21 Şubat 2007
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'// Sayfanın önbelleğe alınması engelleniyor
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 2
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "No-Store"
Q = YaziTemizle(Trim(Request.QueryString("Q")))
'// Alıntı yapılıyorsa, alıntılanan mesaj veritabanından alınıyor
If Q = "A" Then
strMsgID = YaziTemizle(Request.Querystring("M"))
If strMsgID <> "" AND IsNumeric(strMsgID) = True then
kd.open "SELECT id, mesaj, ad FROM mesajlar WHERE id = "& strMsgID &"", baglanti, 1, 3
If Not kd.Eof Then
strMesaj = "[QUOTE="& kd("ad") &"]"& kd("mesaj") &"[/QUOTE]" & vbCrLf
strMesaj = strMesaj & YaziTemizle(Request.Form("mesaj"))
End If
kd.Close
End If
Else
strMesaj = YaziTemizle(Request.Form("mesaj"))
End If
%>
<%=strSiteBasligi%> <%=Kelime20%>
<%
if Session("bgcolor")<>"" then bgcolor=Session("bgcolor")
if bgcolor<>"" then
response.write ""
Session("bgcolor")=bgcolor
else
response.write ""
end if
%>
<%
Session("guvenlik_kodu") = ""
For lngLoopCounter = 1 to 6
Randomize Timer
Session("guvenlik_kodu") = Session("guvenlik_kodu") & CStr(CInt(Rnd * 9))
Next
%>