ORDERING INSTRUCTIONS:
1. Add product(s) to cart.
2. Select the Secure Checkout button below when finished.

Call 954-448-6766 to place your order today!
<% Call ListParameters() %>
 

 
Home | Privacy | Contact Us
Copyright © 2006 JLTurbo. All Rights Reserved.
<% Sub ListParameters() 'On Error Resume Next dim db dim rs,counter dim thenames, ds '****SET UP THE CONNECTION AND GET ALL DATA Set db = Server.CreateObject("ADODB.Connection") db.Open "Driver={MySQL}; SERVER=mysql.jlturbo.com; DATABASE=jlturbo0; UID=jlturbo0; PWD=boost23" set rs=db.execute("SELECT * FROM fueltuning") '****SET UP THE CONNECTION AND GET ALL DATA ds = rs.GetRows() rs.Close db.Close ' Response.Write(ds(2,2)) call FillWebPage(ds) End Sub Sub FillWebPage(dsArray) dim i ' response.Write(dsArray(1,0) & " " & dsArray(2,0) & " " & dsArray(3,0) & "
") For i = 0 To UBound(dsArray,2) Response.Write("") Response.Write(dsArray(1,i) & "

") 'Product Name if dsArray(3,i)="" then Response.Write("

Image not available

") 'Product Image else Response.Write("") 'Product Image end if Response.Write("

" & dsArray(2,i) & "

") 'Product Price Next 'Response.Write(FormatNumber(((oFile.Size/1024)/1024),1) + "MB") End Sub %>