Asp fejl ved forbindelse til acces db
Nogen der har en idé om hvorfor denne fejl kommer ? Hele systemet har kørt fint på en anden server, men ligepludselig duer ingenting efter det er kommet på et webhotel.Den skal jo ikke engang skrive til databasen, så det burde ikke være noget med skriverettigheder ? Eller hvad ?
<html>
<head>
<link rel="stylesheet" type="text/css" href="../../style2.css">
<title>
Sourcezone.dk
</title>
</head>
<body>
<span class="header">
News
</span><br><br>
<%
'Response.write Server.MapPath("/news/mich.mdb")
'dim conn
'function OpenConn( DBPath )
'Set Conn = Server.CreateObject("ADODB.Connection")
'Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath
'end function
'OpenConn( Server.MapPath("/news/mich.mdb") )
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/news/mich.mdb")
Conn.Open DSN
' SQL forespørgsel
strSQL = "Select * from news Order By Dato desc"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
' Gennemløb Recordset (rs) med en løkke
Do
Response.write "<table align=center valign=center width=100% border=0>"
' Udskriv titel, dato
' Der bliver lavet en tabel til det for at datoen kan komme over i den anden side
Response.Write "<tr>"
Response.Write "<td width=""100%"" align=""center"">"
Response.Write "<span class=""state"">" & rs("titel") & "</span>"
Response.Write "</td>"
Response.Write "<td width=""70"">"
' Der laves ny tabel til dato
Response.Write "<table width=""190"" cellpadding=""0"" cellspacing=""0"">"
Response.Write "<tr>"
Response.Write "<td>"
Response.Write "<div align=right><span class=""state""><font align=right>Skrevet af " & rs("skaber") & " d." & rs("dato") & "</font></span></div>"
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "</table>"
Response.Write "</td>"
Response.Write "</tr>"
'Udskriv indhold
Response.write "<tr>"
Response.write "<td colspan=""2"" class=""tdnews"">"
Response.write "<br><br>" & rs("indhold")
Response.write "</td>"
Response.write "</tr>"
Response.write "</table>"
Response.write "<br>"
Response.write "<br>"
Response.write "<br>"
' Gå til næste Record i rs
rs.MoveNext
' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
</body>
</html>
