Kategori/Subkategori/Links
Ok...på første side viser jeg kategori, og den næste viser jeg subkategorierne, men til sidste virker den ik, den viser ik links til den request subkategori...jeg indsatter lige filerne, så i kan kigge på dem, på forhånd tak for hjælpen !Kategori:
--------
<%
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"db.mdb\")
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open strDSN
%>
<%
if mode = \"\" then
strSQL = \"SELECT * From kategori\"
Set rs = myConn.Execute(strSQL)
do while not rs.eof
%>
<a href=\"subkategori.asp?mode=vis&kategori=<%= rs(\"kategori\") %>\"><%= rs(\"kategori\") %></a><br>
<%
rs.movenext
loop
end if
%>
SubKategori:
------------
<%
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"db.mdb\")
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open strDSN
mode = request.querystring(\"mode\")
kategori = request.querystring(\"kategori\")
subkategori = request.querystring(\"subkategori\")
%>
<%if mode = \"vis\" then
strSQL = \"SELECT * From subkategori where kategori = \'\" & kategori & \"\'\"
Set rs = myConn.Execute(strSQL)
do while not rs.eof
%>
<a href=\"links.asp?mode=vissubkategori&kategori=<%= rs(\"id\") %>\"><%= rs(\"subkategori\") %></a><br>
<%
rs.movenext
loop
end if
%>
Links:
------
<%
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"db.mdb\")
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open strDSN
mode = request.querystring(\"mode\")
kategori = request.querystring(\"kategori\")
subkategori = request.querystring(\"subkategori\")
%>
<%if mode = \"vis\" then
strSQL = \"SELECT * From links where subkategori = \'\" & subkategori & \"\'\"
Set rs = myConn.Execute(strSQL)
do while not rs.eof
%>
<%= rs(\"url\") %>
<%
rs.movenext
loop
end if
%>
