<% Set rs1 = Server.CreateObject("ADODB.Recordset") rs1.ActiveConnection = databas if request.QueryString("idtype") = "bid" then rs1.source = "SELECT * FROM product WHERE " & request.QueryString("idtype") & " = " & request.QueryString("id") & " ORDER BY prio_brand ASC, artnr ASC" elseif request.QueryString("idtype") = "did" then rs1.source = "SELECT * FROM product WHERE " & request.QueryString("idtype") & " = " & request.QueryString("id") & " ORDER BY prio_designer ASC, artnr ASC" elseif request.QueryString("idtype") = "scid" then set rs2 = databas.execute("SELECT * FROM subcat WHERE id = " & request.QueryString("id")) if rs2("sn") = 1 then rs1.source = "SELECT * FROM product WHERE " & request.QueryString("idtype") & " = " & request.QueryString("id") & " ORDER BY prio_subcat ASC, name ASC" else rs1.source = "SELECT * FROM product WHERE " & request.QueryString("idtype") & " = " & request.QueryString("id") & " ORDER BY prio_subcat ASC, artnr ASC" end if elseif request.QueryString("idtype") = "new" then rs1.source = "SELECT * FROM product WHERE " & request.QueryString("idtype") & " = " & request.QueryString("id") & " ORDER BY added DESC" else rs1.source = "SELECT * FROM product WHERE " & request.QueryString("idtype") & " = " & request.QueryString("id") & " ORDER BY prio_subcat ASC, artnr ASC" end if rs1.cursortype = 3 rs1.pagesize = 1 rs1.LockType = 1 rs1.Open rs1.absolutepage = request.QueryString("page") %>
.jpg" width="350" height="350">   <% response.Write("" & replace(rs1("name"),"[NYRAD]","
") & "


") if cint(rs1("show_artn")) = 1 then response.Write("Article nr:
" & rs1("artnr") & "

") end if if cint(rs1("show_desi")) = 1 then response.Write("Designer:
") set rs2 = databas.execute("SELECT * FROM designer WHERE id = " & rs1("did")) response.Write(rs2("firstname") & " " & rs2("surname") & "

") end if if cint(rs1("show_manu")) = 1 then response.Write("Manufacturer:
" & rs1("manufacturer") & "

") end if if cint(rs1("show_year")) = 1 then response.Write("Design year:
" & rs1("year") & "

") end if if cint(rs1("show_mate")) = 1 then response.Write("Materials:
" & rs1("materials") & "

") end if if cint(rs1("show_dime")) = 1 then response.Write("Dimension:
" & rs1("dimension") & "

") end if if cint(rs1("show_note")) = 1 then response.Write("Notes:
" & format(rs1("notes")) & "

") end if %>
<% if request.QueryString("idtype") = "new" then response.Write("News / " & replace(rs1("name"),"[NYRAD]"," - ")) elseif request.QueryString("idtype") = "did" then set rs2 = databas.execute("SELECT * FROM designer WHERE id = " & rs1("did")) response.Write("") response.Write("Designers / " & rs2("firstname") & " " & rs2("surname") & "īs design / " & replace(rs1("name"),"[NYRAD]"," - ") & "") elseif request.QueryString("idtype") = "bid" then set rs2 = databas.execute("SELECT * FROM brand WHERE id = " & rs1("bid")) response.Write("") response.Write("Brands / " & rs2("name") & " / " & replace(rs1("name"),"[NYRAD]"," - ") & "") elseif request.QueryString("idtype") = "cid" then set rs2 = databas.execute("SELECT * FROM cat WHERE id = " & rs1("cid")) response.Write("" & rs2("name") & " / " & replace(rs1("name"),"[NYRAD]"," - ") & "") elseif request.QueryString("idtype") = "scid" then set rs2 = databas.execute("SELECT * FROM cat WHERE id = " & rs1("cid")) response.Write("" & rs2("name") & " / ") set rs2 = databas.execute("SELECT * FROM subcat WHERE id = " & rs1("scid")) response.Write("" & rs2("name") & " / " & replace(rs1("name"),"[NYRAD]"," - ") & "") end if %> <%if cint(rs1("magnify")) = cint(1) then response.Write("")%>
 
<%call back_knapp()%> <%response.Write(paddingbar(rs1.absolutepage,rs1.pagecount,"product.asp?id=" & request.QueryString("id") & "&idtype=" & request.QueryString("idtype")))%>