<%
Dim LaunConn
Dim CookCartID
Dim objFSO
Set LaunConn=Server.CreateObject("ADODB.Connection")
LaunConn.Open "DSN=LaundryCarts;"
CookCartID = Session("CookCartID")
CustID = Session("CustID")
%>
Special
Administration
<%if Session("level") <> 4 and Request.querystring("CustID") <> CustID2 then
response.redirect ("http://www.laundry-carts.com")
end if%>
<%
Set LaunDB = LaunConn.Execute("SELECT * FROM specials WHERE partnumber = '" & request.querystring("partnumber") & "';")
%>
Delete
Part <%=request.querystring("partnumber")%>
<%if request.querystring("confirmed") = "" then%>
Are you sure you want to
delete this special? If
so, click here.
<%else%>
<%
uniquepartid = clng(request.querystring("uniqueid"))
sql = "DELETE FROM specials WHERE uniquepartid = " & uniquepartid & ";"
set laundb = launconn.execute(sql)
%>
Part
deleted from database!
Click here
to return to the specials
administration page.