%@ Language=VBScript %> <% Dim strCookie, cookieArray, arraySize, intCounter strCookie = Request.Cookies("Purchase") cookieArray = Split(strCookie, ",", -1, 1) arraySize = UBound(cookieArray) Dim objConn, ObjRS, strQ, strConnection, blnHighlightRow Set objConn = Server.CreateObject("ADODB.Connection") strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\GeneralAccounts\sherba\htdocs\sherba.mdb" objConn.Open strConnection Set objRS = Server.CreateObject("ADODB.Recordset") Set objRS.ActiveConnection = objConn %>
|
|
| Mail Orders to: | Fax Orders to: | Phone Orders to: |
Sherba Analytical Lab Products P.O. BOX 880 New Port Richey, FL 34656 |
1(727) 844-3613 | 1(800) 228-5085 or 1(727) 849-9456 |
Please make Checks Payable to: |
||
Sherba Analytical Lab Products, Inc. |
||