%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rsprodsearch Dim rsprodsearch_numRows Set rsprodsearch = Server.CreateObject("ADODB.Recordset") rsprodsearch.ActiveConnection = MM_connHQ_STRING rsprodsearch.Source = "SELECT * FROM tblPricelist ORDER BY category ASC" rsprodsearch.CursorType = 0 rsprodsearch.CursorLocation = 2 rsprodsearch.LockType = 1 rsprodsearch.Open() rsprodsearch_numRows = 0 %>
|
||||||||||||||
| WELCOME | ABOUT US | PRODUCTS | ORDERS | CONTACT US | SPECIALS | VIRTUAL SALONS *PORTUGUESE | ||||||||||||||
|
||||||||||||||
| Important Notice to our customers... | Put us to the test | |||||||||||||
|
||||||||||||||
|
||||||||||||||