Fejler i "Set rs = Conn.Execute(strSQL)"
Hvorfor kommer denne fejl, den kan ses på mit site www.net-base.dk den kommer stort set hver gang man starter sitet og en gang imellem når man hopper mellem linken:Filen den feljer i ser sådan her ud:
<%
' ADODB Connection objekt
Set Conn = Server.CreateObject("ADODB.Connection")
'
' DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb")
DSN = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Website\database.mdb;"
Conn.Open DSN
' SQL forespørgsel
strSQL = "SELECT * FROM menus WHERE overmenu = 'Generalt' ORDER BY id"
' udfør forespørgslen
Set rs = Conn.Execute(strSQL)
' gennemløb RS med en løkke
Response.Write "<table width='150' border='1' 'cellspacing='0' cellpadding='0' valign='top'>"
Response.Write "<tr>"
Response.Write "<td height='20' Class=MenuTop> : " & rs("overmenu") & " : </td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='100%'>"
Do
Response.Write " - <a href='index.asp?page=" & rs("site") & "'>" & rs("menu") & "</a><br>"
rs.MoveNext
Loop While Not rs.EOF
Response.Write "<br></td></tr></table>"
Response.Write "<br>"
' SQL forespørgsel
strSQL = "SELECT * FROM menus WHERE overmenu = 'admin' ORDER BY id"
' udfør forespørgslen
Set rs = Conn.Execute(strSQL)
Response.Write "<table width='150' border='1' 'cellspacing='0' cellpadding='0' valign='top'>"
Response.Write "<tr>"
Response.Write "<td height='20' Class=MenuTop> : " & rs("overmenu") & " : </td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='100%'>"
Do
Response.Write " - <a href='index.asp?page=" & rs("site") & "'>" & rs("menu") & "</a><br>"
rs.MoveNext
Loop While Not rs.EOF
Response.Write "<br></td></tr></table>"
Response.Write "<br>"
Conn.Close
Set Conn = nothing
%>
