MACHINE SPECIALS

Welcome to this weeks specials.

If you want a bargain, you've come to the right place!

ALL SPECIAL OFFERS END 6PM FRIDAY.
<% '------------------------------------------------ '**** Open DB connection and retrieve results. ** '------------------------------------------------ Set Conn=Server.CreateObject("ADODB.Connection") conn.cursorlocation=3 Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&ProductDSN mysearchstring = "Select * FROM MACHINESPECIALS;" sql = mysearchstring set rs = conn.execute(sql) totalspecials = rs.RecordCount if totalspecials < 1 then '*** Display "NO RECORDS FOUND" %>
THERE ARE NO SPECIALS
<%else '------------------------------------------------ '*** Display results of SQL query in a table. ** '------------------------------------------------ %> <% howmanypics = 0 colcount=0 x = 0 rs.move(x) '*** Loop for each row of results table do while not rs.eof x=x+1 colcount=colcount+1 id=rs("ID") title=rs("TITLE") stockcode=rs("STOCKCODE") desc=rs("description") descb=rs("descriptionb") descc=rs("descriptionc") picture=rs("picture") produrl=rs("URL") %> <% rs.movenext loop %>
<%response.write(title)%> <%response.write(StockCode) colcount=colcount+1%>
<%response.write(Desc)%> <% if picture <>"" then%> <%response.write(Picture)%> <%end if%>
<%response.write(Descb)%>
<% '------------------------------------------------ '*** Close and reset all connection strings *** '------------------------------------------------ rs.close set rs = nothing conn.close set conn = nothing end if %>