
<%
			' Get Company Information
			
			DIM myCoInfo, objRSCo
			Set objRSCo = Server.CreateObject("ADODB.Recordset")
			myCoInfo = "SELECT * FROM Company Where Id = '1'" 
			objRSCo.Open myCoInfo, objConn
			
			
			Dim strMyCoName
			strMyCoName = objRSCo("CoName")
			
			Dim strCoAddress
			strCoAddress = objRSCo("CoAddress")
			
			Dim strCoAddress2
			strCoAddress2 = objRSCo("CoAddress2")
			
			Dim strCoCity
			strCoCity = objRSCo("CoCity")
			
			Dim strCoState
			strCoState = objRSCo("CoState")
			
			Dim strCoZip
			strCoZip = objRSCo("CoZip")
			
			Dim strCoCountry
			strCoCountry = objRSCo("CoCountry")
			
			Dim strCoCountryCode
			strCoCountryCode = objRSCo("CoCountryCode")
			
			Dim strCoPhone
			strCoPhone = objRSCo("CoPhone")
			
			Dim strCoFax
			strCoFax = objRSCo("CoFax")
			
			Dim strBanner
			strBanner = objRSCo("Banner")
			
			Dim strTaxItems
			strTaxItems = objRSCo("TaxItems")
			
			Dim strTaxLocalOnly
			strTaxLocalOnly = objRSCo("TaxLocalOnly")
			
			Dim strTaxRate
			strTaxRate = objRSCo("TaxRate")
			
			Dim strTaxCountryOnly
			strTaxCountryOnly = objRSCo("TaxCountryOnly")
			
			Dim strCoUrl
			strCoUrl = objRSCo("CoUrl")
			
			Dim strSecureUrl
			strSecureUrl = objRSCo("SecureUrl")
			
			Dim strUseSecure
			strUseSecure = objRSCo("UseSecure")
			
			Dim strCoEmail
			strCoEmail = objRSCo("CoEmail")
			
			Dim strEmailPWD
			strEmailPWD = objRSCo("EmailPWD")
			
			Dim strMailServer
			strMailServer = objRSCo("MailServer")
			
			Dim strEmailComponent
			strEmailComponent = objRSCo("EmailComponent")	
				
			Dim strGateway
			strGateway = objRSCo("Gateway")
			
			Dim strAuthTest
			strAuthTest = objRSCo("AuthTest")
			
			Dim strCurrencyCode
			strCurrencyCode = objRSCo("CurrencyCode")
			
			Dim strCurrencySymbol
			strCurrencySymbol = objRSCo("CurrencySymbol")
			
			Dim strCartName
			strCartName = objRSCo("CartName")
			
			Dim strPayPalBusEmail
			strPayPalBusEmail = objRSCo("PayPalBusEmail")
			
			
			' Get Settings
					
			'DIM mySettings, objSettings
			'Set objSettings = Server.CreateObject("ADODB.Recordset")
			'mySettings = "SELECT * FROM Settings Where Apply = 'Yes'"
			'objSettings.Open mySettings, objConn
					
%>