<% 
' Comersus Shopping Cart 
' Comersus Open Technologies
' United States 
' Software License can be found at License.txt
' http://www.comersus.com  
' Details: list active root categories
%>

<%
' Comersus Sophisticated Cart 
' Comersus Open Technologies
' USA - 2006
' http://www.comersus.com 
' Details: main initial settings (other settings can be found in database)
%>
<%

dim pDatabaseConnectionString, pSupportErrorEmailFrom, pSupportErrorSMTP, pSupportErrorEmailComponent, pSupportErrorShowDetails, pTrapDbErrors, pIdStore

' storeFront Version (don't change this constant)
private const pStoreFrontVersion	= "7.095"

' Options: Windows or unix/linux
private const pServerOS			= "windows"

' database (access, sqlserver, mysql)
private const pDataBase			= "access"

' input string filterin type (1-3 being 1 hard, 3 light)
pFilteringLevel				= 1

' id # if you have several stores connected to the same database
pIdStore			= 1

' Alternate connection strings (change only for SQl Server, mySQL or if you get errors with Access)

' SQL Server local or remote IP in SERVER=
' pDatabaseConnectionString = "Driver={SQL Server};UID=comersus;password=123456;DATABASE=comersus6;SERVER=127.0.0.1"

' mySQL  Server 2.5
' pDatabaseConnectionString = "Driver={mySQL};Server=localhost;database=comersus;Uid=Root;Pwd="

' mySQL  Server 3.51 local
' pDatabaseConnectionString = "Driver={MySQL ODBC 3.51 Driver};Server=localhost;database=comersus;user=root;password=;OPTION=3"                        
 
' DSN connection, you must define the DSN first in your server
' pDatabaseConnectionString = "DSN=comersus"
 
' DSN less connection
pDatabaseConnectionString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" &server.MapPath("/comersus7F/database/comersus.mdb")&";" 


' Email Settings for Support Error script (if there's a DB error, this data cannot be retrieved from the DB)
pSupportErrorEmailFrom 		= "you@yourDomain.com"
pSupportErrorSMTP      		= "smtp.yourDomain.com"
pSupportErrorEmailComponent	= "Jmail" ' options are Jmail, ServerObjectsASPMail1, ServerObjectsASPMail2, PersitsASPMail, CDONTS and BambooSMTP
pSupportErrorShowDetails	= -1

' error debug level, trap common DB errors

pTrapDbErrors=0

%>


<%
' Comersus Sophisticated Cart 
' Comersus Open Technologies
' USA - 2006
' http://www.comersus.com 
' Details: Get one setting key 
%>

<%
function getSettingKey(pSettingKey)

dim rstempGetSetting

mySQL="SELECT settingValue FROM settings WHERE settingKey='" &pSettingKey& "' AND idStore=" &pIdStore

call getFromDatabase(mySQL, rstempGetSetting, "getSettingKey")  

if not rstempGetSetting.eof then 
 getSettingKey=rstempGetSetting("settingValue")
else
 getSettingKey=""
end if

end function
%>

 
<%
' Comersus Sophisticated Cart 
' Comersus Open Technologies
' USA - 2006
' http://www.comersus.com 
' Details: functions to open and close db connection 
%>
<%
'--------------------------------------------------------------------
' Microsoft ADO
'
' (c) 1996 Microsoft Corporation.  All Rights Reserved.
'
'
'
' ADO constants include file for VBScript
'
'--------------------------------------------------------------------

'---- CursorTypeEnum Values ----
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3

'---- CursorOptionEnum Values ----
Const adHoldRecords = &H00000100
Const adMovePrevious = &H00000200
Const adAddNew = &H01000400
Const adDelete = &H01000800
Const adUpdate = &H01008000
Const adBookmark = &H00002000
Const adApproxPosition = &H00004000
Const adUpdateBatch = &H00010000
Const adResync = &H00020000
Const adNotify = &H00040000

'---- LockTypeEnum Values ----
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4

'---- ExecuteOptionEnum Values ----
Const adRunAsync = &H00000010

'---- ObjectStateEnum Values ----
Const adStateClosed = &H00000000
Const adStateOpen = &H00000001
Const adStateConnecting = &H00000002
Const adStateExecuting = &H00000004

'---- CursorLocationEnum Values ----
Const adUseServer = 2
Const adUseClient = 3

'---- DataTypeEnum Values ----
Const adEmpty = 0
Const adTinyInt = 16
Const adSmallInt = 2
Const adInteger = 3
Const adBigInt = 20
Const adUnsignedTinyInt = 17
Const adUnsignedSmallInt = 18
Const adUnsignedInt = 19
Const adUnsignedBigInt = 21
Const adSingle = 4
Const adDouble = 5
Const adCurrency = 6
Const adDecimal = 14
Const adNumeric = 131
Const adBoolean = 11
Const adError = 10
Const adUserDefined = 132
Const adVariant = 12
Const adIDispatch = 9
Const adIUnknown = 13
Const adGUID = 72
Const adDate = 7
Const adDBDate = 133
Const adDBTime = 134
Const adDBTimeStamp = 135
Const adBSTR = 8
Const adChar = 129
Const adVarChar = 200
Const adLongVarChar = 201
Const adWChar = 130
Const adVarWChar = 202
Const adLongVarWChar = 203
Const adBinary = 128
Const adVarBinary = 204
Const adLongVarBinary = 205

'---- FieldAttributeEnum Values ----
Const adFldMayDefer = &H00000002
Const adFldUpdatable = &H00000004
Const adFldUnknownUpdatable = &H00000008
Const adFldFixed = &H00000010
Const adFldIsNullable = &H00000020
Const adFldMayBeNull = &H00000040
Const adFldLong = &H00000080
Const adFldRowID = &H00000100
Const adFldRowVersion = &H00000200
Const adFldCacheDeferred = &H00001000

'---- EditModeEnum Values ----
Const adEditNone = &H0000
Const adEditInProgress = &H0001
Const adEditAdd = &H0002
Const adEditDelete = &H0004

'---- RecordStatusEnum Values ----
Const adRecOK = &H0000000
Const adRecNew = &H0000001
Const adRecModified = &H0000002
Const adRecDeleted = &H0000004
Const adRecUnmodified = &H0000008
Const adRecInvalid = &H0000010
Const adRecMultipleChanges = &H0000040
Const adRecPendingChanges = &H0000080
Const adRecCanceled = &H0000100
Const adRecCantRelease = &H0000400
Const adRecConcurrencyViolation = &H0000800
Const adRecIntegrityViolation = &H0001000
Const adRecMaxChangesExceeded = &H0002000
Const adRecObjectOpen = &H0004000
Const adRecOutOfMemory = &H0008000
Const adRecPermissionDenied = &H0010000
Const adRecSchemaViolation = &H0020000
Const adRecDBDeleted = &H0040000

'---- GetRowsOptionEnum Values ----
Const adGetRowsRest = -1

'---- PositionEnum Values ----
Const adPosUnknown = -1
Const adPosBOF = -2
Const adPosEOF = -3

'---- enum Values ----
Const adBookmarkCurrent = 0
Const adBookmarkFirst = 1
Const adBookmarkLast = 2

'---- MarshalOptionsEnum Values ----
Const adMarshalAll = 0
Const adMarshalModifiedOnly = 1

'---- AffectEnum Values ----
Const adAffectCurrent = 1
Const adAffectGroup = 2
Const adAffectAll = 3

'---- FilterGroupEnum Values ----
Const adFilterNone = 0
Const adFilterPendingRecords = 1
Const adFilterAffectedRecords = 2
Const adFilterFetchedRecords = 3
Const adFilterPredicate = 4

'---- SearchDirection Values ----
Const adSearchForward = 1
Const adSearchBackward = -1

'---- ConnectPromptEnum Values ----
Const adPromptAlways = 1
Const adPromptComplete = 2
Const adPromptCompleteRequired = 3
Const adPromptNever = 4

'---- ConnectModeEnum Values ----
Const adModeUnknown = 0
Const adModeRead = 1
Const adModeWrite = 2
Const adModeReadWrite = 3
Const adModeShareDenyRead = 4
Const adModeShareDenyWrite = 8
Const adModeShareExclusive = &Hc
Const adModeShareDenyNone = &H10

'---- IsolationLevelEnum Values ----
Const adXactUnspecified = &Hffffffff
Const adXactChaos = &H00000010
Const adXactReadUncommitted = &H00000100
Const adXactBrowse = &H00000100
Const adXactCursorStability = &H00001000
Const adXactReadCommitted = &H00001000
Const adXactRepeatableRead = &H00010000
Const adXactSerializable = &H00100000
Const adXactIsolated = &H00100000

'---- XactAttributeEnum Values ----
Const adXactCommitRetaining = &H00020000
Const adXactAbortRetaining = &H00040000

'---- PropertyAttributesEnum Values ----
Const adPropNotSupported = &H0000
Const adPropRequired = &H0001
Const adPropOptional = &H0002
Const adPropRead = &H0200
Const adPropWrite = &H0400

'---- ErrorValueEnum Values ----
Const adErrInvalidArgument = &Hbb9
Const adErrNoCurrentRecord = &Hbcd
Const adErrIllegalOperation = &Hc93
Const adErrInTransaction = &Hcae
Const adErrFeatureNotAvailable = &Hcb3
Const adErrItemNotFound = &Hcc1
Const adErrObjectInCollection = &Hd27
Const adErrObjectNotSet = &Hd5c
Const adErrDataConversion = &Hd5d
Const adErrObjectClosed = &He78
Const adErrObjectOpen = &He79
Const adErrProviderNotFound = &He7a
Const adErrBoundToCommand = &He7b
Const adErrInvalidParamInfo = &He7c
Const adErrInvalidConnection = &He7d
Const adErrStillExecuting = &He7f
Const adErrStillConnecting = &He81

'---- ParameterAttributesEnum Values ----
Const adParamSigned = &H0010
Const adParamNullable = &H0040
Const adParamLong = &H0080

'---- ParameterDirectionEnum Values ----
Const adParamUnknown = &H0000
Const adParamInput = &H0001
Const adParamOutput = &H0002
Const adParamInputOutput = &H0003
Const adParamReturnValue = &H0004

'---- CommandTypeEnum Values ----
Const adCmdUnknown = &H0008
Const adCmdText = &H0001
Const adCmdTable = &H0002
Const adCmdStoredProc = &H0004

'---- SchemaEnum Values ----
Const adSchemaProviderSpecific = -1
Const adSchemaAsserts = 0
Const adSchemaCatalogs = 1
Const adSchemaCharacterSets = 2
Const adSchemaCollations = 3
Const adSchemaColumns = 4
Const adSchemaCheckConstraints = 5
Const adSchemaConstraintColumnUsage = 6
Const adSchemaConstraintTableUsage = 7
Const adSchemaKeyColumnUsage = 8
Const adSchemaReferentialContraints = 9
Const adSchemaTableConstraints = 10
Const adSchemaColumnsDomainUsage = 11
Const adSchemaIndexes = 12
Const adSchemaColumnPrivileges = 13
Const adSchemaTablePrivileges = 14
Const adSchemaUsagePrivileges = 15
Const adSchemaProcedures = 16
Const adSchemaSchemata = 17
Const adSchemaSQLLanguages = 18
Const adSchemaStatistics = 19
Const adSchemaTables = 20
Const adSchemaTranslations = 21
Const adSchemaProviderTypes = 22
Const adSchemaViews = 23
Const adSchemaViewColumnUsage = 24
Const adSchemaViewTableUsage = 25
Const adSchemaProcedureParameters = 26
Const adSchemaForeignKeys = 27
Const adSchemaPrimaryKeys = 28
Const adSchemaProcedureColumns = 29
%>


<%

sub openDb()
 if varType(connTemp)=0 or varType(connTemp)=1 then   
 
   ' create the connection
   set connTemp	= server.createObject("adodb.connection")      
    
   connTemp.Open pDatabaseConnectionString
 
   if err.number <> 0 then
     response.redirect "comersus_supportError.asp?error="&Server.Urlencode("Error while opening DB read:"&Err.Description& "<br><br><b>Common solutions</b><br><br>1. Check that you haven't change default database path and name <br>2. Check that your web server has Access 97 or 2000 ODBC installed <br>3. Check that you have read, modify and delete permissions over database folder and database file  <br>4. Open your database with Access program and select Repair Database option <br>5. Select other connection method like other connection string or DSN")    
   end if
  
 end if 
end sub

sub getFromDatabase(mySQL, rsTemp, scriptName) 
  
   call openDb()
 
   set rsTemp = server.createObject("adodb.recordset")


   ' set locktype
   rsTemp.lockType = adLockReadOnly

   ' set the cursor
   rsTemp.cursorType = adOpenForwardOnly 
   
   rsTemp.open mySQL, connTemp    
   
   if err.number <> 0 then
      response.redirect "comersus_supportError.asp?error="&Server.Urlencode("Error in " &scriptName& ", error: "&Err.Description& " - Err.Number:"&Err.number&" - SQL:"&mySQL)            
   end if
 
end sub

