Warp Knitting Machines
<% Dim x, conntemp x = 0 set conntemp=server.createobject("adodb.connection") myDSN="DRIVER={Microsoft Access Driver (*.mdb)}; " myDSN=myDSN & "DBQ=" & server.mappath("../../db/gbtgdb.mdb") & ";uid=admin;pwd=P@sca1" conntemp.Open myDSN SQL="SELECT * FROM USEDMACHINERYWARP ORDER BY TYPE" set rs=conntemp.execute(SQL) %> <% do while not rs.eof %> <% If x = 0 Then bgcol = "#FFFFFF" end if if x = 1 Then bgcol = "#EFEFEF" end if %> <% if bgcol="#FFFFFF" Then x = 1 end if if bgcol="#EFEFEF" Then x = 0 end if %> <% rs.movenext %> <% loop %> <% rs.Close Set rs = Nothing conntemp.Close Set conntemp = Nothing %>
Type Model Quantity Age Width Guage
Enquire
<%=rs("TYPE")%>  <%=rs("MODEL")%>  <%=rs("QUANTITY")%>  <%=rs("AGE")%>  <%=rs("WIDTH")%>  <%=rs("GAUGE")%> 
Description
<%=rs("DESCRIPTION")%>  <%=rs("ID")%>
Extras
<%=rs("EXTRAS")%>  <% if rs("image") <> "" then %> ','gbtg','scrollbars=yes,resizable=yes,width=555,height=400')"> <% end if %>