<%
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 products")
'****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
Response.Write("") 'Product Image
Response.Write("
" & dsArray(2,i) & "
") 'Product Price
Next
'Response.Write(FormatNumber(((oFile.Size/1024)/1024),1) + "MB")
End Sub
%>
