<% Dim objRec, objRecImage Set objRec = Server.CreateObject("ADODB.Recordset") Set objRecImage = Server.CreateObject("ADODB.Recordset") Dim sSQL, sSQLImage sSQL = "select p.id, p.productname, p.shortdesc, p.price, i.imagename, p.companyname, p.description from product p, images i where p.id = " & Request.QueryString("id") & " and p.id = i.productid and i.mainimage = '1' order by p.sequence" sSQLImage = "select * from images where productid = " & Request.QueryString("id") objRec.open sSQL,strConnect objRecImage.open sSQLImage,strConnect %> <%=objRec("productname")%>

<% if objRec("id") <> 146 then %>

<%=objRec("productname")%> (<%=objRec("companyname")%>) <%=objRec("price")%>    ">
" alt="" border="0" id="mainimage" width="360">	<% While Not objRecImage.EOF %> ', '<%=objRecImage("id")%>')">" alt="" border="0" width="100" height="75" id="img<%=objRecImage("id")%>"> <% objRecImage.movenext wend %> Please click to open
<%=objRec("description")%>

<% else Dim objRec1 Set objRec1 = Server.CreateObject("ADODB.Recordset") Dim sSQL1 sSQL1 = "select * from cabinets" objRec1.open sSQL1,strConnect %>
<% counter = 1 While Not objRec1.EOF %> <% counter = counter + 1 objRec1.movenext wend %>

	Reference	Brief Description	Price (+VAT)
">.gif" width="100" height="75" border="0">	<%=objRec1("name")%>	<%=objRec1("shortdesc")%>	£ <%=objRec1("price")%>

<% end if %>