<% Dim cnDB ' As ADODB.Connection Set cnDB = OpenDB() Dim strTitle ' As String Dim strAction ' As String Dim rsData ' As ADODB.Recordset 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 lngAccountID ' As Long Select Case Request("A") Case "c" strAction = "c" strTitle = "Create New Account" strFirstName = "" strLastName = "" strUsername = "" strPassword = "" strPasswordc = "" strEmail = "" Case "u" ' CheckSecurity strAction = "u" strTitle = "Modify Account" lngAccountID = Request.Cookies("whenrufree")("AID") Set rsData = cnDB.Execute("SELECT * FROM tblAccounts WHERE pkAccountID like " & lngAccountID) strFirstName = rsData("FirstName") strLastName = rsData("LastName") strUsername = rsData("Username") strPassword = rsData("Password") strEmail = rsData("Email") rsData.Close Set rsData = Nothing Case Else WL "
Something is wrong." End Select %> My Network - <% = strTitle %>
<% If strAction = "c" then %> <% Else %> > <% End If %> <% If Session("AccountErrorText") <> "" Then WL "" Session.Abandon End If WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "
<% = strTitle %>
" & Session("AccountErrorText") & "
" WL "( * indicates a required field)" WL "
First Name: *
Last Name: *
Username: * " _ & "
Password: *
Confirm Password: *
Email Address: *
" CloseDB cnDB ' close database connections %>