Prøver at vise dem i 3 kolonner
Jeg prøver at vise min katagori og subkatagori i 3 kolonner, men værre gang jeg skal se siden, så siger internet explorer \"Siden kan ik vises\" :(Håber nogen kan hjælp mig
scripten:
<%
dim mode, katagori, subkatagori
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"db.mdb\")
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open strDSN
%>
<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">
<html>
<head>
<title>Katagori</title>
</head>
<body>
<%
strSQL = \"SELECT * From katagori\"
Set rs = myConn.Execute(strSQL)
do while not rs.eof
%>
<table border=\"0\">
<%
ColNum = 1
Do while ColNum < 3
%>
<td align=LEFT valign=middle width=\"150\"><a href=\"subkatagori.asp?katagori=<%= rs(\"katagori\") %>&lid=<%= rs(\"id\")%>\"><%=rs(\"katagori\")%>
</a>
<%
strSQL = \"SELECT * From subkatagori\"
Set rs = myConn.Execute(strSQL)
do while not rs.eof
%>
<a href=\"subkatagori.asp?katagori=<%= rs(\"katagori\") %>&lid=<%= rs(\"id\")%>\"><%=rs(\"subkatagori\")%></a>
</td>
<%
if NOT rs.EOF then
rs.MoveNext
end if
ColNum = ColNum + 1
if NOT rs.EOF then
%>
<td align=LEFT valign=middle width=\"150\"><a href=\"subkatagori.asp?katagori=<%= rs(\"katagori\") %>&lid=<%= rs(\"id\")%>\"><%=rs(\"katagori\")%></a>
<%
strSQL = \"SELECT * From subkatagori\"
Set rs = myConn.Execute(strSQL)
do while not rs.eof
%>
<a href=\"subkatagori.asp?katagori=<%= rs(\"katagori\") %>&lid=<%= rs(\"id\")%>\"><%=rs(\"subkatagori\")%></a>
</td>
<%
end if
ColNum = ColNum + 1
Loop
%>
</tr>
</table>
<%
rs.movenext
loop
%>
</body>
</html>
<%
rs.close
set rs=nothing
myconn.close
set myconn= nothing
%>
