Problemer med Access / ASP
Jeg kan ikke se fejlen i dette script, men serveren kommer med en fejl 500 ( http://music.trab.dk )<%
' Skaber DSNLess forbindelse til DBen
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="..\database\MP3boss\data.mdb")
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN
If Request("action") = "" Then
strSQL = "SELECT * FROM Main ORDER BY Artist DESC"
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
Response.Write "<table border='1'>"
Response.Write " <tr>"
Response.Write " <td align='center'>Kunstner</td>"
Response.Write " <td align='center'>Titel</td>"
Response.Write " <td align='center'>MP3-CD navn</td>"
Response.Write " </tr>"
Do While Not rs.EOF
Response.Write " <tr>"
Response.Write " <td align='center'>" & rs("Artist") & "</td>"
Response.Write " <td align='center'>" & rs("Title") & "</td>"
Response.Write " <td align='center'>" & rs("Volume") & "</td>"
Response.Write " </tr>"
rs.MoveNext
Loop
Response.Write "</table>"
Else
' Hvis der ikke er fundet poster på søgningen
Response.Write "<p>Der er ikke fundet noget på denne søgning</p>"
End If
' Rydder op efter os
myConn.Close
Set myConn = Nothing
End If
%>
