Online Used Cars

<% startat = request.querystring ("startnum") if startat = false then dim startat startat = 1 end if %> <% filename = Server.MapPath("inchead.asp") set fs = CreateObject("Scripting.FileSystemObject") set file = fs.CreateTextFile(filename) file.WriteLine("") file.Close %> <% response.write "" dim b b=startat-1 c=1 do while b < rowamount response.write "" if c=5 then response.write "

" & years(b) & " - " & make(b) & " " & model(b) & " $" & price(b) & "
" & descriptions(b) & "

" response.write "
" if startat > 5 then response.write "" end if if rowamount > startat+4 then response.write " " end if response.write "" response.end end if b=b+1 c=c+1 loop response.write "" if startat > 5 then response.write "

" end if %>

logobuick.gif (2266 bytes) logododg.gif (4311 bytes) logomits.gif (1222 bytes) logobmw.gif (2016 bytes) logovw.gif (1983 bytes)