<%
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"))))
display="Y"
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
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 - fee"
' response.write strSQL
' response.end
ActivityLog Session("loginId"), Session("userId"), "fee", "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 Fees
Your Form was not submitted. Please check & provide following details