|
Account Access
|
<%
Dim LaunConn
Dim CookCartID
Dim objFSO
Set LaunConn=Server.CreateObject("ADODB.Connection")
LaunConn.Open "DSN=LaundryCarts;"
CookCartID = Session("CookCartID")
CustID = Session("CustID")
%>
| Parts Administration |
|
<%if Session("level") <> 4 and Request.querystring("CustID") <> CustID2 then
response.redirect ("http://www.laundry-carts.com")
end if%>
|
<%
strSQL = "SELECT * FROM Carts;"
Set CartsDB = LaunConn.Execute(strSQL)
CounterVar = 1
title1 = "w00t"
PartsCounter = 0
PartsCounterStart = 0
CartsDB.MoveFirst
Do While NOT CartsDB.EOF
CounterVar = 1
CounterVar2 = 1
%>
|
<%
CounterVar = CounterVar + 1
PartsCounter = PartsCounter + 1
CartsDB.MoveNext
Loop
CartsDB.Close
Set CartsDB = Nothing
%>
<%
strSQL = "SELECT * FROM Parts"
Set CartsDB = LaunConn.Execute(strSQL)
CounterVar = 1
title1 = "w00t"
PartsCounter = 0
PartsCounterStart = 0
CartsDB.MoveFirst
Do While NOT CartsDB.EOF
CounterVar = 1
CounterVar2 = 1
%>
|
<%
CounterVar = CounterVar + 1
PartsCounter = PartsCounter + 1
CartsDB.MoveNext
Loop
CartsDB.Close
Set CartsDB = Nothing
%>
<%
strSQL = "SELECT * FROM Wheels"
Set CartsDB = LaunConn.Execute(strSQL)
CounterVar = 1
title1 = "w00t"
PartsCounter = 0
PartsCounterStart = 0
CartsDB.MoveFirst
Do While NOT CartsDB.EOF
CounterVar = 1
CounterVar2 = 1
%>
|
<%
CounterVar = CounterVar + 1
PartsCounter = PartsCounter + 1
CartsDB.MoveNext
Loop
CartsDB.Close
Set CartsDB = Nothing
LaunConn.Close
Set LaunConn = Nothing
%>
|
|
|
|
|
|
|
|
Return to Menu
|