Hei
Jeg er helt fersk, og har prøvd å knabbe noen asp-filer her og der, men
denne beskjede kommer opp stadig (også i andre sammenhenger). Er det noen
som ser intuitivt hva jeg gjør galt? Databasen guestbook.mdb ligger i samme
mappe som denne fila. Er det Access som har vanskeligheter med å lese
SQL-kommandoene? (!?)
Mvh
Ann
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Driver Manager] Data source name not found and no default
driver specified
/tutorial/viewdb.asp, line 21
<% @Language=VBScript %>
<html dir=ltr>
<head><title>Titt i gjesteboka</title></head>
<body bgcolor="#cccc99">
<%
strQuery = "SELECT * FROM gjest"
strProvider = "Driver={Microsoft Access
Driver(*.mdb)};dbq=C:\Inetpub\Wwwroot\tutorial\guestbook.mdb;"
IF Request("ID")<>"" THEN
strIDNum=Request("ID")
set objConn = Server.createObject("ADODB.Connection")
objConn.Open strProvider
set cm = Server.CreateObject("ADODB.Command")
cm.ActiveConnection = objConn
cm.CommandText = "DELETE FROM gjest WHERE ID = " &strIDNum
cm.Execute
END IF
[dette er linje 21] Set rst = Server.CreateObject("ADODB.Recordset")
rst.Open strQuery, strProvider
%>
<h1>Gjestebok</h1>
<form name=viewdb.asp action=viewdb.asp method=post>
<table border=1 cellspacing=3 cellpadding=3 rules=box>
<%
ON ERROR RESUME NEXT
IF rst.EOF THEN
Response.Write "Det er ingen i databasen"
ELSE %>
<tr>
<%
Response.Write "<td width=200><center>Stryk ut innlegget</center></td>"
FOR i = 1 to rst.Fields.Count -1
Response.Write "<td width=200><input name=sort value=" & rst(i).Name & "
type submit></td>"
NEXT
WHILE NOT rst.EOF %>
<tr>
<%
Response.Write "<td align=left valign=top bgcolor='#ffffff'><a
href=viewdb.asp?id=" & rst(0) &"> Stryk ut</a></td>"
For i = 1 to rst.Fields.Count -1
Response.Write "<td align=left valign=top bgcolor='#ffffff'>" & rst(i)
&"</td>"
NEXT
rst.MoveNext
WEND
End if
%>
</table>
</form>
</body>
</html>