<%@ LANGUAGE = "VBScript" %> <% '----------------------------------------------------------- ' ASPilot.com - Pilot Cart Page(s) ' ------------------------------ ' Copyright © 2004 Spliethof Inc ' ' Contains the root Pilot Cart functionality for public ' consumption. Many of the built in pages have redirects here for ' legacy support. PilotInitialize Dim pg, mode GetCurrentCustomer MarkCurrentCustomerActive pg = EStr(Request.QueryString("pg")) If IsEmpty(pg) Then pg = "default" pg = LCase(pg) mode = EStr(Request.QueryString("mode")) '--------------------------------------------------------------------------- 'This case statement is the capture the pages from the Control Panel 'and send them to the proper code if needed. This was intrduced in 'Pilot Cart 7.3 and is mainly for the automatic menu system and legacy '--------------------------------------------------------------------------- Select Case pg %><% Case "cart" Response.Redirect g.SecureURL & "cart.asp" Case "category" Response.Redirect "category.asp" Case "contact" Response.Redirect "contact.asp" Case "gateway", "extranet" Response.Redirect "gateway.asp" Case "manuf" Response.Redirect "manuf.asp" Case "manuf_gateway" Response.Redirect "manufgateway.asp" Case "newsletter", "nl" Response.Redirect "newsletter.asp" Case "newsroom" Response.Redirect "newsroom.asp" Case "products" Dim specific, grp, manuf specific =Request.QueryString("specific") grp = ELng(Request.QueryString("grp")) manuf = ELng(Request.QueryString("manuf")) Select Case mode Case "login_add" Response.Redirect "product.asp?specific="&specific Case Else If specific = "" And grp = "" And manuf = "" Then Response.Redirect "group.asp" ElseIf specific <> "" Then Response.Redirect "product.asp?specific="&specific ElseIf grp <> "" Then Response.Redirect "group.asp?grp="&grp ElseIf manuf <> "" Then Response.Redirect "manuf.asp?manuf="&manuf End If End Select Case "pwd_reminder" Response.Redirect "pwdminder.asp" Case "search" Server.Transfer "search.asp" ' Dim strsrch, srch, searchBy ' strsrch = Request.Form("srch") ' If strsrch = "" Then strsrch = Request.QueryString("srch") ' If strsrch <> "" Then srch = Replace(StripSymbols(strsrch), " ", "%") ' If srch = "" Then srch = "XX" ' searchBy = Request.Form("searchBy") ' If searchBy = "" Then searchBy = Request.QueryString("searchBy") ' If searchBy = "" Then ' Response.Redirect "search.asp" ' Else ' Response.Redirect "search.asp?mode=results&searchBy=Products&srch="&srch&"" ' End If Case Else 'here is the default code that will display new pages in your site, and custom pages that you create: If Not PilotPageBegin(pg, Empty) Then Response.Redirect g.HomePageURL & "pilot.asp" B2BCheckLogin pg Response.Write img1 & pc 'The Following lines are for legacy upgrade products. 2, 3, and 4 are no longer used. If img2 <> "" Then Response.Write "

" & img2 If txt2 <> "" Then Response.Write txt2 If img3 <> "" Then Response.Write "

" & img3 If txt3 <> "" Then Response.Write txt3 If img4 <> "" Then Response.Write "

" & img4 If txt4 <> "" Then Response.Write txt4 TemplateAfterPC PilotPageEnd End Select PilotTerminate %>