Fejl i registreringsnøglen
Jeg har - synes jeg da selv - en sjov fejl, som jeg vil høre, andre også har haft, og hvordan de i så tilfælde har løst problemet.Jeg ligger et site op http://www.anja-simonsen.dk/banko/
Det eneste sted, jeg har noget med databasen at gøre er når jeg i menuen vælger: Banko/Ordinær banko og så trykker på Spilleplaner. Der fremkommer nu et nyt skærmbillede (som der også skal), hvor jeg så vil vælge en måned og så får jeg følgende fejlmeddelelse:
Microsoft JET Database Engine fejl '80004005'
"d:\web\localuser\anja-simonsen.dk\database\Test.mdb" er ikke en gyldig sti. Kontroller, at stinavnet er stavet korrekt, og at du er tilsluttet den server, hvor filen findes.
/banko/Banko/spilleplaner.asp, line 55
Kører jeg derimod siden direkte på http://www.anja-simonsen.dk/banko/Banko/spilleplaner.asp, så kan jeg sagtens køre igennem databasen og får ingen fejl, når jeg vælger måned?
Mine koder ser ud som følger:
Her åbner jeg den ny side:
<a href="java script:;" onClick=" startVindue('spilleplaner.asp','startVindue','840','575','scrollbars=yes')">Spilleplaner</a>
Her er selve koden til siden:
OpenCon
call ChooseTableWhere ("Kalender", "ID", smaaned)
if smaaned = 1 then
mdr = "Januar"
end if
if smaaned = 2 then
mdr = "Februar"
end if
if smaaned = 3 then
mdr = "Marts"
end if
if smaaned = 4 then
mdr = "April"
end if
if smaaned = 5 then
mdr = "Maj"
end if
if smaaned = 6 then
mdr = "Juni"
end if
if smaaned = 7 then
mdr = "Juli"
end if
if smaaned = 8 then
mdr = "August"
end if
if smaaned = 9 then
mdr = "September"
end if
if smaaned = 10 then
mdr = "Oktober"
end if
if smaaned = 11 then
mdr = "November"
end if
if smaaned = 12 then
mdr = "December"
end if
response.write "<table align=""center"" width=""50%"" border=3><tr><td colspan=""2"" align=""center""><b>"
response.write mdr
response.write "</b></td></tr>"
i = 1
do while not rs.eof
for i = 1 to 31
if rs.Fields(i) = "ingen" or rs.Fields(i) = "skudaar" then
response.write ""
else
response.write "<tr><td width=""15%"">"
response.write i
response.write ". "
response.write mdr
response.write "</td><td width=""35%"">"
if rs.Fields(i) = "lukket" then
Response.write "Ingen spil"
else
response.write rs.Fields(i)
end if
response.write "</td></tr>"
end if
next
rs.MoveNext
loop
response.write "</table>"
end if
set rs = Nothing
set conn = Nothing
%>
Og her sætter jeg forbindelsen op:
DataConnPath = "d:/web/localuser/anja-simonsen.dk/database/Banko/Test.mdb"
Dim rs
Dim connectme
Dim sqlstmt
Dim conn
'Åbner forbindelse til databasen
Sub OpenCon
Set Conn = Server.CreateObject("ADODB.Connection")
connectme = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:/web/localuser/anja-simonsen.dk/database/Test.mdb"
Conn.open(connectme)
End Sub
