<% ' #### Popup window #### %> <% ' #### Popup window #### %> " & VbCrLf) While not rs.eof ID = rs("ID") Name = trim(rs("Name")) PicS = trim(rs("PicS")) if PicS <> "" then PicS = "Click!
" else Name = Name & "" end if i = i + 1 response.write("") if i >= 3 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 PicS = "
" else Name = Name & "" end if i = i + 1 response.write("") if i >= 3 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 PicL = "Click!
" 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%>
Download this 
	information
English:
<%=Eng%>
Download this 
	information
German:
<%=Ger%>
Download this 
	information
French:
<%=Jap%>
<%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 #### %>