<% OPTION EXPLICIT Response.Buffer = True %> <% Dim nCATEGORYId nCATEGORYId = Request.QueryString("fldAuto") if nCATEGORYId = "" Then Response.Redirect "demo.asp" End If Dim oCATEGORYConn, oCATEGORY Set oCATEGORYConn = CATEGORY_GetDatabaseConn() Set oCATEGORY = oCATEGORYConn.Execute("select model, model.fldAuto as qid, category.name as categoryname, brand.name as brandname from "&CATEGORY_GetTablePrefix()&"model as model, "&CATEGORY_GetTablePrefix()&"category as category, "&CATEGORY_GetTablePrefix()&"brand as brand where model.brand_fldAuto=brand.fldAuto AND brand.category_fldAuto=category.fldAuto AND category.fldAuto = " & nCATEGORYId & " order by brand.orderingfield, model.orderingfield" ) %> Paris Pittoresque
Paris Pittoresque
 
<%=oCATEGORY("categoryname")%> <% 'Present the questions... Dim sCurrentSubcat Response.Write "" While Not oCATEGORY.EOF If sCurrentSubcat <> Trim( oCATEGORY("brandname").Value ) Then 'Start a new one... If sCurrentSubcat <> "" Then 'Avsluta gamla Response.Write "" End If Response.Write "" Response.Write "" End If Response.Write "
" & oCATEGORY("brandname").Value & "
" oCATEGORY.CLose Set oCATEGORY = Nothing oCATEGORYConn.Close Set oCATEGORYConn = Nothing %>