<% Dim cnDB ' As ADODB.Connection Set cnDB = OpenDB() Dim strTitle ' As String Dim strAction ' As String Dim rsData ' As ADODB.Recordset Dim strAID ' As String Dim strFirstName ' As String Dim strLastName ' As String Dim strUsername ' As String Dim strPassword ' As String Dim strPasswordc ' As String Dim strEmail ' As String Dim strEmail2 ' As String Dim strEmail3 ' As String Dim strEmail4 ' As String Dim strJobTitle ' As String Dim lngCompanyID ' As Long Dim lngAccountID ' As Long Dim strTesting strTesting = "Yes" Select Case Request("A") Case "c" strAction = "c" strTitle = "Create New Account" strFirstName = "" strLastName = "" strUsername = "" strPassword = "" strPasswordc = "" strEmail = "" strEmail2 = "" strEmail3 = "" strEmail4 = "" strJobTitle = "" lngCompanyID = "" Case "u" CheckSecurity strAction = "u" strTitle = "Modify Account" lngAccountID = Request.Cookies("mynetwork")("AID") Set rsData = cnDB.Execute("SELECT * FROM tblAccounts WHERE pkAccountID like " & lngAccountID) strFirstName = rsData("FirstName") strLastName = rsData("LastName") strUsername = rsData("Username") strPassword = rsData("Password") strJobTitle = rsData("JobTitle") lngCompanyID = rsData("pkCompanyID") rsData.Close Set rsData = Nothing Case Else Response.Redirect "accounts_form.asp?a=c" End Select %>

<% If strAction = "c" then %> <% Else %> > <% End If %> <% If Session("ErrorText") <> "" Then WL "" Session.Abandon End If WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" If strAction = "c" then ' show email input boxes WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" Else ' show list of emails ''''''''''''''''''''''''''''' ' Additional Emails Section ' ''''''''''''''''''''''''''''' WL "" Dim rstblEmails ' As ADODB.Recordset Dim strSQL3 ' As String strSQL3 = "SELECT * FROM tblEmails WHERE pkAccountID like " _ & lngAccountID & " ORDER BY Primary, Email" Set rstblEmails = cnDB.Execute(strSQL3) Do Until rstblEmails.EOF WL "" WL "" rstblEmails.MoveNext Loop rstblEmails.Close Set rstblEmails = Nothing Set strSQL3 = Nothing WL "" End If WL "" WL "" ''''''''''''''''''''''''''''''''''''''''''' ' Start Company Information Section ' ''''''''''''''''''''''''''''''''''''''''''' If strAction = "c" Then WL "" WL "" Else '''''''''''''''''''''''''''''''''''''''' ' Start Company Dropdown ' '''''''''''''''''''''''''''''''''''''''' Dim rsData2 Dim strSQL2 ' As String strSQL2 = "SELECT * FROM tblOrgs WHERE pkAccountID like " & lngAccountID & " ORDER BY Organization" Set rsData2 = cnDB.Execute(strSQL2) WL "" WL "" End if WL "" If strAction = "c" Then WL "" Else WL "" End If WL "" WL "

<% = strTitle %>
" & Session("ErrorText") & "
" WL "( * indicates a required field)" WL "
First Name:	*
Last Name:	*
Username:	* " _ & "
Password:	*
Confirm Password:	*
Primary Email Address:	*
Enter other email addresses you might be known " _ & "by including past company email addresses.
Email Address 2:
Email Address 3:
Email Address 4:
Current and past email addresses that you might be known " _ & "by including past company email addresses.
" WL "U | " WL "D -	" & rstblEmails("Email") '''''''''''''''''''''''''''' ' Determine if Primary ' '''''''''''''''''''''''''''' If rstblEmails("Primary") = "A" Then WL " (primary)" End If WL "
Add Email Addresses >>
Job Title:
Company Name:	" WL "Your company name will be added at the end of the account creation process." WL "
Company Name:	" WL "" ''''''''''''''''''''''''''''''''''''''''''''''''''' ' cycle through all Orgs ' ''''''''''''''''''''''''''''''''''''''''''''''''''' Do Until rsData2.EOF If rsData2("pkOrgID") = lngCompanyID Then WL "" & rsData2("Organization") & "" Else WL "" & rsData2("Organization") & "" End If rsData2.MoveNext Loop rsData2.Close set rsData2 = Nothing set strSQL2 = Nothing WL "

" CloseDB cnDB ' close database connections PrintFooter %>