Bygge videre på dette da?
<%
strFilnavn = Request.ServerVariables("SCRIPT_NAME")
cutindex = InStrRev(Filnavn,"/")
if cutindex > 0 then
strFilnavn = Right(strFilnavn, Len(strFilnavn)-cutIndex)
end if
dim strConn
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("document.mdb")
dim adoCn
dim strSQL
set adoCn = Server.CreateObject("ADODB.Connection")
adoCn.Open strConn
dim adoRs
set adoRs = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT DocumentID,Title,SubID FROM tblDocuments"
set adoRs = adoCn.Execute(strSQL)
Do
' Gem data som kommasepareret liste
arrDOCID = arrDOCID & "," & adoRS("DocumentID")
arrSUBID = arrSUBID & "," & adoRS("SubID")
arrTITLE = arrTITLE & "," & adoRS("Title")
adoRS.MoveNext
Loop while not adoRS.eof
' Lav arrays med data
arrDOCID = Split(arrDOCID,",")
arrSUBID = Split(arrSUBID,",")
arrTITLE = Split(arrTITLE,",")
adoRs.Close
%>
<html>
<head>
<title>Menu</title>
<style TYPE="text/css">
<!--
a:link { color: 000000; text-decoration: none; }
a:hover { color: 39ADFF; text-decoration: none; }
a:visited { color: 000000; text-decoration: none; }
a:visited:hover { color: 39ADFF; text-decoration: none; }
// -->
</style>
</head>
<body>
<table border="1" cellpadding="0" cellspacing="0" width="300">
<tr>
<td width="300"><font size="1" face="Verdana"><b>Menu:</b></font></td>
</tr>
<%
strSub = Request.QueryString("Sub")
If strSub <> "" Then
' Funktion som undersøger for svar
Function Categori(intID)
For m = 1 to Ubound(arrDOCID)
' Hvis svar til det indlæg som funktionen er kaldt med
If Cint(arrSUBID(m)) = Cint(intID) Then
' Tilføj til liste og kald funktionen for at undersøge for svar
Categori = Categori & "<tr><td><font size=1 face=Verdana> <a href=" & strFilnavn & "?DocID=" & arrDOCID(m) & ">" & arrTITLE(m) & "</a> " & Categori(arrDOCID(m)) & "</font></td></tr>"
End If
Next
End Function
End if
For m = 1 to UBound(arrDOCID)
If Cint(arrSUBID(m)) = Cint(IntID) Then
Response.Write "<tr><td><font size=1 face=Verdana><a href=" & strFilNavn & "?Sub=" & arrDOCID(m) & ">" & arrTITLE(m) & "</a></font></td></tr>"
End if
Next
%>
</table>
</body>
</html>
<%
Response.Write "<font size=1 face=Verdana>" & Categori(strSub) & "</font><br>"
%>
Ny bruger
Nybegynder
Opret
Preview
