<html>
<%
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 ozelmsj=CreateObject("Adodb.Recordset")

 
for i=1 to request("kayit")
if Request("Id"&i) <> "" then
ozelmsj.open "Select * from ozelmsj where id="&Request("Id"&i)&"",conn,3,3
ozelmsj.delete
ozelmsj.close
end if 
next

Response.Redirect "gelen.asp"
%>

<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>ÖZEL MESAJ SİLME</title>
</head>

<body>

</body>

</html>