%@ transaction="required" language="vbscript" %>
<% option explicit
response.buffer = true
response.cachecontrol = "Private"
response.expires = -3000
'Setup this pages email recipients
dim mailTo
mailTo = "etadmin@ilex.com" 'add this guy ;ted.gray@iews.monmouth.army.mil"
%>
<%'*************************************
'ASP Author: Thomas Giambalvo
'Version: 1.0
'Date: 6/27/00
'*************************************
dim continue
continue = true
'If an "unhandled" error occurs, the user will be given notification
sub ontransactionabort()
if request.form("action") = "send" then response.write "Your request cannot be processed at this time. Please try again later."
end sub
'No errors occurred during processing
sub ontransactioncommit()
if request.form("action") = "send" and continue = false then response.write "Your request has been sent for processing. You will be notified by e-mail when your account has been activated."
end sub%>
Access Form
Account Access
<% if request.form("action") = "send" then
dim uid
openDBcon
sqlstring = "select * from tblusers where username='" & request.form("username") & "'"
'on error resume next
err.clear
rs.open sqlstring, con
checkForErrors err
if rs.eof then
dim recnum, sBody, sLinks
sqlstring = "insert into tblusers (firstname, lastname, rank, unit, email, phone, contact, username, password) values ("
sqlstring = sqlstring & "'" & request.form("fname") & "'"
sqlstring = sqlstring & ",'" & request.form("lname") & "'"
sqlstring = sqlstring & ",'" & request.form("rank") & "'"
sqlstring = sqlstring & ",'" & request.form("unit") & "'"
sqlstring = sqlstring & ",'" & request.form("email") & "'"
sqlstring = sqlstring & ",'" & request.form("phone") & "'"
sqlstring = sqlstring & ",'" & request.form("poc") & "'"
sqlstring = sqlstring & ",'" & request.form("username") & "'"
sqlstring = sqlstring & ",'" & request.form("pwd") & "')"
cmd.commandtext = sqlstring
cmd.commandtype = adcmdtext
cmd.execute recNum
checkForErrors recnum-1
'if no errors occured, then we don't want to show the entry form again.
continue = false
'Create the body for the email
sBody = "
A new account request has come in from the following:
" & vbcrlf
end if
'Send the email
sendMail request.form("email"), mailTo, "New Account Request", sBody, 2, 0, 0
else %>
The username "<%=request.form("username")%>" is not available, please choose another. Your new password must be at
least 8 characters long, no longer than 12 and contain at least one numeric value.
<%
end if
closeDBcon
else %>
This page is here to let you request access to the Guardrail Common Sensor Support
Area. Access to this area is subject to PM ACS restrictions. Your new password must be at
least 8 characters long, no longer than 12 and contain at least one numeric value.
<%end if%>
<% if continue = true then %>
Member Information All fields are required to be filled out with the exception of rank for non-military personnel.
We cannot guarantee that your selection of user/password will be available.