<%
Dim forumdb,forumdsn
forumdb = Server.MapPath("../../db/forum.mdb")
forumdsn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & forumdb
Set conn=CreateObject("Adodb.Connection")
conn.open (forumdsn)
Set msj=CreateObject("Adodb.Recordset")
Set konu=CreateObject("Adodb.Recordset")
msj.open "Select * from mesajlar where id="&request("m_id")&"",conn,3,3
konu.open "Select cevap,tarih from konular where id="&request("ko_id")&"",conn,3,3
if msj("zaman")<> konu("tarih") then
konu("cevap")=konu("cevap")-1
konu.update
konu.close
end if
msj.delete
response.redirect "mesajlar.asp?Id="&request("ko_id")&"&b_id="&request("bo_id")&""
%>

<html>

<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
<title>Mesaj Sil</title>
</head>

<body>

 </body>

</html>