Edit Comment

<% If Not GAGB_Sess_Array(10) = Session.SessionID Then GAGB_Close_Connection: Response.Redirect "default.asp" 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 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)) If lcase(Request.ServerVariables("REQUEST_METHOD")) = "post" then GAGB_comment = GAGB_sq(Request.form("fComment")) Select Case Request.Form("action") Case "save" If request.form("P") then GAGB_priv = 1: Else: GAGB_priv = 0 GAGB_comment = Replace(GAGB_comment, vbcrLf, "
") GAGB_Name = GAGB_sq(Trim(Request.form("fName"))) GAGB_Email = GAGB_sq(Trim(Request.form("fEmail"))) GAGB_URL = GAGB_sq(Trim(Request.form("fURL"))) GAGB_Custom1 = GAGB_sq(Trim(Request.form("fCustom1"))) GAGB_Custom2 = GAGB_sq(Trim(Request.form("fCustom2"))) GAGB_Custom3 = GAGB_sq(Trim(Request.form("fCustom3"))) GAGB_Custom4 = GAGB_sq(Trim(Request.form("fCustom4"))) GAGB_Topic = GAGB_sq(Trim(Request.form("fTopic"))) GAGB_objConn.Execute("UPDATE " & GAGB_strtbl & "Record SET " & _ "comment = '" & GAGB_comment & "'," & _ "priv = " & GAGB_priv & "," & _ "nick = '" & GAGB_Name & "'," & _ "email = '" & GAGB_Email & "'," & _ "URL = '" & GAGB_URL & "'," & _ "custom1 = '" & GAGB_Custom1 & "'," & _ "custom2 = '" & GAGB_Custom2 & "'," & _ "custom3 = '" & GAGB_Custom3 & "'," & _ "custom4 = '" & GAGB_Custom4 & "'," & _ "topic = '" & GAGB_Topic & "'" & _ " WHERE ID = " & GAGB_ID & ";") Case "clear" GAGB_comment = " " & GAGB_sq(GAGB_Lingial(3, 60)) & " :nuke:" GAGB_objConn.Execute("UPDATE " & GAGB_strtbl & "Record SET comment = '" & GAGB_comment & "' WHERE ID = " & GAGB_ID & ";") End Select Response.Redirect "admin_edit.asp?ID=" & GAGB_ID End If 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_Private = CBool(GAGB_rs(10)) GAGB_Comment = GAGB_rs(5) GAGB_Comment = Replace(GAGB_Comment, "
", vbcrlf) 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 Else: Call GAGB_noAccess("arg") End If %>

Clear

Reset

Preview

Save


Name:
<%= GAGB_fieldName1 %>:
<%= GAGB_fieldName2 %>:
<%= GAGB_fieldName3 %>:
<%= GAGB_fieldName4 %>:

<% If GAGB_AllowTopic then %> <% End If %> <% If GAGB_chkOpt1 = "checked" then Response.Write "" & vbcrLf Response.Write "" & vbcrLf End If If GAGB_chkOpt2 = "checked" then Response.Write "" & vbcrLf Response.Write "" & vbcrLf End If If GAGB_chkOpt3 = "checked" then Response.Write "" & vbcrLf Response.Write "" & vbcrLf End If If GAGB_chkOpt4 = "checked" then Response.Write "" & vbcrLf Response.Write "" & vbcrLf End If %>

Topic:

Name:

>- Hide Email

<%= GAGB_strContentSM %>

Email:

URL:

" & GAGB_fieldName1 & ":

" & GAGB_fieldName2 & ":

" & GAGB_fieldName3 & ":

" & GAGB_fieldName4 & ":

" %> <% Response.Write "

<% If GAGB_AllowFormat Then %>

Comment Style:

<% End If %>

Comment:

<%= GAGB_pdate %>

<% 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 %>