<%@ Language=VBScript %> <% Response.Buffer=true %> Laundry Carts
Account Access
<% 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%> <%else%> <% uniquepartid = clng(request.querystring("uniqueid")) sql = "DELETE FROM specials WHERE uniquepartid = " & uniquepartid & ";" set laundb = launconn.execute(sql) %> <%end if%>
Are you sure you want to delete this special? If so, click here. Part deleted from database!

Click here to return to the specials administration page.

Return to Menu
 
Call Us: 1-866-891-5513, Email Us: parts@sterlingequipmentco.com
All contents © copyright 2004 Laundry Cart Co., All rights reserved.