<% 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

<%=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 & " " End If Response.Write " " Response.Write Trim(oCATEGORY("model").Value) & "" & " " sCurrentSubcat = oCATEGORY("brandname").Value oCATEGORY.MoveNext Wend If sCurrentSubcat <> "" Then Response.Write " " oCATEGORY.CLose Set oCATEGORY = Nothing oCATEGORYConn.Close Set oCATEGORYConn = Nothing %>