<%@ LANGUAGE = "VBScript" %>
<%
'-----------------------------------------------------------
' ASPilot.com - Gateway
' ------------------------------
' Copyright © 2004 Spliethof Inc
'
' This file lists all the customer account interface for the
' shopping cart.
PilotInitialize
GetCurrentCustomer
MarkCurrentCustomerActive
If Not IsNumeric(mypage) Then
mypage = 1
ElseIf mypage = "" Then
mypage = 1
Else
mypage = Int(mypage)
End If
manuf = ELng(Request.QueryString("manuf"))
If manuf = "" Then
If Not PilotPageBegin("manuf", Empty) Then Response.Redirect g.HomePageURL & "pilot.asp"
B2BCheckLogin "manuf"
Response.Write img1 & pc & "
"
ShowManufGroups
'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
Response.Write"
"
TemplateAfterPC
PilotPageEnd
Else
If Not PilotPageBegin("manuf", Empty) Then Response.Redirect g.HomePageURL & "pilot.asp"
B2BCheckLogin "manuf"
ManufsDisplay
End If
%>