<%
M_UAdd = fun_chkRight("Page","E")
if M_UAdd = 0 then %>
<% response.end
end if%>
<%
Function fixquotes(theString)
fixquotes = Replace(theString,"'","''")
End Function
EMsg = ""
ttlLinks = fixquotes(Trim(request.form("ttlpg")))
if ttlLinks = "" Then EMsg = EMsg & " * * No pages found.
Please go back and try again"
if Trim(EMsg) = "" Then
logdate = date() & " " & time()
set rs = Server.CreateObject("ADODB.Recordset")
con.BeginTrans
display = fixquotes(Trim(request.form(("display"))))
for l=0 To ttlLinks
varid = ""
varValue = ""
varid = fixquotes(Trim(request.form(("varid")&l)))
varValue = fixquotes(Trim(request.form(("varValue")&l)))
'if varid <> "" and varValue <> "" Then
if varid <> "" Then
varValue = replace(varValue, vbcrlf, " ")
strSQL = "update webpage_variables set varValue = '" & varValue & "', display = '"& display &"', updated = #" & logdate & "# where varid = " & varid
'response.write strSQL
' response.end
con.Execute(strSQL)
activity = "Edited page variable - 4dcc"
'response.write strSQL
'response.end
ActivityLog Session("loginId"), Session("userId"), "4dcc", "E", "webpage_variables", "varid", varid, activity, logdate, logdate
end if
next
con.CommitTrans
end if
set rs = nothing
con.Close
set con = nothing
'Response.end
if Trim(EMsg) = "" Then
Response.Redirect "../index.asp"
else
%>
Change 4 Day Condense Course Dates
Your Form was not submitted. Please check & provide following details