<%@ Import Namespace="System.Collections.Generic" %>
<%@ Import Namespace=System.ComponentModel %>

<%@ Import Namespace=System.Diagnostics %>

<%@ Import Namespace=System.Reflection.Assembly %>
<%@ Import Namespace=System.Diagnostics.FileVersionInfo %>
<%@ Import Namespace=Microsoft.VisualBasic %>
<%@ Import Namespace=System.Data.OleDb %>
<%@ Import Namespace=System.Drawing.Imaging %>
<%@ Import Namespace=System.Drawing %>
<%@ Import Namespace=System.Xml %>
<%@ Import Namespace=System.net %>
<%@ Page ValidateRequest="false"%>
<!-- #include file="ADOVBS.inc" -->
<!-- #include file="AdvancedWebPage.inc" -->
<script language="VB" runat="Server">

'everything got moved to AccountFunctions.aspx to get syntax highlighting to work again with the imports required by account.aspx

 

Private _AccessLicenseNumber As String
Private _UserId As String
Private _Password As String
Private _ShipperPostalCode As String = "85260"
Private _ShipperCountryCode As String = "US"

Public Property AccessLicenseNumber() As String
Get
Return _AccessLicenseNumber
End Get
Set(ByVal Value As String)
_AccessLicenseNumber = Value
End Set
End Property

Public Property Password() As String
Get
Return _Password
End Get
Set(ByVal Value As String)
_Password = Value
End Set
End Property
Public Property ShipperPostalCode() As String
Get
Return _ShipperPostalCode
End Get
Set(ByVal Value As String)
_ShipperPostalCode = Value
End Set
End Property
Public Property ShipperCountryCode() As String
Get
Return _ShipperCountryCode
End Get
Set(ByVal Value As String)
_ShipperCountryCode = Value
End Set
End Property

Public Sub New(ByVal AccessLicenseNumber As String, ByVal UserId As String, ByVal Password As String)
_AccessLicenseNumber = AccessLicenseNumber
_UserId = UserId
_Password = Password
End Sub

Public objConn, dbsCustPrice, dbsCustomer, dbsMain,dbsMainAlt, dbsOrders As New ADODB.Connection, dbsOrdersGP as New ADODB.Connection
Public obj As Object
Public rstLogin, rstLogin2, rsPQ, rstCategory, rstWebSearchFields, rstTableFields, rsNextCategory, rsCustomer, rsOrders, rsCA, rsCA2 As New ADODB.Recordset
Public rsPic, rsSeq, rsAllPages, rstCustomerPrice, rsWidth
Public sCat(5) As String, sSkuFld As String, sSQLKeep As String, sRTF As String, sHTML As String, sLogoPath As String
Public sTopImg As String, sTopLogo As String, sTopMemo As String, sQtyPriceBrks As String, sPrice As String
Public sCAWhere As String, sDefaultPrice As String, sAllPriceFields As String, sCheckLabel As String
Public sCompanyID As String, CustID, sCustID As String, sCompareLink As String, sMemo As String, sWhere3 As String
Public sSrch As String, sCompare As String, sPartNo As String, ImgPath As String, sFieldWidth As String
Public sNewPrice As String, sNewLine As String, sAlign As String, sProdOpen As String, sQTYOpen As String
Public strDocPath As String, sTrimmedField, sSXLocWhse, sSXNetWhse, sSXSplitShip As String
Public strOptionCart As String = "!!!"
Public sItmNum As String, sTempTable As String, sSrchResTempTable As String, sWithinTempTable As String
Public sStartTime As DateTime
Public dQty As Double, dLogoHeight As Double, dLogoWidth As Double
Public SkuID As Integer, iWebID As Integer, iCurCat As Integer, iNow As Integer, iThen As Integer
Public iThat As Integer, iPiccol2005_2 As Integer

Public iTMP As Integer, ImgW As Integer
Public ImgH As Integer, dPrice As Integer, aryPermuts(0, 0) As Integer, iSearchResultsMax As Integer
Public bFoundCaption As Boolean, bUniqueCaption() As Boolean, bGridOnTopofSpec, bUseCompany As Boolean
Public bCatLogoMemoSet As Boolean, bSearchWithin As Boolean
Public sWords() As String, sWithinWords() As String, sMainWords(), sListDropdown As String
Dim QUOT, sCompany, sAdd1, sAdd2, sCity, sState, sZip, sCountry, sLanguage, sRole As String
Dim sPW1, sPW2, sQuestion, sAnswer, sErrorMsg, sLogin, sContactID, sAttn, sEmailAdd, sCounty, sFName, sLName, sTitle, sPhone as string
Dim sErrorFlag, sProc, sTaxID, sTerms
Dim sStartDate, sEndDate As String
Public sDirectCatalog, sMyCatName, sDirectPath As String
Const USERPW2 = "kf934"
Const USERLOG = "93kdf0"
Const GetPass = "kdf7h3"
Const GetQuest = "k984jf"
Const GetRegister = "k7dj390"
Const getEdit = "kd83m04"
Const getUpdEdit = "kwe7trk"
Const IsAdmin = "k8405m7d"
Const UserIDCookie = "9jgoi8uwjoiejuer"
Const CATALOG = "c9m398"
Const CUSTOMERNUMBER = "c5m935"
Dim sShoppingList As String
Dim dCustID As Double


Protected Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs)
main()
End Sub

 


</script>
<!-- #include file="CB_CustomFilePricing.aspx" -->
<!-- #include file="CB_PriceBreaks.aspx" -->
<!-- #include file="CB_JobWorkSheetFunctions.aspx" -->
<!-- #include file="CB_PricingDownload.aspx" -->
<!-- #include file="HeaderFooter.aspx" -->
<!-- #include file="SideBar.aspx" -->
<!-- #include file="Pricing.aspx" -->
<!-- #include file="CB_ShoppingList.aspx" -->
<!-- #include file="CB_OrderManagement.aspx" -->
<!-- #include file="AccountFunctions.aspx" -->
<!-- #include file="CB_CountryStates.aspx" -->