<% title = "Shop used or new electronic, health, antique, computer, sports items" %> <% Set cn1 = server.createobject("adodb.connection") DSNBlogs = "Driver={mySQL ODBC 3.51 Driver}; Server=173.165.122.135; Port=3306; Option=0; Socket=; Stmt=; Database=jcauction; Uid=jcauction; Pwd=au501jc;" cn1.Open DSNBlogs Set rs1 = server.createobject("adodb.recordset") sql = "select * from JCBID_auctions where closed='0' AND suspended='0' order by rand() limit 0,20" rs1.open sql, cn1 k = 0 do until rs1.eof if k = 0 then response.write " " & vbcrlf k = 1 else response.write " " & vbcrlf k = 0 end if rs1.movenext loop %>
JCBid Auction
" & vbcrlf else response.write " " & vbcrlf end if title = rs1(2) title = replace(title, "/", "-") title = replace(title, " ", "-") title = replace(title, "&", "-") title = replace(title, "#", "-") title = replace(title, ",", "-") title = replace(title, "--", "-") title = replace(title, "--", "-") title = replace(title, "--", "-") response.write "" & vbcrlf if rs1(21) = 1 then response.write "" & vbcrlf else response.write "" & vbcrlf end if response.write "
" & rs1(2) & "" & vbcrlf if k = 0 then response.write "