<%
Dim strSQL, objRS, strError
Set objRS = Server.CreateObject("ADODB.Recordset")
strSQL = "Select * From Vans order by van_name"
objRS.Open strSQL, objConn, , adlockOptimistic
%>
United Vans - Van Parts and Spares
Prosze wybrac model, aby zobaczyc jakie czesci dla niego oferujemy.
Jesli nie znajdziesz tego, czego szukasz, to zadzwon do nas lub napisz nam e-mail. Istnieje duze prawdopodobienstwo, ze jednak jestesmy w posiadaniu czesc której szukasz.
<%
dim icolumCount, iRowCount, iCount
iCount = 0
icolumCount = 1
iRowCount = 0
Do until objRS.EOF
If icolumCount = 1 and iCount = 0 then
Response.Write "
"
iCount = 0
iColumCount = iColumCount + 1
End If
If iColumCount = 4 then
Response.write "
"
iColumCount = 1
End If
objRS.MoveNext
Loop
objRS.close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
If iColumCount <> 1 then
If iCount < 4 then
Response.write ""
End If
Dim iLoop
For iLoop = 1 to (3 - iColumCount)
Response.write "
