|
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 = "DELETE * FROM Customer WHERE CustomerID LIKE '" & CustID & "'"
LaunConn.Execute(strSQL)
LaunConn.Close
Set LaunConn = Nothing
%>
The Customer has been deleted!
Return
to Menu
|
|
|
|
|
|
|