Exception occurred
Har følgende kode:------------------
<%
If Session("user_id") = "" Then
Response.Redirect "menu.asp"
End if
page_title = "Rediger eller Slet drink"
%>
<!--#include file="includes/design_start.inc"-->
<% If Request.Querystring("msg") = "1" Then Response.Write "<p><Font color=darkgreen><b>Nyheden er slettet fra systemet!</b></font></p>" End If %>
<p>
Her har du mulighed for at redigere en nyhed. Vælg den nyhed du ønsker at redigere nedenfor:<br><br><br>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../../db/drinks.mdb")
Conn.Open DSN
strSQL = "Select * from topkat ORDER by topkat_name"
Set rs = Conn.Execute(strSQL)
Do
Response.Write "<ul><p><b>" & rs("topkat_name") & "</b></p>"
strSQL = "Select * from drink Where drink_uid = " & rs("id")
Set rs2 = Conn.Execute(strSQL)
Do
Response.Write "<li><p>" & rs2("drink_name") & "</p></li>"
rs2.MoveNext
Loop While Not rs2.EOF
Response.Write "</ul>"
rs.MoveNext
Loop While Not rs.EOF
Conn.Close
Set Conn = Nothing
%>
<!--#include file="includes/design_end.inc"-->
------------------
Der giver følgende fejl:
------------------
Error Type:
(0x80020009)
Exception occurred.
/sbn/administrator/drink_reg.asp, line 32
------------------
