<% 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
  Call us now on 01761 452177


 
 

Czesci

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 "" End If If 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 "" Next End If %>
" End IF %> &van=<%=objRS("Van_Name")%>"><%=objRS("Van_Name")%>
<% iCount = icount + 1 If iCount = 4 then Response.Write "