sub getFromDatabasePerPage(mySQL, rsTemp, scriptName)

 call openDb()
 
 set rsTemp 		= server.createObject("adodb.recordset")     
 
 rsTemp.cursorLocation 	= adUseClient
 rsTemp.cacheSize 	= pNumPerPage
 
 rsTemp.open mySQL, connTemp
 
 if err.number <> 0 then  
    response.redirect "comersus_supportError.asp?error="&Server.Urlencode("Error in " &scriptName& ", error: "&Err.Description& " - Err.Number:"&Err.number&" - SQL:"&mySQL)        
 end if
 
end sub

sub getFromDatabaseSeek(mySQL, rsTemp, scriptName)

 call openDb()
 
 set rsTemp 		= server.createObject("adodb.recordset")
 rsTemp.cursorType 	= 3
 rsTemp.lockType 	= 3

 rsTemp.Open mySQL, connTemp
 
 if err.number <> 0 then  
    response.redirect "comersus_supportError.asp?error="&Server.Urlencode("Error in " &scriptName& ", error: "&Err.Description& " - Err.Number:"&Err.number&" - SQL:"&mySQL)          
 end if
 
end sub

sub updateDatabase(mySQL, rsTemp, scriptName) 
  
 call openDb()    
   
 set rsTemp=connTemp.execute(mySQL)
 
 if err.number <> 0 then  
   response.redirect "comersus_supportError.asp?error="&Server.Urlencode("Update Error in " &scriptName& ", error: "&Err.Description& " - Err.Number:"&Err.number&" - SQL:"&mySQL)          
 end if
  
end sub


function closeDB()
  on error resume next
  
  rsTemp.close
  set rsTemp 		= nothing 
  connTemp.close
  set connTemp	 	= nothing
 
end function

%> 
<%
' Comersus Sophisticated Cart 
' Comersus Open Technologies
' USA - 2006
' http://www.comersus.com 
' Details: get screen message from database
%>
<%
function getMsg(pIdScreenMessage, pMem)  
 
 ' check if the product is inside the cart
 mySQL="SELECT screenMessage FROM screenMessages WHERE idScreenMessage=" &pIdScreenMessage& " AND idStore=" &pIdStore
 
 call getFromDatabase(mySQL, rstempMsg, "screenMessages")  

 if not rstempMsg.eof then
  getMsg=rstempMsg("screenMessage")
 else
  getMsg=""
 end if  
 
end function

%>
<%
' Comersus Sophisticated Cart 
' Comersus Open Technologies
' USA - 2005
' http://www.comersus.com 
' Details: misc currency functions
%>
<%

function money(number)

dim pos, indexPoint, moneyLarge, decPart, g

if isNull(number) then 
 money="0.00"
else

 if pMoneyDontRound="-1" then
   money = number  
 else
   money	= round(number,2)
 end if 

 if pDecimalSign="," then
 ' replace . by ,
  money		= replace(money,".",",")
 else
 ' replace , by .
  money		= replace(money,",",".")
 end if

 if pMoneyDontRound="-1" then 
  Pos=inStr(money,pDecimalSign)
  if Pos<>0 then
  	money=mid(money,1,Pos+2)
  end if
 end if

 ' locate dec division
 indexPoint	= instr(money, pDecimalSign)

 ' for integer, add .00
 if indexPoint=0 then
    money	= Cstr(money)+pDecimalSign+"00"
 end if

 ' calculate if 0 or 00
 moneyLarge	= len(money)
 decPart		= right(money,moneyLarge-indexPoint)

 ' add to original numbers
 for g=0 to (1- (moneyLarge-indexPoint))
    money	= Cstr(money)+"0"    
 next

 ' money=separatorMil(money)

end if ' not empty
end function


' use this function to display numbers like 125,000,000
function SeparatorMil(number)

' locate pDecimalSign position
pDecimalSignExist = instr(number, pDecimalSign) - 1
if pDecimalSignExist <= 0 then 
	pDecimalSignExist = len(number)
end if

' add separatorMil to integers
pCountNumbers = 0
if pDecimalSignExist > 3 then
 for indexPoint = pDecimalSignExist to 1 step -1
	pNumber = mid(number,indexPoint,1)
	if pNumber <> pDecimalSign then
		pCountNumbers  = pCountNumbers + 1
		pSeparatorMil  = pNumber & pSeparatorMil 
 	end if	
	if pCountNumbers = 3 and (indexPoint > 1) then
        	pSeparatorMil  = "," & pSeparatorMil 
		pCountNumbers  = 0
	end if
	pNumber = ""
 next 

 ' add decimals
 pSeparatorMil = pSeparatorMil & mid(number, pDecimalSignExist+1, Len(number))
 SeparatorMil  = pSeparatorMil
else
 SeparatorMil  = number
end if

end function
%> 
<%
' Comersus Sophisticated Cart 
' Comersus Open Technologies
' USA - 2006
' http://www.comersus.com 
' Details: string functions
%>
<%

function getLoginField(input,stringLength)
 
 ' to filter login fields
 
 dim regEx
 Set regEx = New RegExp
 
 getLoginField		= left(trim(input),stringLength) 
 
 regEx.Pattern 		= "([^-_A-Za-z0-9@.])"
 regEx.IgnoreCase 	= True
 regEx.Global 		= True
 getLoginField 		= regEx.Replace(getLoginField, "")
 Set regEx 		= nothing
     
end function

function getScreenMessage(input,stringLength)
 
 ' to filter screenMessage
 
 dim regEx
 Set regEx = New RegExp
 
 getScreenMessage	= left(trim(input),stringLength) 
 
 regEx.Pattern 		= "([^-_A-Za-z0-9@., ])"
 regEx.IgnoreCase 	= True
 regEx.Global 		= True
 getScreenMessage 	= regEx.Replace(getScreenMessage, "")
 Set regEx 		= nothing
     
end function

