Jag har en nyhetskalender där jag skriver ut länkarna till varje månad med hjälp av bilder. och jag använder mig av tre olika bilder beroende på ifall det är något skrivet den månaden eller inte och ifall det är den aktuella månaden. =) kom på felet självkonstigt problem med kalender meny
men när den första månaden har blivit ut skriven så får jag ett konstigt fel som jag inte har haft förut. det har fungerat tidigare men helt plötsligt blir det fel.
fel lyder så här:
---------------------------
Microsoft OLE DB Provider for ODBC Drivers fel '80004005'
[Microsoft][Drivrutin för ODBC Microsoft Access]Allmänt fel Det går inte att öppna registernyckeln 'Temporary (volatile) Jet DSN for process 0xa0c Thread 0xa04 DBC 0x7e1dfd4 Jet'.
/test3.asp, line 6
---------------------------
koden ser ut så här:
<code>
For i=1 to 12
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("databas/mrhudd") 'detta är line 6
Set RS = Server.CreateObject("ADODB.Recordset")
visa_manad = "SELECT * FROM Nyheter WHERE (Month(Datum)= "& i &" ) Order by Datum DESC"
RS.Open visa_manad, Connect
If RS.EOF Then
response.write("<img src='images/arkiv_"& i &"_gra.gif' vspace='2'>")
Else
If manad = i Then
response.write("")
Else
response.write("")
End if
End if
Next
RS.Close
Set RS = nothing
Connect.Close
Set Connect = Nothing
</code>
Nån som har en ide på vad jag gör för fel?
tacksam för svarSv: konstigt problem med kalender meny
gjorde så här så funkade det fint =)
<code>
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("databas/mrhudd")
For i=1 to 12
Set RS = Server.CreateObject("ADODB.Recordset")
visa_manad = "SELECT * FROM Nyheter WHERE (Month(Datum)= "& i &" ) Order by Datum DESC"
RS.Open visa_manad, Connect
If RS.EOF Then
response.write("<img src='images/arkiv_"& i &"_gra.gif' vspace='2'>")
Else
If manad = i Then
response.write("")
Else
response.write("")
End if
End if
Next
RS.Close
Set RS = nothing
Connect.Close
Set Connect = Nothing
</code>