Tjena jag håller på med en meny som också visar hur många poster det finns under varje meny, har nog byggt det hela rättså korkat men det verkar fungera i alla fall. Innan körde jag hela menyn som en include och nu när jag tog bort detta slutatde det hela fungera.. fick detta fel messet:
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0x1390 Thread 0x148c DBC 0x15ccffc Jet'.
/afd/afd-it/kategorimeny.asp, line 14
Koden för att räkna posterna är denna:
<%Set cn = Server.CreateObject("ADODB.Connection")
Cn.Open "driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("db/opgave.mdb")
set rs = cn.execute("SELECT count(*) as antal FROM opgave WHERE kategori = '2' AND status <> '4' ")
Response.Write rs("antal")
rs.Close
Set rs = nothing
cn.close
Set cn=nothing%>
Den förekommer 7 ggr i varje meny och menyn finns i 7 olika versioner på kategorimeny.asp skilda med en if sats, kanske det som skapar problem?
<%set rs = cn.execute("SELECT count(*) as antal FROM opgave WHERE kategori = '2' AND status <> '4' ")
Response.Write rs("antal")
rs.Close
Set rs = nothing%>
Rättså ofta när jag uppdaterar, alltså inte varje gång får jag fel:
Microsoft JET Database Engine error '80004005'
The Microsoft Jet database engine cannot open the file 'c:\inetpub\wwwroot\afd\afd-it\db\opgave.mdb'. It is already opened exclusively by another user, or you need permission to view its data.
/afd/afd-it/kategorimeny.asp, line 52
förstår bara inte hur jag ska använda detta i min kod.. jag har 2 olka sidor också en som visar allt som inte har status<>"4" och en som visar status="4" och den ska ju räkna posterna på varje. kan du inte beskriva mer hur du tänkt att jag ska använda koden?
<%Set cn = Server.CreateObject("ADODB.Connection")
Cn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/opgave.mdb"))
set rs = cn.execute("SELECT Kategori, COUNT(*) AS Antal FROM opgave GROUP BY Kategori ORDER BY Kategori")
Response.Write rs("antal")
rs.Close
Set rs = nothing
cn.close
Set cn=nothing%>
<%Set cn = Server.CreateObject("ADODB.Connection")
Cn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/opgave.mdb"))
set rs = cn.execute("SELECT Kategori, COUNT(*) AS Antal FROM opgave GROUP BY Kategori [b]WHERE status <> '4'[/b] ORDER BY Kategori")
Det är ju bara att loopa precis som vanligt?
while not rs.eof
response.write "Kategori " & rs("Kategori") & ": " & rs("Antal") & "<br>"
rs.movenext
wend
Men varför kommer den upp o säger att databasen redan är öppen hela tiden? vi är 2 st som använder denna sidan men det borde väl inte vara några problem? Databasen är inte öppen i Access heller..
Microsoft JET Database Engine error '80004005'
The Microsoft Jet database engine cannot open the file 'c:\inetpub\wwwroot\afd\afd-it\db\opgave.mdb'. It is already opened exclusively by another user, or you need permission to view its data.
/afd/afd-it/kategorimeny.asp, line 8
Gjorde såhär nu:
<%Set cn = Server.CreateObject("ADODB.Connection")
Cn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/opgave.mdb"))
set rs = cn.execute("SELECT Kategori, COUNT(*) AS Antal FROM opgave GROUP BY Kategori WHERE status <> '4' ORDER BY Kategori")%>
<a target="sgr2" href="opgave2.asp?do=inne&kat=2"><b>Software Install </b></a>
<%while not rs.eof
response.write "Kategori " & rs("Kategori") & ": " & rs("Antal") & "<br>"
rs.movenext
wend%>
<a target="sgr2" href="opgave2.asp?do=inne&kat=3"><b>Hardware Install</b></a>
<%while not rs.eof
response.write "Kategori " & rs("Kategori") & ": " & rs("Antal") & "<br>"
rs.movenext
wend%>
<% rs.Close
Set rs = nothing
cn.close
Set cn=nothing%>
som vanligt?
Jag har aldrig gjort något liknande innan... därför det är lite svårt.
