<% Option Explicit %>
<%
'*****************************************************************************
' VP-ASP 6.50 Nov 12, 2005
' Configuration help. Reads the message value from the configuration table
' and displays it
'*************************************************************************
dim dbc, fieldname, rs, message
shopcheckadmin ""
pageheader
shopopendatabase dbc
fieldname=request("fieldname")
fieldname=replace(fieldname,"'","")
sql="select * from configuration where fieldname='" & fieldname & "'"
set rs=dbc.execute(sql)
if not rs.eof then
message=rs("message")
Formatfield fieldname,rs, message
else
shopwriteerror "fieldname " & fieldname & "not found"
end if
closerecordset rs
shopclosedatabase dbc
Pagetrailer
sub Formatfield (fieldname,rs, message)
shopwriteError fieldname
response.write " "
shopwriteheader message
end sub
Sub pageheader
%>
Configuration Help