Reply to Comment

<% isc1 = 0: isc2 = 0: isc3 = 0: isc4 = 0: istp = 0: isfm = 0: isia = 0 If GAGB_chkAttach = "checked" Then isia = 1 If GAGB_AllowFormat Then isfm = 1 If GAGB_AllowTopic Then istp = 1 If GAGB_chkOpt1 = "checked" Then isc1 = 1 If GAGB_chkOpt2 = "checked" Then isc2 = 1 If GAGB_chkOpt3 = "checked" Then isc3 = 1 If GAGB_chkOpt4 = "checked" Then isc4 = 1 If Not GAGB_Sess_Array(10) = Session.SessionID Then GAGB_Close_Connection: Response.Redirect "default.asp" GAGB_strContentSM = "" & vbcrlf %> <% Dim GAGB_action, GAGB_saved, GAGB_RComment If Request.Querystring.Count = 1 then If not isNumeric(Request.Querystring.Item(1)) Then Call GAGB_noAccess("arg") GAGB_ID = CLng(Request.Querystring.Item(1)) GAGB_strSQL = "SELECT " & GAGB_strtbl & "Record.* FROM " & GAGB_strtbl & "Record WHERE ID = " & GAGB_ID & ";" Set GAGB_rs = GAGB_objConn.Execute(GAGB_strSQL) If Not GAGB_rs.EOF Then GAGB_ID = GAGB_rs(0) GAGB_pdate = GAGB_rs(1) GAGB_Name = GAGB_rs(2) GAGB_Email = GAGB_rs(3) GAGB_Url = GAGB_rs(4) GAGB_RComment = GAGB_rs(5) GAGB_Comment = GAGB_InsertSmiley(GAGB_RComment) GAGB_Comment = GAGB_EncodeURL(GAGB_Comment) GAGB_Custom1 = GAGB_convertNull(GAGB_rs(7)) GAGB_Custom2 = GAGB_convertNull(GAGB_rs(8)) GAGB_Custom3 = GAGB_convertNull(GAGB_rs(13)) GAGB_Custom4 = GAGB_convertNull(GAGB_rs(14)) GAGB_Topic = GAGB_convertNull(GAGB_rs(12)) Else: Call GAGB_noAccess("noID") End If GAGB_rs.close If request.form("flag") = 1 then GAGB_Reply = Request.Form("fComment") GAGB_Reply = Replace(GAGB_Reply, "
", vbCrlf) GAGB_Reply = Replace(GAGB_Reply, vbCrlf, "
") GAGB_RComment = GAGB_RComment & " :hr:

" & GAGB_AdminName & " " & GAGB_Lingial(3, 61) & " " & Now & ":

" & GAGB_Reply & "

" GAGB_objConn.Execute("UPDATE " & GAGB_strtbl & "Record SET comment = '" & GAGB_sq(GAGB_RComment) & "' WHERE ID = " & GAGB_ID & ";") GAGB_Close_Connection Response.Redirect "admin_reply.asp?ID=" & GAGB_ID End If Else: Call GAGB_noAccess("arg") End If %>

<%= GAGB_strContentSM %>

Edit

Reset

Preview

<% If GAGB_AllowTopic And Len(GAGB_Topic) > 0 Then Response.Write "" & vbcrLf & vbcrlf End If %> " If GAGB_chkOpt1 = "checked" and GAGB_Custom1 <> "" then Response.Write "" Response.Write "" End If If GAGB_chkOpt2 = "checked" and GAGB_Custom2 <> "" then Response.Write "" Response.Write "" End If If GAGB_chkOpt3 = "checked" and GAGB_Custom3 <> "" then Response.Write "" Response.Write "" End If If GAGB_chkOpt4 = "checked" and GAGB_Custom4 <> "" then Response.Write "" Response.Write "" End If %>

" Response.Write GAGB_Topic & "
Name:	<%= GAGB_Name %> <% If Len(GAGB_Email) > 0 And Not IsNull(GAGB_Email) Then Response.Write "" If Len(GAGB_URL) > 0 And Not IsNull(GAGB_URL) Then Response.Write "" Response.Write "
" & GAGB_fieldName1 & ":	" & GAGB_Custom1 & "
" & GAGB_fieldName2 & ":	" & GAGB_Custom2 & "
" & GAGB_fieldName3 & ":	" & GAGB_Custom3 & "
" & GAGB_fieldName4 & ":	" & GAGB_Custom4 & "

<% If GAGB_AllowFormat Then %>

Comment Style:

<% End If %>

Comment:

<%= GAGB_pdate %>

<%= GAGB_Comment %>

<% Sub GAGB_noAccess(GAGB_iEvent) Select Case GAGB_iEvent Case "arg" GAGB_msg = "Record ID was not provided!" Case "noID" GAGB_msg = "Record cannot be found in a database!" End Select Response.Write "

" & GAGB_msg & "

" GAGB_Close_Connection Response.End End Sub %>