Fejl kode i asp, noget med 80004005.

det ligner denne linje, er det rigtigt:
rs.Open strSQL, strDSN, 1

Så tjek at database filen ligger i den rigtige folder. Den skal ligge i en folder som hedder /log og den folder ligger i root på serveren.

Nu har jeg så rettet den til ../log men den virker kun nogle gange og ikke altid. kan det have noget at gøre med at der er installert php på samme maskine??

Men koden ser sådan her ud nu, og der kommer nu nogle gange denne fejl:

Provider error '80004005'
Unspecified error
xklasser.asp, line 5

og den hele koden ser sådan her ud...

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../log/2003.mdb")
Conn.Open DSN

%>

<%
x_klasse = Request.QueryString("klasse")
intPage = Request("sider")
       
if x_klasse <> "" then
    klasse_x = "" & x_klasse

If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT ID, link, ForNavn, MellemNavn, EfterNavn, KlasseNr, VisBillede FROM Elever Where KlasseNr = " & klasse_x & " order by ForNavn"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../log/2003.mdb")


rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 9
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
    Response.Write "<center><p style='word-spacing: 0; margin: 0'><font face='Verdana' size='1'><b>Side " & intPage & " af " & intPageCount & "</b></font></p></center>"
   
    noPrRow = 0
maxPrRow = 3

response.write "<table border='0' width='100%'><tr>"

    Do While Not rs.EOF And intRecCount > 0

  if noPrRow = 0 then response.write ""

    x_link = rs("link")
    x_fornavn = rs("ForNavn")
    x_mellemnavn = rs("mellemnavn")
    x_efternavn = rs("EfterNavn")
    strVis = rs("visbillede")

  response.write "<td width='33%'>"
  response.write "<table border='0' width='100%'><tr><td width='50%' bgcolor='#DDE4E7'>"
  response.write "<p style='word-spacing: 0; margin: 0'><font face='Verdana' size='1'>" & x_fornavn & "&nbsp;" & x_efternavn & "</font></td>"
  response.write "<td width='50%' rowspan='2' bgcolor='#DDE4E7' align='center'>"
  response.write "<p align='center' style='word-spacing: 0; margin: 0'><font face='Verdana' size='1'>"
  Response.Write "<img border='0' src='/sider/pics/"
 
If strVis = "ja" then
  Response.Write "HH" & x_klasse & "/HH" & x_klasse & "_" & x_fornavn & " " & x_mellemnavn & " " & x_efternavn & ".jpg"
elseif strVis = "nej" then
  Response.Write "intet.jpg"
else
  Response.Write "onway.jpg"
end if

  Response.Write "' width='35' height='52'></font></td>"
  response.write "</tr><tr>"
  response.write "<td width='50%' bgcolor='#FFFFFF'><p style='word-spacing: 0; margin: 0'><font face='Verdana' size='1'>"
  Response.Write "<a href='http://www.hhx.dk/hhx" & x_klasse & "/hhx" & x_klasse & "" & rs("link") & "' title='Se " & x_fornavn & "´s hjemmeside' target='_blank'>HHX" & x_klasse & "" & rs("link") & "</a></font></p>"
  response.write "<p style='word-spacing: 0; margin: 0'><font face='Verdana' size='1'>"
  Response.Write "<a href='mailto:hhx" & x_klasse & "" & x_link & "@edu.selandia-ceu.dk' title='Mail til " & x_fornavn & "'>Mail</a></font></td>"
  response.write "</tr></table>"
  response.write "</td>"
 
  response.write ""
  noPrRow = noPrRow + 1
  if noPrRow = maxPrRow then
    response.write "</tr>"
    noPrRow = 0
  end if
   
       
    intRecCount = intRecCount - 1
    rs.MoveNext
    Loop

if noPrRow > 0 then response.write "</tr>"
response.write "</table>"    

End If
rs.Close
Set rs = Nothing

Response.Write "<center><p style='word-spacing: 0; margin: 0'><font face='Verdana' size='1'>Gå til side<br>| "
For intNum = 1 To intPageCount
    Response.Write "<a href=klasser.asp?klasse=" & x_klasse & "&sider=" & intNum & ">" & intNum & "</a> | "
Next

Response.Write "</font></center><center><p style='word-spacing: 0; margin: 0'><font face='Verdana' size='1'>"

If Clng(intPage) > 1 Then
    Response.Write "<a href=klasser.asp?klasse=" & x_klasse & "&sider=" & intPage - 1 & ">&lt;&lt;</a>"
Else
    Response.Write "<b>&lt;&lt;</b>"
End If

Response.Write "&nbsp;"

If Clng(intPage) < Clng(intPageCount) Then
    Response.Write "<a href=klasser.asp?klasse=" & x_klasse & "&sider=" & intPage + 1 & ">&gt;&gt;</a> "
Else
    Response.Write "<b>&gt;&gt;</b>"
End If

Response.Write "</font></center>"
%>

<%
else

