Er du der fennec - Måske noget galt menu system!!
Hej igen..Jeg vil høre om hvad er noget galt med det som kommer pludselig fået en fejl... ca 10 min efter virker og igen med problem.. måske du ved hvad er noget galt med det kode..
-----------------------------------------
Microsoft OLE DB Provider for ODBC Drivers error '8007000e'
[Microsoft][ODBC Microsoft Access Driver] System resource exceeded.
/Include/menu.asp, line 14
------------------------------------------
Væresgo kode:
<%
dim Conn, DSN
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("db.mdb")
conn.Open DSN
Function TegnMenu(ThisID,Indrykning)
dim FunkRS
'select rodpunkter eller underpunkter
if ThisID <> "" then
'Underpunkter
set FunkRS = conn.Execute("select * from menu where hidden=0 and pID="& ThisID &" order by sort")
else
'Roden af menuen
set FunkRS = conn.execute("select * from menu where hidden=0 and pID is null order by sort")
end if
do while not FunkRS.eof
'tegn menupunktet
if FunkRS("link") <> "" then
response.write "<tr><td style='border-style: none; border-width: medium' width='160' valign='top' height='10'><font face='Verdana' style='font-size: 9pt' color='#EFECEB'>+ <a class='menu' href="""& FunkRS("link") &""">"& FunkRS("menu") &"</font></a></td></tr>"&chr(13)
response.write "</font>"
else
response.write "<tr><td style='border-style: none; border-width: medium' width='160' valign='bottom' height='25'><font face='Verdana' style='font-size: 11pt' color='#FFC06F'><b><i>"& FunkRS("menu") &"</i></b></font></td></tr>"&chr(13)
end if
'kald funktionen igen for at finde evt underpunkter
TegnMenu FunkRS("id"),Indrykning&" "
FunkRS.MoveNext
loop
End function
Response.write "<table>"
TegnMenu "",""
Response.write "</table>"
%>
