i starten har jeg denne kode:
<%
r = Request.QueryString("r")
If Len(r)<1 Then r= -1
s = Request.QueryString("s")
If Len(s)<1 Then s = 0
s = s*10
Dim Kategorier(100,4)
Set db = Server.CreateObject("ADODB.Connection")
Connect = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("e-shop.mdb")
db.Open Connect
SQL = "SELECT KategoriNavn, KategoriParent, KategoriID, KategoriRank FROM Kategorier ORDER BY KategoriRank"
Set rs = db.Execute(SQL)
While Not rs.EOF
If i<100 Then
Kategorier(i,0) = rs("KategoriNavn")
Kategorier(i,1) = rs("KategoriParent")
Kategorier(i,2) = rs("KategoriID")
Kategorier(i,3) = rs("KategoriRank")
End If
i = i+1
rs.MoveNext
Wend
arrayLength = i-1
Function show_search(parent1, CategoryLayer)
If parent1 <> vbNullString Then
For t = 0 To arrayLength
If Kategorier(t,1) = parent1 Then
EmptySpace = ""
For x = 0 To CategoryLayer
EmptySpace = EmptySpace & ""
Next
' -> VED AT ÆNDRE 'EmptySpace & ""' TIL 'EmptySpace & " "' LAVES EN INDRYKNING FOR HVER KATEGORI.
If CategoryLayer = 0 Then
AddOn = ""
AddOn1 = ""
End If
Response.Write( EmptySpace & "<img border='0' src='folder.gif'> <a href='order_product.asp?r="&Kategorier(t,2)&"'>" & AddOn & Kategorier(t,0) & AddOn1 & "</a><br clear='all'>" & vbCrLf)
parent2 = Kategorier(t,2)
CategoryLayer1 = CategoryLayer +1
show_search parent2, CategoryLayer1
End If
Next
End If
End Function
SQLAddOn = ""
Function show_c(parent3)
For t = 0 To arrayLength
If cint(Kategorier(t,1)) = cint(parent3) Then
parent4 = Kategorier(t,2)
SQLAddOn = SQLAddOn & " Or KategoriNavn = " & parent4
show_c parent4
End If
Next
End Function
show_c r
%>
og så har jeg mine variabler, og koden jeg skrev først - det virker fint på de andr sider, har så været nød til at lave en side med alle data'erne på produktet, og det eneste der er forskel på er koden i starten her.
Kan det hjælpe???
