<%@ 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 sBody = sBody & "
" & vbcrlf sBody = sBody & "" & VBCRLF sBody = sBody & "" & VBCRLF 'Create the links for activating or denying user acess sqlstring = "select uid from tblusers where username='" & request.form("username") & "'" cmd.commandtext = sqlstring rs.close rs.open cmd if not rs.eof then uid = rs.fields("uid").value sBody = sBody & "" & VBCRLF sBody = sBody & "
Name:   " & request.form("rank") & " " & request.form("fname") & " " & request.form("lname") & "
Unit:   " & request.form("unit") & "
 
" & vbcrlf sBody = sBody & "" & vbcrlf sBody = sBody & "" & vbcrlf sBody = sBody & "
" & vbcrlf sBody = sBody & "

Please click the appropriate button above to approve or reject the account request.

" & vbcrlf else sBody = sBody & "

Error in establishing links.

" & 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.

">
"> First Name
"> Last Name
"> Rank (if applicable)
"> Unit/Organization
"> E-Mail Address
"> Phone Number
 
Yes   No Are you a POC?
 
User Name
Password
Confirm Password
 
      

 

<% end if %>