function getUserInput(input, stringLength)

 dim newString, regEx
 Set regEx = New RegExp
 
 ' only specified length
 newString = left(trim(input),stringLength)   
 
 if pFilteringLevel=1 then  
 
  regEx.Pattern 	= "([^A-Za-z0-9@=:/*|' _-]+.%)"
  regEx.IgnoreCase 	= True
  regEx.Global 		= True
  newString 		= regEx.Replace(newString, "")
  Set regEx 		= nothing   
  
  newString		= replace(newString,"--","")
  newString		= replace(newString,";","")      
  newString	        = replace(newString,"'","&#39;") 
  newString	        = replace(newString,"<script>","[script]") 
  
 end if
 
 if pFilteringLevel=2 then
    
  newString	= replace(newString,"--","")
  newString	= replace(newString,";","&#59;") 
  newString	= replace(newString,"=","&#61;") 
  newString	= replace(newString,"(","&#40;") 
  newString	= replace(newString,")","&#41;")   
  newString	= replace(newString,"'","&#39;") 
  newString	= replace(newString,"""","&#34;") 
  newString	= replace(newString,"<script>","[script]") 
 
 end if
 
 if pFilteringLevel=3 then
    
  newString	= replace(newString,"'","&#39;") 
  newString	= replace(newString,"""","&#34;") 
  newString	= replace(newString,"<script>","[script]") 
 
 end if 
 
 getUserInput		= newString 
 
end function

function getUserInputL(input,stringLength)

 ' light filtering
 dim tempStr
 
 tempStr	= left(input,stringLength)    
 tempStr	= replace(tempStr,"--","")
 tempStr	= replace(tempStr,";","&#59;") 
 tempStr	= replace(tempStr,"=","&#61;") 
 tempStr	= replace(tempStr,"(","&#40;") 
 tempStr	= replace(tempStr,")","&#41;") 
 tempStr	= replace(tempStr,"CHAR","&#67;&#72;&#65;&#82;") 
 tempStr	= replace(tempStr,"'","&#39;") 
 tempStr	= replace(tempStr,"""","&#34;") 
 tempStr	= replace(tempStr,"<","") 
 tempStr	= replace(tempStr,">","") 
 
 
 getUserInputL	= tempStr 
end function

function formatForDb(input)
 dim tempStr  
 tempStr=input
 if isNull(tempStr)=false then
 ' replace to avoid DB errors 
  tempStr	= replace(tempStr,"'","''") 
  tempStr	= replace(tempStr,"''''","''") 
  tempStr	= replace(tempStr,"''''''","''") 
  tempStr	= replace(tempStr,"''''''''","''") 
  tempStr	= replace(tempStr,"""","''")  
 end if
 formatForDb	= tempStr 
 
end function 

function formatNumberForDb(input)
 formatNumberForDb=replace(input,",",".")
end function

function getEditorInput(input, stringLength)

 dim newString, regEx
 Set regEx = New RegExp
 
 ' only specified length
 newString = left(trim(input),stringLength)   
 
 
  regEx.Pattern 	= "([^A-Za-z0-9@=:/*|' _-]+.%)"
  regEx.IgnoreCase 	= True
  regEx.Global 		= True
  newString 		= regEx.Replace(newString, "")
  Set regEx 		= nothing   
  
  newString		= replace(newString,"--","")
  newString	        = replace(newString,"'","&#39;") 
  newString	        = replace(newString,"<script>","[script]") 
  
  getEditorInput = newString
end function

function getQueryString(input,stringLength)
  
  dim regEx, newString    
  
  ' only specified length
  newString = left(trim(input),stringLength)  

  set regEx = New RegExp
  regEx.IgnoreCase = True
  regEx.Global  = True
  regEx.Pattern = "([^-A-Z a-z0-9])"
  newString 	= regEx.Replace(newString, "")
  
  getQueryString=newstring
end function

%>
<%
' Comersus Sophisticated Cart 
' Comersus Open Technologies
' USA - 2006
' http://www.comersus.com 
' Details: all session functions
%>
<%
' Comersus Sophisticated Cart 
' Comersus Open Technologies
' USA - 2006
' http://www.comersus.com 
' Details: date functions
%>
<%
function MediumDate (str)
  
  Dim aDay, aMonth, aYear
  aDay   	= Day(str)
  aMonth 	= Monthname(Month(str),True)
  aYear 	= Year(str)    
  MediumDate  = aDay & "-" & aMonth & "-" & aYear        
  
end Function

function formatDate(originalDate)
 
 if pDateSwitch="-1" then
  formatDate=mid(originalDate,4,2)&"/"&mid(originalDate,1,2)&"/"&right(originalDate,4)
 else
  formatDate=originalDate
 end if
 
end function

function fixDate(pNewFormat)        

    pToken1 = inStr(pNewFormat, "/")
    pToken2 = inStr(mid(pNewFormat,pToken1+1, len(pNewFormat)) , "/" ) 
    
    pPart1 = mid(pNewFormat,1,pToken1-1) 
    pPart2 = mid(pNewFormat,pToken1+1,pToken2-1)
    pPart3 = mid(pNewFormat,pToken2+pToken1+1,len(pNewFormat))
    
    if len(pPart1) = 1 then
        pPart1  = "0" & pPart1
    end if
    if len(pPart2) = 1 then
        pPart2  = "0" & pPart2
    end if
    if len(pPart3) = 2 then
        pPart3  = "20" & pPart3
    end if
    pNewFormat =   pPart1 & "/" & pPart2 & "/" & pPart3  
    
    fixDate = pNewFormat
end function

function getServerDateFormat()
 
 if datediff("d","01/11/2005","01/12/2005")=1 then
  getServerDateFormat="MM/DD/YYYY"
 else
  getServerDateFormat="DD/MM/YYYY"
 end if
 
end function
%>
 
<%
' Comersus Sophisticated Cart 
' Comersus Open Technologies
' USA - 2006
' http://www.comersus.com 
' Details: miscellaneous functions
%>
<%

' discount code Generator (65^n)
function DiscountCodeGenerator(n) 
 dim s
 randomize()
 s="1234567890AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz"
 
 do
  a=""
  for i = 1 to n
   a = a + mid(s,cint(rnd()*len(s))+1,1)
  next
  
  ' search if the code is being used  
  mySQL = "SELECT discountCode FROM discounts WHERE discountCode='" &a& "'"	
  call getFromDatabase (mySql, rsTemp3, "miscFunctions")
 
 ' eof implies that the code is available		
 loop until rstemp3.eof 
 
 
 DiscountCodeGenerator = cstr(a)
end function

' randomNumber function, generates a number between 1 and limit
function randomNumber(limit)
 randomize
 randomNumber=int(rnd*limit)+1
end function

' min value
function min(byval value1, byval value2)
 if value1>value2 then
    min = value2
 else
    min = value1
 end if
end function

function getMax(arrProducts)
 dim tempMax, k
 tempMax=0
 for k=0 to uBound(arrProducts)
  if arrProducts(k,7)>tempMax then tempMax=arrProducts(k,7)
 next 
 getMax=tempMax
end function

function getPopularity(currentPopularity, maxPopularity)
 ' to avoid errors 
 if maxPopularity=0 then maxPopularity=1 
 getPopularity=int(currentPopularity*4/maxPopularity)
end function

function removePrefix(input,prefix)
 removePrefix=""
 if input<>"" and prefix<>"" then
     dim longPrefix
     longPrefix		=len(prefix)+1
     removePrefix	=mid(input,longPrefix)      
 end if
end function

function saveCookie()
 response.cookies("test")="-1"
end function

function readCookie() 
 if request.cookies("test")<>"-1" then 
  readCookie=0
 else
  readCookie=-1  
 end if
end function

function writeLog(line, file)
 set FSO 	= Server.CreateObject("scripting.FileSystemObject") 
 set myFile    = fso.OpenTextFile(file, 8, true) 
 myFile.WriteLine(line) 
 myFile.Close 
end function


sub parseShipmentMethod(pPlainString, pShipmentDesc, pShipmentPrice)
 
 pByPassShipping=getSettingKey("pByPassShipping")
  
 if  pByPassShipping="0" then
  arrayShipment=split(pPlainString,"%%")
 
  pShipmentDesc		=arrayShipment(0)
  pShipmentPrice	=Cdbl(arrayShipment(1))+Cdbl(arrayShipment(2))
 
  if pChangeDecimalPoint="-1" then 
   pShipmentPrice=replace(pShipmentPrice,".",",") 
  end if
  
 else
  
  pShipmentPrice	=0
  pShipmentDesc		=""
  
 end if
 
end sub

function getShipmentString(pShipmentIndex, pIdDbSession)
 
 dim rstemp3
 
 pByPassShipping=getSettingKey("pByPassShipping")
  
 getShipmentString=""
 
 if pByPassShipping="0" then
  
  mySQL = "SELECT sessionData FROM dbSession WHERE idDbSession=" &pIdDbSession
  call getFromDatabase (mySql, rsTemp3, "getShipmentString")
 
  if not rstemp3.eof then
   pSessionData=rstemp3("sessionData")
  
   ' parse rows
   arrayRows=split(pSessionData,"||")
  
   ' retrieve index
   getShipmentString=arrayRows(pShipmentIndex)
  
  end if
  
 end if 
 
end function


sub checkRentalAvailability(pIdProduct, pFrom, pUntil, pIsAvailable, pReason, pQuantity)
 
 pQuantity	=datediff("d",pFrom,pUntil) 

 if pQuantity<1 then
  pReason="Rental interval is not correct. Please check date format."
  pIsAvailable=0
 end if
 
 ' get availability

 mySQL="SELECT * FROM rentals WHERE idProduct="&pIdProduct
 call getFromDatabase(mySQL, rstemp, "comersus_rentalListAvailability.asp") 

 do while not rstemp.eof

 pLimitFF=datediff("d",pFrom,rstemp("fromDate"))
 pLimitFU=datediff("d",pFrom,rstemp("untilDate"))

 pLimitUF=datediff("d",pUntil,rstemp("fromDate"))
 pLimitUU=datediff("d",pUntil,rstemp("untilDate"))

 if pLimitFF<=0 and pLimitFU>=0 then 
   pReason="From date reserved"
   pIsAvailable=0
 end if
 
 if pLimitUF<=0 and pLimitUU>=0 then 
   if pReason<>"" then pReason=pReason&" and "
   pReason="End date reserved"
   pIsAvailable=0
 end if
 
 rstemp.movenext
loop
 
end sub

function getStateName(pStateCode)
 
 dim rstempgSN
 
 mySQL="SELECT stateName FROM stateCodes WHERE stateCode='"&pStateCode&"'"
 call getFromDatabase(mySQL, rstempgSN, "getStateName()")    
 if not rstempgSN.eof then 
  getStateName=rstempgSN("stateName")
 else
  getStateName="-"
 end if
 
end function

function getCountryName(pCountryCode)

 dim rstempgSN
 mySQL="SELECT countryName FROM countryCodes WHERE countryCode='"&pCountryCode&"'"
 call getFromDatabase(mySQL, rstempgSN, "getCountryName()")    
 if not rstempgSN.eof then 
  getCountryName=rstempgSN("countryName")
 else
  getCountryName="-"
 end if

end function

function isDownloadFile(pFile)

 isDownloadFile=0
 
 if instr(pFile,".zip")<>0 then
   isDownloadFile=-1
 end if
 
 if instr(pFile,".exe")<>0 then
   isDownloadFile=-1
 end if
 
 if instr(pFile,".mp3")<>0 then
   isDownloadFile=-1
 end if

end function


function checkAvailability()
 
 dim rstempgSN
 
 checkAvailability=0
 
 mySQL="SELECT MAX(idOrder) AS maxIdOrder FROM orders"
 call getFromDatabase(mySQL, rstempgSN, "orderVerification")   
  
 if not rstempgSN.eof then 
  if rstempgSN("maxIdOrder")>50 then
   checkAvailability=-1
  end if
 end if
 
end function

function getBonusPoints(pIdCustomer)

 dim mysql, rstemp
 
 getBonusPoints=0
 
 ' retrieve available Bonus Points 
 if pIdCustomer<>0 then
 
 ' get current points
 mySQL="SELECT bonusPoints FROM customers WHERE idCustomer=" &pIdCustomer
 call getFromDatabase(mySQL, rstemp, "orderVerify")    
 
 getBonusPoints=rstemp("bonusPoints")   
 
 end if


end function

function affiliateValid(pIdAffiliate)

dim mysql, rstemp

 affiliateValid 	= Cint(1)

 if pIdAffiliate<>1 then

  ' check if idAffiliate is valid
  mySQL="SELECT idAffiliate FROM affiliates WHERE idAffiliate=" &pIdAffiliate

  call getFromDatabase(mySQL, rsTemp, "affiliateIsValid")    
 
  if rsTemp.eof then
   affiliateValid	= 0
  end If
 
 end if 

end function

function restBonusPoints(pBonusPoints, pIdCustomer)

 dim mysql, rstemp
 
 pBonusPoints=replace(pBonusPoints,",",".") 
 mySQL="UPDATE customers SET bonusPoints=bonusPoints-" &pBonusPoints& " WHERE idCustomer="&pIdCustomer
 call updateDatabase(mySQL, rsTemp, "restBonusPoints")       
 
end function
%> 
<%

function sessionInit()
 
 ' makes an init over all session variables used
 if session("idCustomer")="" or isNull(session("idCustomer")) then 
  session("language")		= pDefaultLanguage      
  session("idAffiliate")	= Cint(1)     
  session("idCustomer")		= Cint(0)    
  session("idCustomerType")	= Cint(1) 
  session("cartItems")		= Cint(0)
  session("cartSubTotal")	= CDbl(0)
  session("idDbSession")	= Cint(0)
  session("idDbSessionCart")    = Cint(0)
  
  ' now check if the client browser supports session variables  
  if session("idCustomer")<>0 then
    response.redirect "comersus_message.asp?message="&Server.Urlencode(getMsg(662,"It seems that your browser does not support Cookies. You need Cookies enabled to purchase in this store."))        
  end if
 
  sessionInit=-1
 
 else
  sessionInit=0
 end if
end function


function getSessionVariable(pSessionVariable, pDefault)
 ' try to get one session variable, if is empty, returns default value
 if session(pSessionVariable)="" or isNull(session(pSessionVariable)) then
  getSessionVariable=pDefault  
 else
  getSessionVariable=session(pSessionVariable)
 end if
end function


function checkSessionData()

pIdDbSession		= getSessionVariable("idDbSession", 0)

if Cdbl(pIdDbSession)=0 then 
  
 ' dbSession not defined
 
 pRandomKey	= randomNumber(99999999)
 pDbSessionDate	= formatDate(Date())

 mySQL="INSERT INTO dbSession (randomKey, sessionType, dbSessionDate) VALUES (" &pRandomKey& ",'web','" &pDbSessionDate& "')"
 
 call updateDatabase(mySQL, rsTemp, "sessionFunctions, checkSessionData")
 
 ' retrieve idDbSession
 mySQL="SELECT MAX(idDbSession) AS maxIdDbSession FROM dbSession WHERE randomKey=" &pRandomKey& " AND dbSessionDate='" &pDbSessionDate& "'"
 
 call getFromDatabase(mySQL, rsTemp, "sessionFunctions, checkSessionData")
   
 pIdDbSession=rstemp("maxIdDbSession")

end if ' not NULL
 
 ' load in session
 session("idDbSession")=pIdDbSession
 
 checkSessionData = pIdDbSession
 
end function

function checkDbSessionCartOpen()
 
 dim pIdDbSession2  
 
 ' check if there is some cart open for current dbSession
 
 pIdDbSession2=getSessionVariable("idDbSession", 0)
 
 mySQL="SELECT idDbSessionCart FROM dbSessionCart WHERE idDbSession=" &pIdDbSession2& " AND cartOpen=-1 ORDER BY idDbSessionCart"
 
 call getFromDatabase(mySQL, rsTemp, "sessionFunctions")  

 if rstemp.eof then
  checkDbSessionCartOpen = 0
 else
  session("idDbSessionCart") = rstemp("idDbSessionCart")
  checkDbSessionCartOpen     = rstemp("idDbSessionCart")
 end if  

end function


function createNewDbSessionCart()  
 
 pIdDbSession=getSessionVariable("idDbSession", 0) 
 
 if pIdDbSession=0 then
    response.redirect "comersus_supportError.asp?error="&Server.UrlEncode("idDbSession was not defined while creating dbSessionCart. idDbSession:"&session("idDbSession")&" - Type:"&varType(session("idDbSession")))
 end if
 
 mySQL="INSERT INTO dbSessionCart (idDbSession, cartOpen) VALUES (" &pIdDbSession& ",-1)"
 
 call updateDatabase(mySQL, rsTemp, "sessionFunctions, createNewDbSessionCart")  
 
 ' retrieve idDbSession
  
 mySQL="SELECT MAX(idDbSessionCart) AS maxIdDbSessionCart FROM dbSessionCart WHERE idDbSession=" &pIdDbSession
 
 call getFromDatabase(mySQL, rsTemp, "sessionFunctions, createNewDbSessionCart")  
 
 pIdDbSessionCart=rstemp("maxIdDbSessionCart") 

 createNewDbSessionCart = pIdDbSessionCart  
 
end function

function sessionLost()
 pIdDbSession		= getSessionVariable("idDbSession", 0)
 
 if pIdDbSession=0 then
  sessionLost=-1
 else 
  sessionLost=0
 end if
end function

%>

  
<%
' Comersus Sophisticated Cart 
' Comersus Open Technologies
' USA - 2006
' http://www.comersus.com 
' Details: miscellaneous functions
%>
<%

' discount code Generator (65^n)
function DiscountCodeGenerator(n) 
 dim s
 randomize()
 s="1234567890AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz"
 
 do
  a=""
  for i = 1 to n
   a = a + mid(s,cint(rnd()*len(s))+1,1)
  next
  
  ' search if the code is being used  
  mySQL = "SELECT discountCode FROM discounts WHERE discountCode='" &a& "'"	
  call getFromDatabase (mySql, rsTemp3, "miscFunctions")
 
 ' eof implies that the code is available		
 loop until rstemp3.eof 
 
 
 DiscountCodeGenerator = cstr(a)
end function

' randomNumber function, generates a number between 1 and limit
function randomNumber(limit)
 randomize
 randomNumber=int(rnd*limit)+1
end function

' min value
function min(byval value1, byval value2)
 if value1>value2 then
    min = value2
 else
    min = value1
 end if
end function

function getMax(arrProducts)
 dim tempMax, k
 tempMax=0
 for k=0 to uBound(arrProducts)
  if arrProducts(k,7)>tempMax then tempMax=arrProducts(k,7)
 next 
 getMax=tempMax
end function

function getPopularity(currentPopularity, maxPopularity)
 ' to avoid errors 
 if maxPopularity=0 then maxPopularity=1 
 getPopularity=int(currentPopularity*4/maxPopularity)
end function

function removePrefix(input,prefix)
 removePrefix=""
 if input<>"" and prefix<>"" then
     dim longPrefix
     longPrefix		=len(prefix)+1
     removePrefix	=mid(input,longPrefix)      
 end if
end function

function saveCookie()
 response.cookies("test")="-1"
end function

function readCookie() 
 if request.cookies("test")<>"-1" then 
  readCookie=0
 else
  readCookie=-1  
 end if
end function

function writeLog(line, file)
 set FSO 	= Server.CreateObject("scripting.FileSystemObject") 
 set myFile    = fso.OpenTextFile(file, 8, true) 
 myFile.WriteLine(line) 
 myFile.Close 
end function


sub parseShipmentMethod(pPlainString, pShipmentDesc, pShipmentPrice)
 
 pByPassShipping=getSettingKey("pByPassShipping")
  
 if  pByPassShipping="0" then
  arrayShipment=split(pPlainString,"%%")
 
  pShipmentDesc		=arrayShipment(0)
  pShipmentPrice	=Cdbl(arrayShipment(1))+Cdbl(arrayShipment(2))
 
  if pChangeDecimalPoint="-1" then 
   pShipmentPrice=replace(pShipmentPrice,".",",") 
  end if
  
 else
  
  pShipmentPrice	=0
  pShipmentDesc		=""
  
 end if
 
end sub

function getShipmentString(pShipmentIndex, pIdDbSession)
 
 dim rstemp3
 
 pByPassShipping=getSettingKey("pByPassShipping")
  
 getShipmentString=""
 
 if pByPassShipping="0" then
  
  mySQL = "SELECT sessionData FROM dbSession WHERE idDbSession=" &pIdDbSession
  call getFromDatabase (mySql, rsTemp3, "getShipmentString")
 
  if not rstemp3.eof then
   pSessionData=rstemp3("sessionData")
  
   ' parse rows
   arrayRows=split(pSessionData,"||")
  
   ' retrieve index
   getShipmentString=arrayRows(pShipmentIndex)
  
  end if
  
 end if 
 
end function


sub checkRentalAvailability(pIdProduct, pFrom, pUntil, pIsAvailable, pReason, pQuantity)
 
 pQuantity	=datediff("d",pFrom,pUntil) 

 if pQuantity<1 then
  pReason="Rental interval is not correct. Please check date format."
  pIsAvailable=0
 end if
 
 ' get availability

 mySQL="SELECT * FROM rentals WHERE idProduct="&pIdProduct
 call getFromDatabase(mySQL, rstemp, "comersus_rentalListAvailability.asp") 

 do while not rstemp.eof

 pLimitFF=datediff("d",pFrom,rstemp("fromDate"))
 pLimitFU=datediff("d",pFrom,rstemp("untilDate"))

 pLimitUF=datediff("d",pUntil,rstemp("fromDate"))
 pLimitUU=datediff("d",pUntil,rstemp("untilDate"))

 if pLimitFF<=0 and pLimitFU>=0 then 
   pReason="From date reserved"
   pIsAvailable=0
 end if
 
 if pLimitUF<=0 and pLimitUU>=0 then 
   if pReason<>"" then pReason=pReason&" and "
   pReason="End date reserved"
   pIsAvailable=0
 end if
 
 rstemp.movenext
loop
 
end sub

function getStateName(pStateCode)
 
 dim rstempgSN
 
 mySQL="SELECT stateName FROM stateCodes WHERE stateCode='"&pStateCode&"'"
 call getFromDatabase(mySQL, rstempgSN, "getStateName()")    
 if not rstempgSN.eof then 
  getStateName=rstempgSN("stateName")
 else
  getStateName="-"
 end if
 
end function

function getCountryName(pCountryCode)

 dim rstempgSN
 mySQL="SELECT countryName FROM countryCodes WHERE countryCode='"&pCountryCode&"'"
 call getFromDatabase(mySQL, rstempgSN, "getCountryName()")    
 if not rstempgSN.eof then 
  getCountryName=rstempgSN("countryName")
 else
  getCountryName="-"
 end if

end function

function isDownloadFile(pFile)

 isDownloadFile=0
 
 if instr(pFile,".zip")<>0 then
   isDownloadFile=-1
 end if
 
 if instr(pFile,".exe")<>0 then
   isDownloadFile=-1
 end if
 
 if instr(pFile,".mp3")<>0 then
   isDownloadFile=-1
 end if

end function


function checkAvailability()
 
 dim rstempgSN
 
 checkAvailability=0
 
 mySQL="SELECT MAX(idOrder) AS maxIdOrder FROM orders"
 call getFromDatabase(mySQL, rstempgSN, "orderVerification")   
  
 if not rstempgSN.eof then 
  if rstempgSN("maxIdOrder")>50 then
   checkAvailability=-1
  end if
 end if
 
end function

function getBonusPoints(pIdCustomer)

 dim mysql, rstemp
 
 getBonusPoints=0
 
 ' retrieve available Bonus Points 
 if pIdCustomer<>0 then
 
 ' get current points
 mySQL="SELECT bonusPoints FROM customers WHERE idCustomer=" &pIdCustomer
 call getFromDatabase(mySQL, rstemp, "orderVerify")    
 
 getBonusPoints=rstemp("bonusPoints")   
 
 end if


end function

function affiliateValid(pIdAffiliate)

dim mysql, rstemp

 affiliateValid 	= Cint(1)

 if pIdAffiliate<>1 then

  ' check if idAffiliate is valid
  mySQL="SELECT idAffiliate FROM affiliates WHERE idAffiliate=" &pIdAffiliate

  call getFromDatabase(mySQL, rsTemp, "affiliateIsValid")    
 
  if rsTemp.eof then
   affiliateValid	= 0
  end If
 
 end if 

end function

function restBonusPoints(pBonusPoints, pIdCustomer)

 dim mysql, rstemp
 
 pBonusPoints=replace(pBonusPoints,",",".") 
 mySQL="UPDATE customers SET bonusPoints=bonusPoints-" &pBonusPoints& " WHERE idCustomer="&pIdCustomer
 call updateDatabase(mySQL, rsTemp, "restBonusPoints")       
 
end function
%>  
<%
function isRental(idProduct)
 
 dim rsTempRental
 
 mySQL="SELECT rental FROM products WHERE idProduct="& pIdProduct 

 call getFromDatabase(mySQL, rsTempRental, "isRental")
 
 isRental=0
 
 if not rsTempRental.eof then
  if rsTempRental("rental")=-1 then isRental=-1
 end if

end function

function isDonation(idProduct)
 
 dim rsTempDon
 
 mySQL="SELECT isDonation FROM products WHERE idProduct="& pIdProduct 

 call getFromDatabase(mySQL, rsTempDon, "isRental")
 
 isDonation=0
 
 if not rsTempDon.eof then
  if rsTempDon("isDonation")=-1 then isDonation=-1
 end if

end function


function itHasDiscountPerQty(idProduct)
 
 dim rsTempDPQ
 
 mySQL="SELECT idDiscountperquantity FROM discountsPerQuantity WHERE idProduct=" &pIdProduct

 call getFromDatabase (mySql, rsTempDPQ, "itHasDiscountPerQty")

 if not rsTempDPQ.eof then
  itHasDiscountPerQty=-1
 else
  itHasDiscountPerQty=0
 end if

end function

function getIdAuction(pIdProduct)

 ' check for auctions

 dim rsTempAuction
 getIdAuction=0

 mySQL="SELECT idAuction FROM auctions WHERE active=-1 AND idProduct=" &pIdProduct

 call getFromDatabase (mySql, rsTempAuction, "ViewItem")

 if not rsTempAuction.eof then  
  getIdAuction=rsTempAuction("idAuction")
 else
  getIdAuction=0
 end if

end function

function isBundleMain(idProduct)
 
 dim rsTempIBM
 
 mySQL="SELECT isBundleMain FROM products WHERE idProduct=" &pIdProduct

 call getFromDatabase (mySql, rsTempIBM, "itHasDiscountPerQty")

 if not rsTempIBM.eof then
  isBundleMain=rsTempIBM("isBundleMain")
 else
  isBundleMain=0
 end if

end function

function getRateReview(pIdProduct)
  
  dim mysql, rsTempRv
  
  mySQL="SELECT SUM(stars) AS sumStars, COUNT(*) AS countReviews FROM reviews WHERE idProduct=" &pIdProduct& " AND active=-1"

  call getFromDatabase (mySql, rsTempRv, "viewItem")
		
  if not rsTempRv.eof then
  
     if Cint(rsTempRv("countReviews"))<>0 then	   
	   getRateReview          	= cSng(rsTempRv("sumStars"))/cInt(rsTempRv("countReviews"))
      else
	   getRateReview		= 0
     end if
      
   else
     getRateReview			= 0
  end if
  
end function

Function getOptionsGroups(pIdProduct)
		
	dim pIdOptionGroup, htmlToPrint, rsTempGEO1, rsTempGEO2
 	
 	htmlToPrint=""
 	
 	pProductPrice = getPrice(pIdProduct, pIdCustomerType, pIdCustomer)
 	
	' get optionsGroups assigned
	
	mySQL = "SELECT idOptionGroup FROM optionsGroups_products WHERE idProduct=" & pIdProduct
	
	call getFromDatabase (mySql, rsTempGEO1, "itemFunctions")
	
	' iterate through optionsGroups
	do while not rsTempGEO1.eof
		pType=""
		pIdOptionGroup = rsTempGEO1("idOptionGroup")
		
		' get options inside current optionGroup
		mySQL = "SELECT options.priceToAdd, options.percentageToAdd, options.optionDescrip, options.idOption, optionsGroups.optionGroupDesc, type, options.imageUrl FROM optionsGroups, options_optionsGroups, options WHERE optionsGroups.idOptionGroup=" & Cstr(pIdOptionGroup) & " AND optionsGroups.idOptionGroup=options_optionsGroups.idOptionGroup AND options.idOption=options_optionsGroups.idOption ORDER BY options.optionDescrip"
		
		call getFromDatabase (mySql, rsTempGEO2, "itemFunctions")		        	
		if not rsTempGEO2.eof then
    		pType		 =lcase(rsTempGEO2("type"))											
    		pOptionGroupDesc =rsTempGEO2("optionGroupDesc")		
            htmlToPrint=htmlToPrint&"<br><b>"& pOptionGroupDesc&"</b><br>"
        end if		
	
		if pType="d" then
		 htmlToPrint = htmlToPrint & "<select name='idOptions" & pIdOptionGroup & "'>" & vbCrLf
		end if			
		
		if pType="m" then
		 htmlToPrint = htmlToPrint & "<select name='idOptions" & pIdOptionGroup & "' multiple>" & vbCrLf
		end if
			
					
		 ' drop down optionals				
									
		 do while not rsTempGEO2.eof
		 
		 	pImageUrl	 =rsTempGEO2("imageUrl")
		 	
		        if pType="d" or pType="m" then
			 htmlToPrint=htmlToPrint &"<option value='" & rsTempGEO2("idOption")  & "'>"
			end if			
			
			if pType="r" then
			 htmlToPrint=htmlToPrint &"<input type=radio name=idOptions" & pIdOptionGroup & " value=" &rsTempGEO2("idOption")& ">"
			end if
			
			if pType="c" then
			    htmlToPrint=htmlToPrint &"<input type=checkbox name=idOptions" & pIdOptionGroup & " value=" &rsTempGEO2("idOption")& ">"
			end if
			
		 	htmlToPrint=htmlToPrint & rsTempGEO2("optionDescrip")			
				
			' show price only if >0
				
			if rsTempGEO2("priceToAdd") > 0 Then
			 htmlToPrint=htmlToPrint &" "&pCurrencySign & money(rsTempGEO2("priceToAdd"))
			else
			    if rsTempGEO2("percentageToAdd") > 0 Then
			        htmlToPrint=htmlToPrint &" "&pCurrencySign & money(rsTempGEO2("percentageToAdd")*pProductPrice/100)
			    end if 
			End If												
			
			if pType="d" or pType="m" then
			 htmlToPrint=htmlToPrint &"</option>" & vbCrLf
			end if
			
			if pImageUrl<>"" then
			 htmlToPrint=htmlToPrint & "<img src='catalog/" &pImageUrl& "'>"
			end if
			
			if pType="r" or pType="c" then
			 htmlToPrint=htmlToPrint &"<br>" & vbCrLf
			end if
			
		  rsTempGEO2.movenext
		 loop		
		
         if pType="d" or pType="m" then			
    		 htmlToPrint=htmlToPrint &vbCrLf & "</select>"					
	     end if
		
		 if pType<>"" then
		    htmlToPrint=htmlToPrint &"<br>"
		 end if
         rsTempGEO1.movenext
	loop			        
	        
	getOptionsGroups=htmlToPrint
End Function

function getSupplierName(idSupplier)
 
 dim rsTempGS
 
 mySQL="SELECT supplierName FROM suppliers WHERE idSupplier="& pIdSupplier 

 call getFromDatabase(mySQL, rsTempGS, "isRental")
 
 if not rsTempGS.eof then
  getSupplierName=rsTempGS("supplierName")
 else
  getSupplierName="-"
 end if

end function

function getStock(pIdProduct)

 dim rsTempGS
 
 getStock=0
 
 mySQL="SELECT stock.stock FROM products, stock WHERE products.idStock=stock.idStock AND products.idProduct="& pIdProduct
 call getFromDatabase(mySQL, rsTempGS, "getStock")

 if not rsTempGS.eof then
  getStock=rsTempGS("stock")
 end if
end function

function getCompleteStock(pIdStore2)

 dim rsTempGS
 
 getCompleteStock=0
 
 mySQL="SELECT SUM(stock.stock) AS sumStock FROM products, stock WHERE products.idStock=stock.idStock AND products.idStore="& pIdStore2
 call getFromDatabase(mySQL, rsTempGS, "getStock")

 if not rsTempGS.eof then
  getCompleteStock=rsTempGS("sumStock")
 end if
 
end function

function getCompleteStockForSupplier(pIdStore2, pIdSupplier)

 dim rsTempGS
 
 getCompleteStockForSupplier=0
 
 mySQL="SELECT SUM(stock.stock) AS sumStock FROM products, stock WHERE products.idStock=stock.idStock AND products.idStore="& pIdStore2& " AND products.idSupplier="&pIdSupplier
 call getFromDatabase(mySQL, rsTempGS, "getStock")

 if not rsTempGS.eof then
  getCompleteStockForSupplier=rsTempGS("sumStock")
 end if
 
end function

function updateStock(pIdProduct, pQuantity)

 dim rsTempGS, pIdStock  
 
 pIdStock=0
 
 ' get idStock
 mySQL="SELECT idStock FROM products WHERE idProduct="& pIdProduct
 call getFromDatabase(mySQL, rsTempGS, "getStock")

 if not rsTempGS.eof then
  pIdStock=rsTempGS("idStock")
 end if
 
 ' update
 
 mySQL="UPDATE stock SET stock=stock+ " &pQuantity& " WHERE idStock="& pIdStock
 call updateDatabase(mySQL, rsTempGS, "getStock")

end function


sub replaceStock(pIdProduct, pQuantity)

 dim rsTempGS, pIdStock  
 
 pIdStock=0
 
 ' get idStock
 mySQL="SELECT idStock FROM products WHERE idProduct="& pIdProduct
 call getFromDatabase(mySQL, rsTempGS, "getStock")

 if not rsTempGS.eof then
  pIdStock=rsTempGS("idStock")
 end if
 
 ' update
 
 mySQL="UPDATE stock SET stock=" &pQuantity& " WHERE idStock="& pIdStock
 call updateDatabase(mySQL, rsTempGS, "getStock")

end sub


sub createStock(pIdProduct, pStock)
  dim rstemp
    
  ' insert stock record
  mySQL="INSERT INTO stock (idProductMain, stock) VALUES (" &pIdProduct& "," &pStock& ")"    
   
  call updateDatabase(mySQL, rstemp, "createStock") 
  
  ' retrieve ID
  mySQL="SELECT MAX(idStock) AS maxIdStock FROM stock WHERE idProductMain=" &pIdProduct
  
  call getFromDatabase(mySQL, rstemp, "comersus_backoffice_addproductexec.asp") 
  
  pIdStock = rstemp("maxIdStock")
  
  ' update product record
  mySQL="UPDATE products SET idStock=" &pIdStock&" WHERE idProduct="&pIdProduct 
  call updateDatabase(mySQL, rstemp, "createStock") 
  
end sub

sub assignStockId(pIdProduct, pIdProductStock)
  dim rstemp
    
  ' get stock ID
  mySQL="SELECT idStock FROM stock WHERE idProductMain=" &pIdProductStock  
  call getFromDatabase(mySQL, rstemp, "comersus_backoffice_addproductexec.asp") 
  
  pIdStock = rstemp("idStock")
    
  mySQL="UPDATE products SET idStock="&pIdStock&" WHERE idProduct="&pIdProduct   
   
  call updateDatabase(mySQL, rstemp, "createStock")     
    
end sub

sub getImage(pImageUrl, pImageUrl2, pImageUrl3, pImageUrl4, pImage)

if pImageUrl<>"" then
    
    if pImage=1 then
     %>
     
     <%if pZoomItemImage="-1" then%>        
        <div><img id="myimg" alt="<%=pDescription%>" src="catalog/<%=pImageUrl%>"><br />
        <br><br>
	<a href="#" onclick="zoom('-','myimg',92/66)"><img src="images/ZoomOut.gif" border=0></a> 
	<a href="#" onclick="zoom('+','myimg',92/66)"><img src="images/ZoomIn.gif" border=0></a>
        </div> 
     <%else%>
      <img src='catalog/<%=pImageUrl%>' alt='<%=pDescription%>'>
     <%end if%>
     
     <%
    end if
    
    if pImage=2 then
     %>
     
     <%if pZoomItemImage="-1" then%>        
        <div><img id="myimg" alt="<%=pDescription%>" src="catalog/<%=pImageUrl2%>"><br />
        <br><br>
	<a href="#" onclick="zoom('-','myimg',92/66)"><img src="images/ZoomOut.gif" border=0></a> 
	<a href="#" onclick="zoom('+','myimg',92/66)"><img src="images/ZoomIn.gif" border=0></a>
        </div> 
     <%else%>
      <img src='catalog/<%=pImageUrl2%>' alt='<%=pDescription%>'>
     <%end if%>
          
     <%
    end if
    
    if pImage=3 then
     %>
     
     <%if pZoomItemImage="-1" then%>        
        <div><img id="myimg" alt="<%=pDescription%>" src="catalog/<%=pImageUrl3%>"><br />
        <br><br>
	<a href="#" onclick="zoom('-','myimg',92/66)"><img src="images/ZoomOut.gif" border=0></a> 
	<a href="#" onclick="zoom('+','myimg',92/66)"><img src="images/ZoomIn.gif" border=0></a>
        </div> 
     <%else%>
      <img src='catalog/<%=pImageUrl3%>' alt='<%=pDescription%>'>
     <%end if%>
     
     
     <%
    end if
    
    if pImage=4 then
     %>
     
     <%if pZoomItemImage="-1" then%>        
        <div><img id="myimg" alt="<%=pDescription%>" src="catalog/<%=pImageUrl4%>"><br />
        <br><br>
	<a href="#" onclick="zoom('-','myimg',92/66)"><img src="images/ZoomOut.gif" border=0></a> 
	<a href="#" onclick="zoom('+','myimg',92/66)"><img src="images/ZoomIn.gif" border=0></a>
        </div> 
     <%else%>
      <img src='catalog/<%=pImageUrl4%>' alt='<%=pDescription%>'>
     <%end if%>          
     
     <%
    end if
    
    if pImageUrl2<>"" then
     %><br><br><%=getMsg(672,"switch")%>&nbsp;<a href="comersus_viewItem.asp?idProduct=<%=pIdProduct%>&image=">1</a>&nbsp;<a href="comersus_viewItem.asp?idProduct=<%=pIdProduct%>&image=2">2</a><%
    end if
    if pImageUrl3<>"" then
     %>&nbsp;<a href="comersus_viewItem.asp?idProduct=<%=pIdProduct%>&image=3">3</a><%
    end if
    if pImageUrl4<>"" then
     %>&nbsp;<a href="comersus_viewItem.asp?idProduct=<%=pIdProduct%>&image=4">4</a><%
    end if
 else
    %><img src='catalog/imageNA.gif'><%              
 end if

end sub

function getCategoryLevel(idCategory, level)
  
   dim mySql2, rstempLevel      
   
  ' get parent
   mySql2="SELECT idParentCategory FROM categories WHERE idCategory=" &idCategory
 
   call getFromDatabase (mySql2, rstempLevel, "getCategoryLevel")      
   
   if rstempLevel("idParentCategory")>1 then
    level=level+1
    call getCategoryLevel(rstempLevel("idParentCategory"), level)
   else
    level=level+1        
   end if
    
   getCategoryLevel=level
         
end function

function itHasNoItemsInside(pIdCategory)
  
   dim mySql2, rstemp2
   
   itHasNoItemsInside=0
   
   mySql2="SELECT * FROM categories_products WHERE idCategory=" &pIdCategory

   call getFromDatabase (mySql2, rsTemp2, "itHasNoItemsInside")      
   
   if rstemp2.eof then
     itHasNoItemsInside=-1
   end if  
      
end function

function getCategoryId(pCategoryDesc)
  
   dim mySql2, rstemp2      
   
   mySql2="SELECT idCategory FROM categories WHERE categoryDesc='" &pCategoryDesc&"'"

   call getFromDatabase (mySql2, rsTemp2, "itHasNoItemsInside")      
   
   if not rstemp2.eof then
     getCategoryId=rstemp2("idCategory")
   else
     getCategoryId=0
   end if  
      
end function

function getCategoryPath(pIdCategory, pCategoryString)

 dim rsTemp1

 mySQL="SELECT c2.idCategory, c2.categoryDesc FROM categories c1, categories c2 WHERE c1.idParentCategory=c2.idCategory AND c1.idCategory="&pIdCategory&" AND c2.idCategory>1"
 call getFromDatabase(mySQL, rsTemp1, "itemFunctions.asp") 

 if not rsTemp1.eof  then
   
   pCategoryString=pCategoryString &"|"& rstemp1("categoryDesc")
   
   if rstemp1("idCategory")>1 then
    call getCategoryPath(rstemp1("idCategory"),pCategoryString)
   end if
 end if	

end function

function isCategoryLeaf(idCategory)

 isCategoryLeaf=0
 mySQL="SELECT idCategory FROM categories WHERE idParentCategory="&idCategory
 call getFromDatabase(mySQL, rsTemp1, "comersus_backoffice_addproductform.asp") 

 if rsTemp1.eof then
   isCategoryLeaf=1
 end if	

end function

sub addVariations(pOptionGroupDescrip, pOptionDescrip, pPriceToAdd, pPercentageToAdd, pIdProduct)

 dim rstemp, pIndex  
 
 if pOptionGroupDescrip<>"" then
     
  arrayOptions  	=split(pOptionDescrip,",")
  arrayPrices   	=split(pPriceToAdd,",")         
  arrayPercentage   	=split(pPercentageToAdd,",")         

  ' verification
  if arrayOptions(0)="" then
    response.redirect "comersus_backoffice_message.asp?message="& Server.Urlencode("If you need variations please fill every variation in order")
  end if
  
   '  add option group 
   mySQL="INSERT INTO optionsGroups (optionGroupDesc, type) VALUES ('" &pOptionGroupDescrip & "','D')"
   call  updateDatabase(mySQL, rstemp, "itemFunctions.asp")  
   
   ' retrieve optionGroupId
    
   mySQL="SELECT MAX(idOptionGroup) AS maxIdOptionGroup FROM optionsGroups WHERE optionGroupDesc='" & pOptionGroupDescrip& "'"
   call  getFromDatabase(mySQL, rstemp, "itemFunctions.asp") 
   
   if rstemp.eof then        
     response.redirect "comersus_backoffice_message.asp?message="& Server.Urlencode("Cannot get option group ID")
   end if  
   
   pIdOptionGroup=rstemp("maxIdOptionGroup")       
   
   ' add options
   for f=0 to 2
    
   if arrayOptions(f)<>"" and (arrayPrices(f) <> "" or arrayPercentage(f) <> "") then
	    mySQL="INSERT INTO options (optionDescrip, priceToAdd, percentageToAdd) VALUES ('" & arrayOptions(f) & "'," & arrayPrices(f)& "," & arrayPercentage(f) & ")"     
	    call  updateDatabase(mySQL, rstemp, "itemFunctions.asp")  
	    
	    ' get idOption
	   
	    mySQL="SELECT MAX(idOption) AS maxIdOption FROM options WHERE optionDescrip='" & arrayOptions(f) & "'"
	     
	    call  getFromDatabase(mySQL, rstemp, "itemFunctions.asp") 
	    
	    if rstemp.eof then        
	         response.redirect "comersus_backoffice_message.asp?message="& Server.Urlencode("Cannot get option ID")
	    end if     
	    
	    pIdOption=rstemp("maxIdOption")   
        
		' assign to group
		mySQL="INSERT INTO options_optionsGroups (idOption, idOptionGroup) VALUES (" & pIdOption & "," & pIdOptionGroup & ")"
		 
		call  updateDatabase(mySQL, rstemp, "itemFunctions.asp")  
        
   end if
    
   next
   
   ' assign group to product
    mySQL="INSERT INTO optionsGroups_products (idOptionGroup, idProduct) VALUES (" & pIdOptionGroup & "," & pIdProduct & ")"
     
    call  updateDatabase(mySQL, rstemp, "itemFunctions.asp")  
    
  end if ' filled
  
end sub


sub loadProductVariations(pIdProduct, arrayOptions1, arrayOptions2, pHiddenIdOptions, pOptionDescrip1, pOptionDescrip2, pIdOptionGroup1, pIdOptionGroup2)
 
  dim rstemp
  
  ' retrieve option groups
  
  mySQL="SELECT optionsGroups.idOptionGroup, optionGroupDesc FROM optionsGroups_products, optionsGroups WHERE optionsGroups.idOptionGroup=optionsGroups_products.idOptionGroup AND idProduct=" &pIdProduct
  call getFromDatabase(mySQL, rstemp, "getOptions") 
  
  pIdOptionGroup1=0
  pIdOptionGroup2=0  
  
  do while not rstemp.eof 
    
    if pIdOptionGroup1=0 then
      pOptionDescrip1=rstemp("optionGroupDesc")
      pIdOptionGroup1=rstemp("idOptionGroup")
    else
      pOptionDescrip2=rstemp("optionGroupDesc")
      pIdOptionGroup2=rstemp("idOptionGroup")
    end if
    
  rstemp.movenext
  loop  
  
  ' fill option arrays with default values
  for f=0 to 2
   arrayOptions1(0,f)=""
   arrayOptions1(1,f)=0
   arrayOptions1(2,f)=0
   arrayOptions2(0,f)=""
   arrayOptions2(1,f)=0   
   arrayOptions2(2,f)=0
  next
  
   
  ' retrieve options
  pHiddenIdOptions=""
  
  if pIdOptionGroup1<>0 then
      
   mySQL="SELECT optionDescrip, priceToAdd, percentageToAdd, options.idOption FROM options, options_optionsGroups WHERE idOptionGroup=" & pIdOptionGroup1 & " AND options.idOption=options_optionsGroups.idOption"
   call getFromDatabase(mySQL, rstemp, "getOptions") 
   f=0
   
   do while not rstemp.eof
     arrayOptions1(0,f)	= trim(rstemp("optionDescrip"))
     arrayOptions1(1,f)	= rstemp("priceToAdd")
     arrayOptions1(2,f)	= rstemp("percentageToAdd")
     pHiddenIdOptions	= pHiddenIdOptions & rstemp("idOption") &"," 
    f=f+1
   rstemp.movenext
   loop   
   
  end if
  
  if pIdOptionGroup2<>0 then
      
   mySQL="SELECT optionDescrip, priceToAdd, percentageToAdd, options.idOption FROM options, options_optionsGroups WHERE idOptionGroup=" & pIdOptionGroup2 & " AND options.idOption=options_optionsGroups.idOption"
   call getFromDatabase(mySQL, rstemp, "getOptions") 
   
   f=0
   do while not rstemp.eof
     arrayOptions2(0,f)	= trim(rstemp("optionDescrip"))
     arrayOptions2(1,f)	= rstemp("priceToAdd")
     arrayOptions2(2,f)	= rstemp("percentageToAdd")
     pHiddenIdOptions	= pHiddenIdOptions & rstemp("idOption") &"," 
    f=f+1
   rstemp.movenext
   loop   
   
  end if

end sub

sub removeVariations(pIdProduct, pIdOptionGroup1, pIdOptionGroup2, arrayIdOptions)

 dim rstemp
 
  mySQL = "DELETE FROM optionsGroups_products WHERE idProduct=" &pIdProduct
  call updateDatabase(mySQL, rstemp, "ItemFunctions, modify variations")  	    
   
  mySQL = "DELETE FROM options_optionsGroups WHERE idOptionGroup=" & pIdOptionGroup1 &" OR idOptionGroup=" & pIdOptionGroup2
  call updateDatabase(mySQL, rstemp, "ItemFunctions, modify variations")  	    
   
  mySQL = "DELETE FROM optionsGroups WHERE idOptionGroup=" & pIdOptionGroup1 &" OR idOptionGroup=" & pIdOptionGroup2
  call updateDatabase(mySQL, rstemp, "ItemFunctions, modify variations")  	    
   
  mySQL = "DELETE FROM options WHERE idOption=99999999"
  
  for f=0 to uBound(arrayIdOptions)
   if arrayIdOptions(f)<>"" then
    mySQL=mySQL & " OR idOption=" & arrayIdOptions(f)    
   end if 
  next
  
  call updateDatabase(mySQL, rstemp, "ItemFunctions, modify variations")  	
  
end sub

function getCategoryStart(pIdStore)
 
 dim mysql, rsTempGC
 
 ' get category start from stores
 mySQL="SELECT idCategoryStart FROM stores WHERE idStore=" &pIdStore
 call getFromDatabase (mySql, rsTempGC, "itemFunctions")

 if not rsTempGC.eof then
  getCategoryStart=rsTempGC("idCategoryStart")
 else
  getCategoryStart=1
 end if

end function

function getCategoryDescription(pIdCategory)
 
 dim mysql, rsTempGC
 
 ' get category start from stores
 mySQL="SELECT categoryDesc FROM categories WHERE idCategory=" &pIdCategory
 call getFromDatabase (mySql, rsTempGC, "itemFunctions")

 if not rsTempGC.eof then
  getCategoryDescription=rsTempGC("categoryDesc")
 else
  getCategoryDescription="N/A"
 end if

end function


function getPrice(pIdProduct, pIdCustomerType, pIdCustomer)
 
 dim pPrice, pBtoBPrice
 
 pPrice=0
 pBtoBPrice=0
 
 ' get price
 mySQL="SELECT price, bToBPrice FROM products WHERE idProduct=" &pIdProduct
 
 call getFromDatabase(mySQL, rstempSPrice, "specialPrices")  
 
 if not rstempSPrice.eof then
  pPrice	=rstempSPrice("price")
  pBtoBPrice	=rstempSPrice("bToBPrice")
 end if
 
 if pIdCustomer<>0 then
 
  ' check if the customer has a special price for that product 
  mySQL="SELECT specialPrice FROM customer_specialPrices WHERE idProduct=" &pIdProduct& " AND idCustomer="&pIdCustomer
 
  call getFromDatabase(mySQL, rstempSPrice, "specialPrices")  

  if not rstempSPrice.eof then
   pPrice		=rstempSPrice("specialPrice")
   pBtoBPrice		=rstempSPrice("specialPrice") 
  end if  
   
 end if

 if pIdCustomerType=1 then
   getPrice=pPrice
 else  
   getPrice=pBtoBPrice  
 end if
   
end function

function getPriceByQty(pIdProduct, pIdCustomerType, pIdCustomer, quantity)
 
 dim pPrice, pBtoBPrice
 
 pPrice=0
 pBtoBPrice=0
 
 ' get price
 mySQL="SELECT price, bToBPrice FROM products WHERE idProduct=" &pIdProduct
 
 call getFromDatabase(mySQL, rstempSPrice, "specialPrices")  
 
 if not rstempSPrice.eof then
  pPrice	=rstempSPrice("price")
  pBtoBPrice	=rstempSPrice("bToBPrice")
 end if
 
 ' discount per qty
 mySQL="SELECT discountPerUnit FROM discountsPerQuantity WHERE idProduct=" &pIdProduct& " AND quantityFrom<=" &quantity& " AND quantityUntil>=" &quantity
  
 call getFromDatabase(mySQL, rsTempDPQ, "cartRecalculate")          	  

 if not rsTempDPQ.eof then  	
  	pDiscountPerUnit 	= rsTempDPQ("discountPerUnit")    
  	pPrice			= pPrice-pDiscountPerUnit
 	pBtoBPrice		= pBtoBPrice-pDiscountPerUnit
 
 else
  	pDiscountPerUnit  	= 0
 end if	
  
 ' special price
 if pIdCustomer<>0 then
 
  ' check if the customer has a special price for that product 
  mySQL="SELECT specialPrice FROM customer_specialPrices WHERE idProduct=" &pIdProduct& " AND idCustomer="&pIdCustomer
 
  call getFromDatabase(mySQL, rstempSPrice, "specialPrices")  

  if not rstempSPrice.eof then
   pPrice		=rstempSPrice("specialPrice")
   pBtoBPrice		=rstempSPrice("specialPrice") 
  end if  
   
 end if

 if pIdCustomerType=1 then
   getPriceByQty=pPrice
 else  
   getPriceByQty=pBtoBPrice  
 end if
   
end function

%>  
<%
' Comersus Sophisticated Cart 
' Comersus Open Technologies
' USA - 2006
' http://www.comersus.com 
' Details: customer tracking
%>
<%


function customerTracking(pAction, pMisc)

 dim rstempgSN, pIdCustomer, pDate, pHour
 
 pDateFormat			= getSettingKey("pDateFormat")
 pEnableCustomerTracking	= getSettingKey("pEnableCustomerTracking")
 
 if pEnableCustomerTracking="-1" then
 
  pIdCustomer     = getSessionVariable("idCustomer",0)
 
  if pIdCustomer<>0 then
   
   pDate	=fixDate(Date())
   pHour	=Time
   
   mySQL="INSERT INTO customerTracking (idCustomer, trackingDate, trackingHour, action, misc, idStore) VALUES (" &pIdCustomer& ",'" &pDate& "','" &pHour& "','" &pAction& "','" &pMisc& "'," &pIdStore& ")"
   call updateDatabase(mySQL, rstempgSN, "customerTracking")    
  
  end if
 
 end if ' enabled
 
end function


%>  

<% 
dim mySQL, connTemp, rsTemp, pIdCategory, pCategoryDesc, pIdAffiliate, pDefaultLanguage, pStoreFrontDemoMode, pCurrencySign, pDecimalSign, pCompany, pAuctions, pListBestSellers, pNewsLetter, pPriceList, pStoreNews, pAffiliatesStoreFront, pCategoriesAlphOrder, pAllowNewCustomer, pHeaderKeywords, pCustomerName, pHeaderCartItems, pHeaderCartSubtotal, pMoneyDontRound, pImageCategory

call saveCookie()

on error resume next 

' set affiliate
pIdAffiliate=getUserInput(request.querystring("idAffiliate"),4)

if isNumeric(pIdAffiliate)then
   session("idAffiliate")= pIdAffiliate
end if

' get settings 

pStoreFrontDemoMode 	= getSettingKey("pStoreFrontDemoMode")
pCurrencySign	 	= getSettingKey("pCurrencySign")
pDecimalSign	 	= getSettingKey("pDecimalSign")
pCompany	 	= getSettingKey("pCompany")
pCompanySlogan 		= getSettingKey("pCompanySlogan")
pAboutUsLink 		= getSettingKey("pAboutUsLink")
pStoreLocation		= getSettingKey("pStoreLocation")
pHeaderKeywords 	= getSettingKey("pHeaderKeywords")
pShowSearchBox 		= getSettingKey("pShowSearchBox")

pAuctions		= getSettingKey("pAuctions")
pSuppliersList		= getSettingKey("pSuppliersList")
pNewsLetter 		= getSettingKey("pNewsLetter")
pAffiliatesStoreFront   = getSettingKey("pAffiliatesStoreFront")
pAllowNewCustomer	= getSettingKey("pAllowNewCustomer")
pRssFeedServer		= getSettingKey("pRssFeedServer")
pCategoriesAlphOrder	= getSettingKey("pCategoriesAlphOrder")
pShowNews		= getSettingKey("pShowNews")

' session
pIdCustomer     	= getSessionVariable("idCustomer",0)
pIdCustomerType 	= getSessionVariable("idCustomerType",1)

pIdCategoryRoot		= getCategoryStart(pIdStore)
   
   
' all root categories from category start
  
mySQL="SELECT idCategory, categoryDesc, imageCategory FROM categories WHERE active=-1 AND idParentCategory=" & pIdCategoryRoot & " AND idCategory<>" &pIdCategoryRoot
call getFromDatabase (mySql, rsTemp, "listCategoriesAndProducts") 

if rstemp.eof then
 response.redirect "comersus_message.asp?message="&Server.Urlencode(getMsg(7,"No ctg")) 
end if

call customerTracking("comersus_listCategories.asp", request.querystring)

%>

<HTML>
<HEAD>
<script language="JavaScript">
<!--
function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}
function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</script>
 
 	<meta http-equiv="Content-Language" content="en-us">
 
 	<%if pTitle<>"" then%>
	  <title><%=pCompany%> :: <%=pTitle%></title>
	<%else%>
	  <title><%=pCompany%> :: OnLine Store</title>
	<%end if%>
	
	<%if pMetaDescription="" then%>
	 <meta name="DESCRIPTION" content="<%=pCompany%> Shopping Cart :: Purchase OnLine">
	<%else%>
	 <meta name="DESCRIPTION" content="<%=pMetaDescription%>">
	<%end if%>
	
	<%if pSearchKeywords="" or isNull(pSearchKeywords) then%>
	 <meta name="KEYWORDS" content="<%=pHeaderKeywords%>">
	<%else%>
	 <meta name="KEYWORDS" content="<%=pSearchKeywords%>">
	<%end if%>
	
	<link rel="stylesheet" type="text/css" href="images/style.css">
	<meta name="robots" CONTENT="index, follow"> 
	<meta name="distribution" content="global">
	
</HEAD>
<BODY BGCOLOR=#AC4A03 LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0>
<table width="766" border="0" align="center" cellpadding="0" cellspacing="0">
  <!-- fwtable fwsrc="lobster_interface_v2.png" fwpage="Page 1" fwbase="lobster_interface_v2.png" fwstyle="Dreamweaver" fwdocid = "1785790770" fwnested="0" -->
  <tr>
	<td colspan="7" height="10px">&nbsp;</td>
	</tr>
  <tr>
    <td align="left" valign="top"><table width="460" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="460" align="left" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td align="left" valign="top"><img src="images/lobster_anim.gif" width="175" height="171"></td>
                <td align="left" valign="top"><img name="navshadow" src="images/navshadow.jpg" width="285" height="171" border="0" alt="Bay Lobsters Lobsters and Seafood"></td>
              </tr>
            </table></td>
        </tr>
        <tr>
          <td align="left" valign="top"><table border="0" cellspacing="0" cellpadding="0" 
                  bgcolor="White" style="width: 443px">
              
              <tr>
                <td align="left" valign="top"><a href="/default.aspx" target="_top" onMouseOver="MM_swapImage('home_btn','','images/home_btn_f2.gif',1);" onMouseOut="MM_swapImgRestore()"><img name="home_btn" src="images/home_btn.gif" width="52" height="21" border="0" alt="Home"></a></td>
                <td align="left" valign="top"><a href="/aboutus.aspx" target="_top" onMouseOver="MM_swapImage('about_btn','','images/about_btn_f2.gif',1);" onMouseOut="MM_swapImgRestore()"><img name="about_btn" src="images/about_btn.gif" width="68" height="21" border="0" alt="About Us"></a></td>
                <td align="left" valign="top"><a href="comersus_listItems.asp" target="_top" onMouseOver="MM_swapImage('products_btn','','images/products_btn_f2.gif',1);" onMouseOut="MM_swapImgRestore()"><img name="products_btn" src="images/products_btn.gif" width="65" height="21" border="0" alt="Products"></a></td>
                <td align="left" valign="top"><a href="/orderinfo.aspx" target="_top" onMouseOver="MM_swapImage('ordering_btn','','images/ordering_btn_f2.gif',1);" onMouseOut="MM_swapImgRestore()"><img name="ordering_btn" src="images/ordering_btn.gif" width="87" height="21" border="0" alt="Ordering Info"></a></td>
                <td align="left" valign="top"><a href="/recipes.aspx" target="_top"><img src="images/recipes_btn.gif" alt="Recipes" name="Image1" width="56" height="21" border="0" id="Image1" onMouseOver="MM_swapImage('Image1','','images/recipes_btn_f2.gif',1)" onMouseOut="MM_swapImgRestore()"></a></td>
                <td align="left" valign="top"><a href="/contactus.aspx" target="_top" onMouseOver="MM_swapImage('contact_btn','','images/contact_btn_f2.gif',1);" onMouseOut="MM_swapImgRestore()"><img name="contact_btn" src="images/contact_btn.gif" width="74" height="21" border="0" alt="Contact Us"></a></td>
                <td align="left" valign="top"><a href="/login.aspx" target="_top" onMouseOver="MM_swapImage('login_btn','','images/login_btn_f2.gif',1);" onMouseOut="MM_swapImgRestore()"><img name="login_btn" src="images/login_btn.gif" width="58" height="21" border="0" alt="Log In"></a></td>
              </tr>
            </table></td>
        </tr>
        <tr>
          <td align="left" valign="top"><img name="logoarea" src="images/logoarea.jpg" width="460" height="19" border="0" alt=""></td>
        </tr>
      </table></td>
    <td align="left" valign="top"><table width="100" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td align="left" valign="top"><table width="282" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td><img name="top_leftcorner" src="images/top_leftcorner.jpg" width="74" height="19" border="0" alt=""></td>
                <td><a href="default.aspx" target="_top"><img name="homeicon" src="images/homeicon.jpg" width="11" height="19" border="0" alt="Home"></a></td>
                <td><img name="top_onespacer" src="images/top_onespacer.jpg" width="27" height="19" border="0" alt=""></td>
                <td><a href="contactus.aspx" target="_top"><img name="emailicon" src="images/emailicon.jpg" width="14" height="19" border="0" alt="Contact"></a></td>
                <td><img name="top_twospacer" src="images/top_twospacer.jpg" width="25" height="19" border="0" alt=""></td>
                <td><a href="orderinginfo.htm" target="_top"><img name="orderingicon" src="images/orderingicon.jpg" width="14" height="19" border="0" alt="Ordering Info"></a></td>
                <td><img name="rightcorner_spacer" src="images/rightcorner_spacer.jpg" width="117" height="19" border="0" alt=""></td>
              </tr>
            </table></td>
        </tr>
        <tr>
          <td align="left" valign="top"><img name="cutline" src="images/cutline.jpg" width="307" height="132" border="0" alt="24 hour fresh seafood"></td>
        </tr>
        <tr>
          <td align="left" valign="top"><img name="recipes_right" src="images/recipes_right.jpg" width="307" height="60" border="0" alt=""></td>
        </tr>
      </table></td>
      

<TABLE WIdTH=767 BORDER=0 CELLPADDING=0 CELLSPACING=0 align="Center" style="background-color:white" >
  <!--<TR> 
  	<TD><IMG SRC="Images/Comersus-ASP-Cart-707_02.jpg" WIDTH=43 HEIGHT=46 ALT=""></TD>
  	<TD COLSPAN=3 background="Images/Comersus-ASP-Cart-707_03.jpg"> 
        <h1><%'if pStoreFrontDemoMode="0" then response.write pCompany%></h1>
  	</TD>
    <TD background="Images/Comersus-ASP-Cart-707_04.jpg"> 
      <div align="right"><%=pCurrencySign & money(getSessionVariable("cartSubTotal",0))%>&nbsp;&nbsp;&nbsp;</div>
    </TD>
    <TD> <IMG SRC="Images/Comersus-ASP-Cart-707_05.jpg" WIDTH=85 HEIGHT=46 ALT=""></TD>
    <TD> <IMG SRC="Images/spacer.gif" WIDTH=1 HEIGHT=46 ALT=""></TD>
  </TR>-->
  
  
  <!--<tr>   For total amount uncomment this
  	<td colspan="3" align="left"><h1><%'if pStoreFrontDemoMode="0" then response.write pCompany%></h1></td>
    <TD><img name="top_leftcorner" src="images/Comersus-ASP-Cart-707_04.jpg"  border="0" alt=""> 
      <div align="right"><%=pCurrencySign & money(getSessionVariable("cartSubTotal",0))%>&nbsp;&nbsp;&nbsp;</div>
    </TD>
    
  
  </tr>-->
  <!--<TR> 
    <TD COLSPAN=2> <a href="comersus_listItems.asp"><IMG SRC="Images/Comersus-ASP-Cart-707_06.jpg" WIDTH=212 HEIGHT=94 ALT="" border="0"></a></TD>
    <TD> <a href="comersus_customerUtilitiesMenu.asp"><IMG SRC="Images/Comersus-ASP-Cart-707_07.jpg" WIDTH=171 HEIGHT=94 ALT="" border="0"></a></TD>
    <TD> <a href="comersus_showCart.asp"><IMG SRC="Images/Comersus-ASP-Cart-707_08.jpg" WIDTH=172 HEIGHT=94 ALT="" border="0"></a></TD>
    <TD COLSPAN=2> <a href="comersus_contactUs.asp"><IMG SRC="Images/Comersus-ASP-Cart-707_09.jpg" WIDTH=211 HEIGHT=94 ALT="" border="0"></a></TD>
    <TD> <IMG SRC="Images/spacer.gif" WIDTH=1 HEIGHT=94 ALT=""></TD>
  </TR>-->
  <!--<TR> 
    <TD> <IMG SRC="Images/Comersus-ASP-Cart-707_10.jpg" WIDTH=43 HEIGHT=23 ALT=""></TD>
    <TD> <IMG SRC="Images/Comersus-ASP-Cart-707_11.jpg" WIDTH=169 HEIGHT=23 ALT=""></TD>
    <TD> <IMG SRC="Images/Comersus-ASP-Cart-707_12.jpg" WIDTH=171 HEIGHT=23 ALT=""></TD>
    <TD> <IMG SRC="Images/Comersus-ASP-Cart-707_13.jpg" WIDTH=172 HEIGHT=23 ALT=""></TD>
    <TD> <IMG SRC="Images/Comersus-ASP-Cart-707_14.jpg" WIDTH=126 HEIGHT=23 ALT=""></TD>
    <TD> <IMG SRC="Images/Comersus-ASP-Cart-707_15.jpg" WIDTH=85 HEIGHT=23 ALT=""></TD>
    <TD> <IMG SRC="Images/spacer.gif" WIDTH=1 HEIGHT=23 ALT=""></TD>
  </TR>-->
    <tr>
	<td colspan="7" height="10px"></td>
	</tr>
  <TR > 
 <TD bgcolor="#FFFFFF" width="6px">&nbsp;</TD>
 

    <TD bgcolor="#FFDEAD" width="27%" style="valign: top"> <!--<IMG SRC="Images/Comersus-ASP-Cart-707_17.jpg" WIDTH=169 HEIGHT=23 ALT="">-->
<FORM action="http://www.baylobsters.com/comersus7f/store/comersus_listItems.asp" 
        method=post style="top: 0px">
<b style="font-size: 10px">&nbsp;Product Search</b><br>&nbsp;<INPUT size=20 name=strSearch></A>&nbsp;<input id="Submit1" style="background-image: url(images/search_icon.gif); border: none 0px;
                                                width: 16px; height: 16px" type="submit" value="" /><br />
<br />
<br />
&nbsp;<a target="_top" href="luckybucks.htm"><img src="images/luckybucks_final.jpg" alt="Lucky Bucks" width="164" height="76" border="0"></a></FORM>
                                                
                                                </TD>
    <TD COLSPAN=3 ROWSPAN=22 bgcolor="#FFFFFF" > 
<div style="overflow: auto;  height: 800; width: 460;background-color:white;margin-left:8px" > 
<br><b><%=getMsg(12,"Categories")%></b><br><br>
<table width=100% cellspacing="2" cellpadding="2">
<%
pColumnCounter=1

do while not rstemp.eof
 
 pIdCategory	=rstemp("idCategory")
 pCategoryDesc	=rstemp("categoryDesc")
 pImageCategory	=rstemp("imageCategory")
%>

 <%if pColumnCounter=1 then%> 
  <tr>
 <%end if%>
  
  <td>  
  <%if pImageCategory<>"" then%>
   <img src="catalog/<%=pImageCategory%>" alt="<%=pCategoryDesc%>"><br>
  <%end if%>
  <a href="comersus_listOneCategory.asp?idCategory=<%=pIdCategory%>"><%=pCategoryDesc%></a><br><br>  
  </td>
    
 <%if pColumnCounter=3 then%>    
  </tr>
 <%end if%>

<%
 
  pColumnCounter	= pColumnCounter+1
  
  if pColumnCounter=4 then 
   pColumnCounter=1
  end if
   
rstemp.movenext
loop

' adjust table
if pColumnCounter=2 then
 response.write "<td>&nbsp;</td><td>&nbsp;</td></tr>"
end if

if pColumnCounter=3 then
 response.write "<td>&nbsp;</td></tr>"
end if

%>
</table>

<%
pPayPalExpressCheckout	= getSettingKey("pPayPalExpressCheckout")
pGoogleCheckoutLevel1	= getSettingKey("pGoogleCheckoutLevel1")
%>
</div></TD>
	

    <TD ><!-- <a href="comersus_listItems.asp?hotDeal=-1">--><IMG SRC="Images/Comersus-ASP-Cart-707_35.jpg" WIDTH=85 HEIGHT=23 ALT="" border="0"></a></TD>
    <TD > <IMG SRC="Images/spacer.gif" WIDTH=1 HEIGHT=23 ALT=""></TD>
  </TR>
  <TR> 
    <TD bgcolor="#FFFFFF" width="4px">&nbsp; </TD>
    <TD ROWSPAN=3 bgcolor="#FFDEAD"  > <!--<IMG SRC="Images/Comersus-ASP-Cart-707_21.jpg" WIDTH=169 HEIGHT=70 ALT="">-->
	<%if pIdCustomer=0 then%>
      <form name="login" method="post" action="comersus_customerAuthenticateExec.asp">
      
      <%if pStoreFrontDemoMode="-1" then%>
        &nbsp;<input type="text" name="email" size="8" value="test@comersus.com">
        <input type="password" name="password" size="8" value="123456">
      <%else%>
        &nbsp;<input type="text" name="email" size="8" value="Email">
        <input type="password" name="password" size="8" value="">
       <%end if%> 
        <br><br>
        &nbsp;<input type="submit" name="login" value="login">
      </form>
    <%else%>
     Welcome back <%=session("customerName")%>
     <div class="b01">
     <br>&nbsp;<img src="images/arrow.gif"> &nbsp;<a href="comersus_customerUtilitiesMenu.asp">Your Account</a> 
     <br>&nbsp;<img src="images/arrow.gif"> &nbsp;<a href="comersus_customerLogout.asp">Logout</a></div>
     <%end if%>
	</TD>
    <TD ><!-- <a href="comersus_listItems.asp?hotDeal=-1">--><IMG SRC="Images/Comersus-ASP-Cart-707_35.jpg" WIDTH=85 HEIGHT=0 ALT="" border="0"></a></TD>
    <TD> <IMG SRC="Images/spacer.gif" WIDTH=1 HEIGHT=0 ALT=""></TD>
  </TR>
  <TR> 
    <TD bgcolor="#FFFFFF" width="4px">&nbsp; </TD>
    <TD><!-- <a href="comersus_listItems.asp?hotDeal=-1">--><IMG SRC="Images/Comersus-ASP-Cart-707_35.jpg" WIDTH=85 HEIGHT=0 ALT="" border="0"></a></TD>
    <TD> <IMG SRC="Images/spacer.gif" WIDTH=1 HEIGHT=0 ALT=""></TD>
  </TR>
  <TR> 
    <TD bgcolor="#FFFFFF" width="4px">&nbsp; </TD>
    <TD><!-- <a href="comersus_listItems.asp?hotDeal=-1">--><IMG SRC="Images/Comersus-ASP-Cart-707_35.jpg" WIDTH=85 HEIGHT=0 ALT="" border="0"></a></TD>
    <TD> <IMG SRC="Images/spacer.gif" WIDTH=1 HEIGHT=0 ALT=""></TD>
  </TR>
  <TR> 
    <TD bgcolor="#FFFFFF" width="4px">&nbsp;</TD>
    <TD ROWSPAN=4 bgcolor="#FFDEAD"> 
    
    <% 
' Comersus Shopping Cart 
' Comersus Open Technologies
' United States 
' Software License can be found at License.txt
' http://www.comersus.com  
' Details: get root categories
%>

<%

pShowCategories	= getSettingKey("pShowCategories")

if pShowCategories="-1" then

%>
             	
<%
 pIdCategoryStart=getCategoryStart(pIdStore)
 
 dim pCountCategories
 pCountCategories=0
 
 ' get categories
 mySQL="SELECT idCategory, categoryDesc FROM categories WHERE idParentCategory=" &pIdCategoryStart& " AND active=-1 AND idCategory<>1 ORDER BY categoryDesc"

 call getFromDatabase (mySql, rsTempRoot, "getRootCategories")

 do while not rsTempRoot.eof and pCountCategories<8%>  
  
  <div class="b01">&nbsp;<img src="images/arrow.gif"> &nbsp;<a href="comersus_listOneCategory.asp?idCategory=<%=rsTempRoot("idCategory")%>"><%=rsTempRoot("categoryDesc")%></a></div>  
  
  <%
  pCountCategories=pCountCategories+1
  rsTempRoot.movenext
loop

%>
<div class="b01">&nbsp;<img src="images/arrow.gif"> &nbsp;<a href="comersus_listCategories.asp"><%=getMsg(94,"All")%>&nbsp;<%=getMsg(12,"Ctg")%></a></div>  	
<%
end if%>


    </TD>
    <TD > <IMG SRC="Images/Comersus-ASP-Cart-707_35.jpg" WIDTH=85 HEIGHT=0 ALT=""></TD>
    <TD> <IMG SRC="Images/spacer.gif" WIDTH=1 HEIGHT=0 ALT=""></TD>
  </TR>
  <TR> 
    <TD bgcolor="#FFFFFF" width="4px">&nbsp;</TD>
    <TD> <IMG SRC="Images/Comersus-ASP-Cart-707_31.jpg" WIDTH=85 HEIGHT=23 ALT=""></TD>
    <TD> <IMG SRC="Images/spacer.gif" WIDTH=1 HEIGHT=23 ALT=""></TD>
  </TR>
  <TR> 
    <TD bgcolor="#FFFFFF" width="4px">&nbsp;</TD>
    <TD> <IMG SRC="Images/Comersus-ASP-Cart-707_33.jpg" WIDTH=85 HEIGHT=23 ALT=""></TD>
    <TD> <IMG SRC="Images/spacer.gif" WIDTH=1 HEIGHT=23 ALT=""></TD>
  </TR>
  <TR> 
    <TD ROWSPAN=2 bgcolor="#FFFFFF" width="4px">&nbsp;</TD>
    <TD ROWSPAN=2 > <IMG SRC="Images/Comersus-ASP-Cart-707_35.jpg" WIDTH=85 HEIGHT=24 ALT=""></TD>
    <TD> <IMG SRC="Images/spacer.gif" WIDTH=1 HEIGHT=23 ALT=""></TD>
  </TR>
  <TR> 
    <TD ROWSPAN=4 bgcolor="#FFDEAD" Valign="top">
	
 <!--<IMG SRC="Images/Comersus-ASP-Cart-707_36.jpg" WIDTH=169 HEIGHT=70 ALT="">--></TD>
    <TD> <IMG SRC="Images/spacer.gif" WIDTH=1 HEIGHT=1 ALT=""></TD>
  </TR>
  <TR> 
    <TD bgcolor="#FFFFFF" width="4px">&nbsp;</TD>
    <TD> <IMG SRC="Images/Comersus-ASP-Cart-707_38.jpg" WIDTH=85 HEIGHT=23 ALT=""></TD>
    <TD> <IMG SRC="Images/spacer.gif" WIDTH=1 HEIGHT=23 ALT=""></TD>
  </TR>
  <TR> 
    <TD bgcolor="#FFFFFF" width="4px">&nbsp;</TD>
    <TD > <IMG SRC="Images/Comersus-ASP-Cart-707_40.jpg" WIDTH=85 HEIGHT=23 ALT=""></TD>
    <TD> <IMG SRC="Images/spacer.gif" WIDTH=1 HEIGHT=23 ALT=""></TD>
  </TR>
  <TR> 
    <TD ROWSPAN=2 bgcolor="#FFFFFF" width="4px">&nbsp;</TD>
    <TD ROWSPAN=2> <IMG SRC="Images/Comersus-ASP-Cart-707_42.jpg" WIDTH=85 HEIGHT=24 ALT=""></TD>
    <TD> <IMG SRC="Images/spacer.gif" WIDTH=1 HEIGHT=23 ALT=""></TD>
  </TR>
  <TR> 
    <TD ROWSPAN=10 bgcolor="#FFDEAD" valign="top">         
     <!--include file="comersus_getRootCategories.asp"-->  
     <%if pShowSearchBox="-1" then%>
     <!--<form method=post action=comersus_listItems.asp><input type=text name=strSearch size=15></a><br><br><input type=submit value=Search></form>-->
     <%end if%>
     </TD>
    <TD> <IMG SRC="Images/spacer.gif" WIDTH=1 HEIGHT=1 ALT=""></TD>
  </TR>
  <TR> 
    <TD bgcolor="#FFFFFF" width="4px">&nbsp;</TD>
    <TD> <IMG SRC="Images/Comersus-ASP-Cart-707_45.jpg" WIDTH=85 HEIGHT=23 ALT=""></TD>
    <TD> <IMG SRC="Images/spacer.gif" WIDTH=1 HEIGHT=23 ALT=""></TD>
  </TR>
  <TR> 
    <TD bgcolor="#FFFFFF" width="4px">&nbsp;</TD>
    <TD> <IMG SRC="Images/Comersus-ASP-Cart-707_47.jpg" WIDTH=85 HEIGHT=23 ALT=""></TD>
    <TD> <IMG SRC="Images/spacer.gif" WIDTH=1 HEIGHT=23 ALT=""></TD>
  </TR>
  <TR> 
    <TD bgcolor="#FFFFFF" width="4px">&nbsp;</TD>
    <TD> <IMG SRC="Images/Comersus-ASP-Cart-707_49.jpg" WIDTH=85 HEIGHT=24 ALT=""></TD>
    <TD> <IMG SRC="Images/spacer.gif" WIDTH=1 HEIGHT=24 ALT=""></TD>
  </TR>
  <TR> 
    <TD bgcolor="#FFFFFF" width="4px">&nbsp;</TD>
    <TD> <IMG SRC="Images/Comersus-ASP-Cart-707_51.jpg" WIDTH=85 HEIGHT=23 ALT=""></TD>
    <TD> <IMG SRC="Images/spacer.gif" WIDTH=1 HEIGHT=23 ALT=""></TD>
  </TR>
  <TR> 
    <TD bgcolor="#FFFFFF" width="4px">&nbsp;</TD>
    <TD> <IMG SRC="Images/Comersus-ASP-Cart-707_53.jpg" WIDTH=85 HEIGHT=23 ALT=""></TD>
    <TD> <IMG SRC="Images/spacer.gif" WIDTH=1 HEIGHT=23 ALT=""></TD>
  </TR>
  <TR> 
    <TD bgcolor="#FFFFFF" width="4px">&nbsp;</TD>
    <TD> <IMG SRC="Images/Comersus-ASP-Cart-707_55.jpg" WIDTH=85 HEIGHT=24 ALT=""></TD>
    <TD> <IMG SRC="Images/spacer.gif" WIDTH=1 HEIGHT=24 ALT=""></TD>
  </TR>
  <TR> 
    <TD bgcolor="#FFFFFF" width="4px">&nbsp;</TD>
    <TD> <IMG SRC="Images/Comersus-ASP-Cart-707_57.jpg" WIDTH=85 HEIGHT=23 ALT=""></TD>
    <TD> <IMG SRC="Images/spacer.gif" WIDTH=1 HEIGHT=23 ALT=""></TD>
  </TR>
  <TR> 
    <TD bgcolor="#FFFFFF" width="4px">&nbsp;</TD>
    <TD> <IMG SRC="Images/Comersus-ASP-Cart-707_59.jpg" WIDTH=85 HEIGHT=23 ALT=""></TD>
    <TD> <IMG SRC="Images/spacer.gif" WIDTH=1 HEIGHT=23 ALT=""></TD>
  </TR>
  <TR> 
    <TD bgcolor="#FFFFFF" width="4px">&nbsp;</TD>
    <TD> <IMG SRC="Images/Comersus-ASP-Cart-707_61.jpg" WIDTH=85 HEIGHT=24 ALT=""></TD>
    <TD> <IMG SRC="Images/spacer.gif" WIDTH=1 HEIGHT=24 ALT=""></TD>
  </TR>
  <TR> 
    <TD bgcolor="#FFFFFF" width="4px">&nbsp;</TD>
    <TD> <a href="http://www.comersus.com" target="_blank"><IMG SRC="Images/Comersus-ASP-Cart-707_63.jpg" WIDTH=169 HEIGHT=23 ALT="Get your Free Shopping Cart" border="0"></a></TD>
    <TD COLSPAN=3> <IMG SRC="Images/Comersus-ASP-Cart-707_64.jpg" WIDTH=469 HEIGHT=23 ALT=""></TD>
    <TD> <IMG SRC="Images/Comersus-ASP-Cart-707_65.jpg" WIDTH=85 HEIGHT=23 ALT=""></TD>
    <TD> <IMG SRC="Images/spacer.gif" WIDTH=1 HEIGHT=23 ALT=""></TD>
  </TR>
  <TR> 
    <TD>&nbsp;</TD>
    <TD colspan="5">
      <div align="center">

<a href="http://www.baylobsters.com/index.htm">Home</a> |&nbsp;
<a href="http://www.baylobsters.com/aboutus.htm">about us</a> |&nbsp;
<a href="http://www.baylobsters.com/comersus7f/">products</a> |&nbsp;
<a href="http://www.baylobsters.com/orderinginfo.htm">ordering info</a> |&nbsp;
<a href="http://www.baylobsters.com/recipes.htm">recipes</a> |&nbsp;
<a href="http://www.baylobsters.com/contactus.aspx">contact us</a> |&nbsp;
<a href="http://www.baylobsters.com/comersus7f/store/comersus_checkOutCustomerForm.asp">Register</a>&nbsp;<br>
&nbsp;<a href="http://www.baylobsters.com/testimonials.htm">testimonials</a> |&nbsp;
<a href="http://baylobsters.com/privacypolicy.htm">privacy policy</a>
<%'if pAuctions="-1" then%>
 <!--<a href="comersus_optAuctionListAll.asp">Auctions</a>&nbsp;&nbsp;-->
<%'end if%>

<%'if pNewsLetter="-1" then%>
<!-- <a href="comersus_optNewsLetterAddEmailForm.asp">Newsletter</a>&nbsp;&nbsp;-->
<%'end if%>

<!--<a href="comersus_wapInfo.asp">WAP</a>&nbsp;&nbsp;-->
<br> 

<%'if pAllowNewCustomer="-1" then%>
 <!--<a href="comersus_customerRegistrationForm.asp">Register</a>&nbsp;&nbsp;-->
<%'end if%>

<%'if pSuppliersList="-1" then%>
<!-- <a href="comersus_optListSuppliers.asp">Suppliers List</a>&nbsp;&nbsp;-->
<%'end if%>

<%'if pRssFeedServer="-1" then%>
 <!--<a href="comersus_rssInfo.asp">RSS News Feed</a>&nbsp;&nbsp;-->
<%'end if%>

<%'if pAffiliatesStoreFront="-1" then%>
 <!--<a href="comersus_optAffiliateRegistrationForm.asp">Affiliate Registration</a>&nbsp;&nbsp;-->
<%'end if%>

<!--<a href="comersus_storeSurveyForm.asp">Survey</a>&nbsp;&nbsp;
<a href="comersus_contactUs.asp">Contact us</a>

<br><a href="comersus_conditions.asp" target="_blank"><%'=getMsg(470,"terms")%></a>

<br><br>-->
<%'if pRssFeedServer="-1" then%>
 <!--<a href="http://<%=pStoreLocation%>/rss"><img src="images/rssfeedicon.gif" border=0 alt="RSS Feed"></a>-->
<%'end if%>
      
        <!--<br>-->
        <br>
       <strong>Copyright &copy; 2008 BayLobsters. All rights   reserved.</strong></div>
    </TD>
    <TD>&nbsp;</TD></TR></TABLE><!-- Start of StatCounter Code -->
<script type="text/javascript">
sc_project=3755154; 
sc_invisible=1; 
sc_partition=40; 
sc_security="cbd8242b"; 
</script>

<script type="text/javascript"  src="http://www.statcounter.com/counter/counter_xhtml.js"></script><noscript><div  class="statcounter"><a href="http://www.statcounter.com/free_hit_counter.html" target="_blank"><img  class="statcounter" src="http://c41.statcounter.com/3755154/0/cbd8242b/1/" alt="counter fake hit  page" ></a></div></noscript>
<!-- End of StatCounter Code --></BODY></HTML> 

<%call closeDb()%>