|
Account Access
|
<%
Dim LaunConn
Dim CookCartID
Dim objFSO
Set LaunConn=Server.CreateObject("ADODB.Connection")
LaunConn.Open "DSN=LaundryCarts;"
CookCartID = Session("CookCartID")
CustID = Session("CustID")
%>
| Customer
Accounts List |
|
<%
if Session("level") < 4 Then
Response.Redirect ("AdminMenu.asp")
End If
CustID = CInt(Request.querystring("CustID"))
strSQL = "SELECT * FROM Customer WHERE CustomerID LIKE '" & CustID & "'"
Set RsCust = LaunConn.Execute(strSQL)
strSQL = "SELECT * FROM Customer WHERE CustomerID LIKE '" & CustID & "'"
If NOT RsCust.EOF Then
%>
| First
Name: |
<%=rsCust("BFirstName")%> |
| Last
Name: |
<%=rsCust("BLastName")%> |
| Address
1: |
<%=rsCust("BAddress1")%> |
| Address
2: |
<%=rsCust("BAddress2")%> |
| City: |
<%=rsCust("BCity")%> |
| State: |
<%=rsCust("BState")%> |
| Zip: |
<%=rsCust("BZip")%> |
| Phone: |
<%=rsCust("BPhone")%> |
| EMail: |
<%=rsCust("EMail")%> |
| First
Name: |
<%=rsCust("SFirstName")%> |
| Last
Name: |
<%=rsCust("SLastName")%> |
| Address
1: |
<%=rsCust("SAddress1")%> |
| Address
2: |
<%=rsCust("SAddress2")%> |
| City: |
<%=rsCust("SCity")%> |
| State: |
<%=rsCust("SState")%> |
| Zip: |
<%=rsCust("SZip")%> |
| Phone: |
<%=rsCust("SPhone")%> |
| Credit
Card Type: |
<%=rsCust("CCType")%> |
| Credit
Card Holder's Name: |
<%=rsCust("CCName")%> |
| Credit
Card Exp. Date: |
<%=rsCust("CCDate")%> |
| Credit
Card Number: |
Last Digits-<%=right(rsCust("CCNumber"),4)%> |
| Password: |
<%=rsCust("Password")%> |
| Security
Level: |
<%=rsCust("SecLvl")%> |
<%
rsCust.Close
Set rsCust = Nothing
End If
LaunConn.Close
Set LaunConn = Nothing
%>
|
|
|
|
|
|
|