<% Option Explicit Dim i Dim intTimes Dim rsSquareback Dim strSQL Dim strConnectionstring Dim strId Dim strCategory Const adOpenKeyset = 1 Const adLockReadOnly = 1 Const adOpenStatic = 3 Const adLockPessimistic = 2 Const adCmdText = &H0001 Const adCmdTable = &H0002 strConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("database/squareback.mdb") & ";" Set rsSquareback = Server.CreateObject("ADODB.Recordset") Sub ShowLink(sTitle, sLink) %>
<%=sTitle%> <%=sTitle%>
<%=sTitle%>
<% End Sub %> Parts

VW Scirocco   .

Parts

Any    Type 3    Bug    Ghia    Bus    Vanagon    Thing   
<% strSQL = "SELECT * FROM categories;" rsSquareback.Open strSQL, strConnectionString, adOpenStatic, adLockReadOnly, adCmdText intTimes = 1 Do While Not rsSquareback.Eof intTimes = intTimes + 1 strId = "" & rsSquareback.Fields("id") strCategory = "" & rsSquareback.Fields("category") If intTimes = 1 Then %> <% End If %> <% If intTimes = 4 Then intTimes = 0 %> <% End If rsSquareback.Movenext Loop %>
Home Home
Home
<% Call ShowLink(strCategory, "parts_2.asp?id=" & strId & "&category=" & strCategory) %>