<%@LANGUAGE = VBSCRIPT%> <%Option Explicit%> <%Response.Buffer = True%> <% Dim strID Dim arrCart Dim iCount 'If Session("ID") <> "" then ' arrCart = Split(Session("ID"), "@", -1,1) 'iCount = UBound(arrCart) 'Else 'iCount = 0 'End if %> <% If TRIM(Session("ID")) <> "" and Request("ID") <> "" then 'IF SESSION NOT ISNULL Dim strSample, strString, strJoin Dim iLen, iCounter Dim strQuery, rstProd, conProd Dim strList 'parse session variable strSample= Session("ID") iLen = len(sTRSample) strString = Mid(strSample, 2, iLen -2) arrCart = Split(strString, "@+",-1,1) 'strJoin = Join(arrCart,",") For iCounter = LBound(arrCart) to UBound(arrCart) Call Open_Con(conProd) strQuery = "SELECT * FROM Products WHERE Prod_ID = " & arrCart(iCounter) Call Open_Rst(rstProd, conProd, strQuery) strList = strList & iCounter + 1 & ". " & TRIM(rstProd("Prod_Code")) & "
" Call Close_All(rstProd, conProd) Next End if %> How to get to Halley Marketing

 

Home | About Halley Mktg | Contact Us | How To Get Here    

    Home > Contact Us  
Contact Halley Marketing
-----------------------------------------------------------------------------------

 


Name :
Company :
Tel Num:
email :
Subject :
<% If Request("Ask") <> "" then %> "> <% Elseif Request("ID") <> "" then %> <% Else %> <% End If %>
   
Your Message :
<% If Request("ID") <> "" then %> <% Else %> <% End If %>
   
   

 

Item not on catalog ?
Email Us and we will try to check our offline inventory for available stock.

 

HALLEY MARKETING
1761 Jose Abad Santos., Tondo, Manila, Philippines.

Tel No.'s :
(632) 251-0506
(632) 253-3101
(632) 253-3312

Fax No. :
(632) 253-3099