<%
' Property of and written by Adam Ford
option explicit
%>
<%
on error resume next
%>
Account Maintenance Form
<%
dim boledit
' define the default security level
const level = 3
if isempty(request.querystring("ctid")) then
boledit = false
else
%>
<%
dim strName
dim strEmail
dim strPhone
dim strUserName
dim strPassword
bolEdit = true
intCTID = objRS("CTID")
strName = objRS("Name")
strEmail = objRS("Email")
strPhone = objRS("Phone")
strUserName = objRS("UserName")
strPassword = objRS("Password")
end if
%>
<%
if err.number <> 0 then
dim strPage
strPage = "dsp_contactform.asp"
%>
<%
end if
%>
<%
if bolEdit then
strName = empty
strEmail = empty
strPhone = empty
strUserName = empty
strPassword = empty
end if
intSelected = empty
bolEdit = empty
%>