<% num = request("num") id = request("ktf") 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 '똑똑이벤트 아이디 시작 If (id = "lackiss" AND session("szo_filename") = "/event/master/review/31_lyr.htm") Then flag = 1 ElseIf (id = "oopsanies" AND session("szo_filename") = "/event/master/review/32_ksy.htm") Then flag = 1 ElseIf (id = "kmy4200" AND session("szo_filename") = "/event/master/review/33_lge.htm") Then flag = 1 End If '똑똑이벤트 아이디 끝 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 OR flag = 1) 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 "reply.htm?filename=" & session("szo_filename") & "&title=" & session("szo_title") Else %> &title=<%=session("szo_title")%>"> <% End If End If %>