<%
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 %>