Response.Write "<table width='100%' border='0'>"
Response.Write "<tr><td align='center' valign='top' colspan='3'><font face='Verdana' size='1'><b>Vælg en klasse fra en Årgang</b></font></td></tr>"
Response.Write "<tr><td align='center' valign='top'><font face='Verdana' size='1'><b>Første År</b></font></td>"
Response.Write "<td align='center' valign='top'><font face='Verdana' size='1'><b>Andet År</b></font></td>"
Response.Write "<td align='center' valign='top'><font face='Verdana' size='1'><b>Trejde År</b></font></td>"
Response.Write "</tr><tr><td align='center' valign='top'>"

strSQL = "Select * From klasser Where aargang = 1"
    Set rs = Conn.Execute(strSQL)

noPrRow1 = 0
maxPrRow1 = 1
response.write "<table width='100%'>"
do while not rs.EOF
  if noPrRow1 = 0 then response.write "<tr>"
  response.write "<td align='center' valign='top'>"
 
x_klasseNr = rs("KlasseNr")

  'Udskriv data her
  Response.write "<a href='/sider/klasser.asp?klasse=" & x_klasseNr & "'>"
  Response.write "HHX" & x_klasseNr & ""
  Response.write "</a>"

 
  response.write "</td>"
  noPrRow1 = noPrRow1 + 1
  if noPrRow1 = maxPrRow1 then
    response.write "</tr>"
    noPrRow1 = 0
  end if
  rs.Movenext
loop
if noPrRow1 > 0 then response.write "</tr>"
response.write "</table>"

Response.Write "</td> <td align='center' valign='top'>"

strSQL = "Select * From klasser Where aargang = 2"
    Set rs = Conn.Execute(strSQL)

noPrRow1 = 0
maxPrRow1 = 1
response.write "<table width='100%'>"
do while not rs.EOF
  if noPrRow1 = 0 then response.write "<tr>"
  response.write "<td align='center' valign='top'>"
 
x_klasseNr = rs("KlasseNr")

  'Udskriv data her
  Response.write "<a href='/sider/klasser.asp?klasse=" & x_klasseNr & "'>"
  Response.write "HHX" & x_klasseNr & ""
  Response.write "</a>"

 
  response.write "</td>"
  noPrRow1 = noPrRow1 + 1
  if noPrRow1 = maxPrRow1 then
    response.write "</tr>"
    noPrRow1 = 0
  end if
  rs.Movenext
loop
if noPrRow1 > 0 then response.write "</tr>"
response.write "</table>"

Response.Write "</td> <td align='center' valign='top'>"

strSQL = "Select * From klasser Where aargang = 3"
    Set rs = Conn.Execute(strSQL)

noPrRow1 = 0
maxPrRow1 = 1
response.write "<table width='100%'>"
do while not rs.EOF
  if noPrRow1 = 0 then response.write "<tr>"
  response.write "<td align='center' valign='top'>"
 
x_klasseNr = rs("KlasseNr")

  'Udskriv data her
  Response.write "<a href='/sider/klasser.asp?klasse=" & x_klasseNr & "'>"
  Response.write "HHX" & x_klasseNr & ""
  Response.write "</a>"

 
  response.write "</td>"
  noPrRow1 = noPrRow1 + 1
  if noPrRow1 = maxPrRow1 then
    response.write "</tr>"
    noPrRow1 = 0
  end if
  rs.Movenext
loop
if noPrRow1 > 0 then response.write "</tr>"
response.write "</table>"

Response.Write "</tr></td></table>"

end if
%>

Jeg kan se du har lave en Conn også til databasen. PRøv at bruge den istedet for kun connection stringen.

Så ret:
rs.Open strSQL, strDSN, 1

Til:
rs.Open strSQL, Conn, 1

Skal jeg så fjerne den der?

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT ID, link, ForNavn, MellemNavn, EfterNavn, KlasseNr, VisBillede FROM Elever Where KlasseNr = " & klasse_x & " order by ForNavn"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../log/2003.mdb")

Du skal kun fjerne den ene linje som er denne:

strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../log/2003.mdb")

Hmmm.... det virker stadig ikke... gad virkelig godt at vide hvad det er... Det er kommet efter de har lagt php på maskinen.

Du kan se her www.hhx.dk/sider/klasser.asp

Og hvis du så trykker F5 eller bare trykker på en af klasserne, så kommer fejlen

hmm
Prøv at tilføje Conn.Close til sidst i koden.

Prøv evt. med en anden driver end MS access driveren:
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\somepath\mydb.mdb;"

Prøv at rette disse:
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../log/2003.mdb")
Conn.Open DSN

Til disse:
DSN = "Provider=Microsoft.Jet.OLEDB.4.0;"
DSN = DSN & "Data Source=" & Server.MapPath("../log/2003.mdb")
Conn.Open DSN

Nej det virker heller ikke.... Tro jeg prøver at starte fra bunden af og opbygger siden igen, og prøver at se hvor den slår fejl...

Prøver også lige at lægge den op på et andet webhotel, for vil gerne se om den laver samme fejl der...

Okay, har fundet ud af at det er en fejl hos webhotellet, og ikke mine koder... Jeg kan kun sige mange tak for hjælpen... ;)

Og den virker på mit eget webhotel.
Hvis du gerne vil have dine point skal du bare svare... ;)

Ok jeg kan svare så kan du bestemme hvordan point skal deles. ;)

Kan altså kun sige du skal have dine point... ;) Det er sq til stor hjælp for mig... :)

Kan kun sige Mange tak..

//Steckel