<% 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 = 10 rs1.LockType = 1 if request.QueryString("idtype") = "bid" or request.QueryString("idtype") = "did" then rs1.pagesize = 9 end if if request.QueryString("idtype") = "new" then rs1.pagesize = 4 end if rs1.Open '---------------------------------------------------------------- '---------------------------------------------------------------- '---------------------------------------------------------------- if rs1.eof = false then if len(request.QueryString("page")) = 0 then rs1.absolutepage = 1 else rs1.absolutepage = cint(request.QueryString("page")) end if sida = rs1.absolutepage sidor = rs1.pagecount else sida = 1 sidor = 1 End if if request.QueryString("idtype") = "new" then response.Write("") else response.Write("
") end if %>
<% count = 1 temp = false '------------------------------------------------------------------------------------- '------------------------------------------------------------------------------------- '------------------------------------------------------------------------------------- if rs1.pagesize = 9 and request.QueryString("idtype") = "did" and count = 1 then set rs2 = databas.execute("SELECT * FROM designer Where id = " & request.QueryString("id")) response.Write("") count = count + 1 elseif rs1.pagesize = 9 and request.QueryString("idtype") = "bid" and count = 1 then set rs2 = databas.execute("SELECT * FROM brand Where id = " & request.QueryString("id")) response.Write("") count = count + 1 end if '------------------------------------------------------------------------------------- '------------------------------------------------------------------------------------- '------------------------------------------------------------------------------------- if request.QueryString("idtype") = "new" then response.Write("") response.Write("") response.Write("") do until rs1.eof or temp = true response.Write("") if count < 4 then response.Write("") response.Write("") Next end if if count = 4 then response.Write("") else do until rs1.eof or temp = true if count = 6 then response.Write("") if rs1.pagesize = 9 and count => 2 then response.Write("") rs1.movenext else response.Write("") rs1.movenext end if if count = 5 or count = 10 then response.write("") else response.Write("") end if count = count + 1 if count = 11 then temp = true loop '------------------------------------------------------------------------------- '------------------------------------------------------------------------------- '------------------------------------------------------------------------------- 'nytt!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! If count =< 4 then do until count = 5 response.Write("") response.Write("") count = count + 1 loop end if if count = 5 then response.Write("") response.Write("") end if if count = 6 then response.Write("") end if '''''''''''''''''''''''''''''''''''''''''''''''''''''''!!!!!!!!! 'if count < 5 then 'for temp = count to 5 'if count = 5 then 'response.Write("") 'else 'response.Write("") 'response.Write("") 'end if 'next 'response.Write("") 'end if 'if count < 10 and count > 5 then response.Write("") end if '------------------------------------------------------------------------------- '------------------------------------------------------------------------------- '------------------------------------------------------------------------------- %>
") response.Write("
" & rs2("firstname") & " " & rs2("surname") & "
") response.Write("
" & rs2("name") & "
 

 

" & rs1("name") & "
") count = count + 1 if count = 5 then temp = true rs1.movenext loop if count < 3 then for temp = count to 4 response.Write("
 

 

" & replace(rs1("name"),"[NYRAD]","
") & "

" & replace(rs1("name"),"[NYRAD]","
") & "
 
 

 
 
 

 
 
 
<% if request.QueryString("idtype") = "new" then response.Write("News") elseif request.QueryString("idtype") = "bid" then set rs2 = databas.execute("SELECT * FROM brand Where id = " & request.QueryString("id")) response.Write("Brands / " & rs2("name") & "´s designs") elseif request.QueryString("idtype") = "did" then set rs2 = databas.execute("SELECT * FROM designer Where id = " & request.QueryString("id")) response.Write("Designer / " & rs2("firstname") & " " & rs2("surname") & "´s designs") elseif request.QueryString("idtype") = "scid" then set rs2 = databas.execute("SELECT * FROM subcat WHERE id = " & request.QueryString("id")) temp = " / " & rs2("name") set rs2 = databas.execute("SELECT * FROM cat WHERE id = " & rs2("cat")) temp = "" & rs2("name") & "" & temp response.Write(temp) elseif request.QueryString("idtype") = "cid" then set rs2 = databas.execute("SELECT * FROM cat WHERE id = " & request.QueryString("id")) response.Write(rs2("name")) end if %> <% if request.QueryString("idtype") <> "new" then call back_knapp() else response.write(" ") end if%> <%response.Write(paddingbar(sida,sidor,"products.asp?id=" & request.QueryString("id") & "&idtype=" & request.QueryString("idtype")))%>
When Will have to All those replica rolex Often be Carried out By way of. One of the vital portions of with a electric replica watches could be the deadlines plus timing of their total expert services as they quite simply match a person's businessĄŻ rolex replica. A strategy brought to life by a business may perhaps be superb, nonetheless in case your significant final target time is definitely not so great, it may possibly generate sometimes the most perfect replica rolex your moot factor. The key benefits of searching for business will be never-ending in regards to moving forward your enterprise panerai replica sale. Out of constructing a made to order online marketing save so that you can tailoring your web blog on the way to a person's aim for rolex replica sale.