<%
Dim LaunConn
Dim CookCartID
Dim objFSO
Set LaunConn=Server.CreateObject("ADODB.Connection")
LaunConn.Open "DSN=LaundryCarts;"
CookCartID = Session("CookCartID")
CustID = Session("CustID")
%>
Modify
Customer Information
<%if Session("level") <> 4 and Request.querystring("CustID") <> CustID2 then
response.redirect ("http://www.laundry-carts.com")
end if%>
<%
set rsCust = LaunConn.Execute("SELECT * FROM Customer WHERE CustomerID = " & request.querystring("CustID") & ";")
%>
<%
rsCust.Close
Set rsCust = Nothing
LaunConn.Close
Set LaunConn = Nothing
%>