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