<% num = request("num") id = Session("szo_id") month_num = request("month_num") 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 carparang_reply WHERE (id='" & id & "' AND num=" & num & ")" set rs=Dbcon.Execute(sql) postcount = rs("cnt") If (postcount <> 0 OR flag = 1 OR id="olzllovely") Then Set Grs = Server.CreateObject("ADODB.Recordset") SQL = "Delete from carparang_reply where num = " & num Set Grs = Dbcon.Execute(SQL) Dbcon.Close Set Grs = Nothing Set Dbcon = Nothing %> "> <% Else %> "> <% End If End If %>