" & VbCrLf) While not rs.eof ID = rs("ID") Name = trim(rs("Name")) PicS = trim(rs("PicS")) if PicS <> "" then PicS = "
" else Name = Name & "" end if i = i + 1 response.write("") if i >= 2 then response.write("") i = 0 end if rs.movenext wend response.write("") response.write ("") rsSubc.movenext loop else SQL = "SELECT ID, Name, PicS FROM Product WHERE CatID = " & CatID & " ORDER BY ID ASC" set rs = conn.execute(SQL) i=0 While not rs.eof ID = rs("ID") Name = trim(rs("Name")) PicS = trim(rs("PicS")) if PicS <> "" then 'Temporar andring p.g.a fel i admin /// 20030703 if ID = 36 then PicS = "
" else PicS = "
" end if ' slut på andring else Name = Name & "" end if i = i + 1 response.write("") if i >= 2 then response.write("") i = 0 end if rs.movenext wend End if rs.close set rs = nothing rsSubc.close set rsSubc = nothing End if Conn.close set reup = nothing%>

		<% ' #### INKLUDERAR PRODUKTHÄMTNING IFRÅN DATABAS #### %> <% response.expires = -1000 response.expiresabsolute = #1980-01-01 12:00# response.addheader "cache-control", "private" response.addheader "pragma", "no-cache" session.lcid = 1053 %> <% ID = request.querystring("ID") CatID = request.querystring("CatID") if CatID <> "" then set rs = conn.execute("SELECT mnu_name FROM mega_menu WHERE ID = " & CatID) if not rs.eof then Title = rs("mnu_name") rs.close set rs = nothing end if %> <% showScript = false if CatID = 11 and ID = 20 then showScript = true if showScript then %> <% end if %> <% if ID <> "" then SQL = "Select ID, Name, Article, PicL, Eng, Ger, Jap FROM Product WHERE ID = " & ID set rs = conn.execute(SQL) i=0 if not rs.eof then ID = rs("ID") Name = trim(rs("Name")) Article = trim(rs("Article")) PicL = trim(rs("PicL")) If PicL <> "" then 'Temporar andring p.g.a fel i admin /// 20030703 if ID = 36 then PicL = " " else PicL = " " end if ' Andring slut end if Eng = trim(rs("Eng")) Ger = trim(rs("Ger")) Jap = trim(rs("Jap")) response.write(" " & Name &" " & PicL & Article )%> <% if showScript then response.write("For a more detailed information") %> <% end if %> <%if Eng = "" and Ger = "" and Jap = "" then response.write " " else%> <%if Eng <> "" then %> <%end if if Ger <> "" then%> <% end if if jap <> "" then%> <%end if%>    Download information about <%=name%> English: <%=Eng%> German: <%=Ger%> French: <%=Jap%> Requires Adobe Acrobat Reader <%end if else 'visa alla produkter SQL = "SELECT ID, Subcat FROM SubCat WHERE Cat = " & CatID set rsSubc = conn.execute(SQL) if not rsSubc.eof then do while not rsSubc.eof SQL = "SELECT ID, Name, PicS FROM Product WHERE SubCatID = " & rsSubc("ID") & " ORDER BY ID ASC" set rs = conn.execute(SQL) i=0 response.write("			" & trim(rsSubc("SubCat")) & ":
" & PicS & Name & "
" & PicS & Name & "

<% ' #### INKLUDERAR PRODUKTHÄMTNING IFRÅN DATABAS #### %>