<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("gastbok_databas.mdb")
%>
<%
Dim strSQL
strSQL = "SELECT * FROM inlagg ORDER BY id DESC"
%>
<%
Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open strSQL, objConn
%>
<% if objRS.EOF Then %>
<font face="Verdana">
<b>
<i>Det finns inga inlägg i gästboken</i></b> <br>
<%
Else Do While Not objRS.EOF
%>
Ojdå! Vad många kontext-switchar du använder... Skriv så här istället:
<%
Dim objConn, objRs, strSQL
Set objConn = Server.CreateObject("adodb.COnnection")
objConn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("gastbok_databas.mdb")
strSQL = "SELECT * FROM inlagg ORDER BY id DESC"
Set objRs = Server.CreateObject("adodb.RecordSet")
objRs.Open strSQL, objConn
If objRs.EOF Then
Response.Write("<font face=verdana><b>Det finns inga inlägg i databasen</b><br>")
Else
Do While Not objRs.EOF
....
End If
%>
Nu får jag upp:
Microsoft JET Database Engine error '80040e10'
No value given for one or more required parameters.
/gastbok_inlagg.asp, line 25
Dim objConn, objRs, strSQL
Set objConn = Server.CreateObject("adodb.COnnection")
objConn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("gastbok_databas.mdb")
strSQL = "SELECT * FROM inlagg ORDER BY id DESC"
Set objRs = Server.CreateObject("adodb.RecordSet")
objRs.Open strSQL, objConn