<% num = request("num") id = request("HTTP_UID") If id = "" Then %> <% Else set fso = Server.CreateObject("Scripting.FileSystemObject") set f = fso.OpenTextFile("C:\cons5.dat") strconnect = f.Readline set Dbcon=Server.CreateObject("ADODB.Connection") Dbcon.Open strconnect sql = "SELECT count(*) AS cnt FROM gisa_reply WHERE (id='" & id & "' AND num=" & num & ")" set rs=Dbcon.Execute(sql) postcount = rs("cnt") If postcount <> 0 Then Set Grs = Server.CreateObject("ADODB.Recordset") SQL = "Delete from gisa_reply where num = " & num Set Grs = Dbcon.Execute(SQL) Dbcon.Close Set Grs = Nothing Set Dbcon = Nothing response.redirect "comment.htm" Else %> <% End If End If %>