mærkelig fejl:
her kan i se det:http://rasmus/on/t_forum/
klik på asp.. og det virker men prøver i at tage en unden nogen poster kommer der en fejl
eks prøv stylesheet
her er koden:
<LINK rel="stylesheet" type="text/css" href="..\stylesheet.css">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("db.mdb")
if request.Querystring("kat") = "" Then
Set rs = Conn.openschema(20)
Do until rs.eof
If rs("TABLE_TYPE") = "TABLE" Then
If LCase(rs("TABLE_NAME")) <> "tom" Then
Response.write "<a href=default.asp?kat=" & (rs("TABLE_NAME")) & ">" & (rs("TABLE_NAME")) & "</a><br>"
End if
End if
rs.movenext
Loop
else if request.Querystring("kat") <> "" Then
strKatori = request.Querystring("kat")
strSQL = "Select * from " & strKatori & " where tor = TRUE order by overskrift, skrevet_af Desc"
Set rs = Conn.ExeCute(strSQL)
If rs.EOF or rs.BOF Then
response.write "ingen spm... :("
Else
response.write "I katokorien " & strKatori & ":<p>"
Do
response.write "<a href=""se.asp?kat=" & strKatori & "&id=" & rs("id") & """>" & rs("overskrift") & "</a><br>"
rs.MoveNext
Loop While Not rs.EOF
End if
End if
end if
Set rs = nothing
Conn.close
Set Conn = nothing
%>
