<%
if iCat = "" then
i = 1
sql = "select * from tbl_images_cat where icSubId = 0 order by icName"
set rs = connection.execute(sql)
if not rs.eof then
response.write("Vårt sortiment:
" & VbCrLf)
response.write("" & VbCrLf)
response.write("" & VbCrLf)
do until rs.eof
sql2 = "select top 3 * from tbl_images_cat where icSubId = " & rs("icId") & ""
set rs2 = connection.execute(sql2)
response.write("" & VbCrLf)
response.write(""&rs("icName")&"" & VbCrLf)
response.write("
" & VbCrLf)
if not rs2.eof then
do until rs2.eof
response.write(" | "&rs2("icName")&"
" & VbCrLf)
rs2.movenext
loop
response.write(" | ...visa alla" & VbCrLf)
end if
response.write(" | " & VbCrLf)
'response.write("" & VbCrLf)
if i mod 2 = 0 then
response.write("
" & VbCrLf)
'response.write("" & VbCrLf)
'response.write("" & VbCrLf)
'response.write("| | " & VbCrLf)
'response.write(" " & VbCrLf)
'response.write("" & VbCrLf)
end if
i = i + 1
rs2.close
set rs2 = nothing
rs.movenext
loop
response.write(" " & VbCrLf)
response.write(" " & VbCrLf)
end if
rs.close
set rs = nothing
else
dim splitPath, y, bPath
if instr(icName,"/") then
splitPath = split(icName,"/")
for y = 0 to (uBound(splitPath)-1)
bPath = bPath & "/"&splitPath(y)
next
end if
response.write("" & VbCrLf)
response.write("" & VbCrLf)
response.write("| " & VbCrLf)
response.write(""&icName&""& VbCrLf)
response.write(" | " & VbCrLf)
response.write(" " & VbCrLf)
sql = "select * from tbl_images_cat where icSubId = " & iCat & " order by icName, icSubId"
set rs = connection.execute(sql)
if not rs.eof then
response.write("" & VbCrLf)
response.write("Underkatergorier:
" & VbCrLf)
do until rs.eof
response.write("| "&rs("icName")&"
" & VbCrLf)
rs.movenext
loop
response.write(" | " & VbCrLf)
response.write(" " & VbCrLf)
end if
sql2 = "select iId, iTumName, iTumPath, iDescr from tbl_images where iCat = " & iCat & " order by iDescr"
set rs2 = connection.execute(sql2)
if rs2.eof then
response.write("" & VbCrLf)
response.write("" & VbCrLf)
'response.write("
Inga bilder i denna kategori än.."& VbCrLf)
response.write("
<< Titta från början"& VbCrLf)
response.write(" | " & VbCrLf)
response.write(" " & VbCrLf)
else
response.write("" & VbCrLf)
response.write("" & VbCrLf)
response.write("
" & VbCrLf)
response.write("I den här kategorin har vi:
"& VbCrLf)
'response.write("
Artiklar i "&icName&": "& VbCrLf)
response.write(" | " & VbCrLf)
response.write(" " & VbCrLf)
x = 1
response.write("" & VbCrLf)
'response.write("| " & VbCrLf)
do until rs2.eof
response.write(" |
" & VbCrLf)
response.write("![]() " & VbCrLf)
response.write("
"&rs2("iDescr") &" | " & VbCrLf)
'response.write(& VbCrLf)
if x mod 5 = 0 then
response.write(" " & VbCrLf)
end if
x = x + 1
rs2.movenext
loop
'response.write("" & VbCrLf)
response.write("" & VbCrLf)
end if
rs2.close
set rs2 = nothing
response.write("
" & VbCrLf)
rs.close
set rs = nothing
end if
%>
|
