Hvorfor får jeg denne fejlmeddelse?

kan vi få linie 5 ?

Det er mit første ASP-Script :)

<%
Response.Buffer = True
Set Con = Server.CreateObject(\"ADODB.Connection\")
DBPath = \"DBQ=\" & server.mappath(\"tlf_nummer.mdb\")
Con.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBPath
      Sql = \"SELECT * FROM numre ORDER BY Navn\"
  Set Record =  Con.Execute(Sql)
%>

<HTML>

<HEAD>
<TITLE>Mikkels Database-test</TITLE>
</HEAD>

<BODY>


<% color = \"546677\"
do until rs.eof %>

<table border=\"1\" cellspacing=\"0\" cellpadding=\"1\" width=\"400\">
<% Do While Not Record.EOF %>
<td bgcolor=\"#<%=color%>\"><% Response.Write Record(\"Navn\")%></td>
<td bgcolor=\"#<%=color%>\" align=\"right\"><i><b><% Response.Write Record(\"tlf-nummer\")%></i></b></td>
<td bgcolor=\"#<%=color%>\" align=\"right\"><i><b><% Response.Write Record(\"mobil-nummer\")%></i></b></td>
</tr>
<%
Record.MoveNext
Loop
%>
</table>

<%
if color = \"546677\" then
color = \"546695\"
else
color = \"546677\"
end if
rs.movenxt
loop
%>

<A HREF=\"tilføj.asp\" TARGET=\"_all\">Tilføj</a>

</BODY>

</HTML>
<%
Con.Close
Set Con = Nothing
%>

Hvorfor fik Jens point i dette spørgsmål ? http://www.eksperten.dk/spm/59823

Det skal se sådan ud!
<%
Response.Buffer = True
Set Con = Server.CreateObject(\"ADODB.Connection\")
DBPath = \"DBQ=\" & server.mappath(\"tlf_nummer.mdb\")
Con.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & DBPath
      Sql = \"SELECT * FROM numre ORDER BY Navn\"
  Set Record =  Con.Execute(Sql)
%>

Jeg var dum... Hvis du kan løse problemet her, skal du nok få point for begge ting! Er du så glad? :)

Nej, det skal det nok ikke! Jeg havde vist ikke læst ordentligt!!  :-(

Jeg har selv haft samme problem, det løste jeg ved at åbne min DB på en anden måde!

Hvordan? :)

<%
Response.Buffer = True
Set Con = Server.CreateObject(\"ADODB.Connection\")
DBPath = \"DBQ=\" & server.mappath(\"tlf_nummer.mdb\")
Con.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBPath
      Sql = \"SELECT * FROM numre ORDER BY Navn\"
  Set Record =  Con.Execute(Sql)
%>

<HTML>

<HEAD>
<TITLE>Mikkels Database-test</TITLE>
</HEAD>

<BODY>


<% color = \"546677\"
do until record.eof %>

<table border=\"1\" cellspacing=\"0\" cellpadding=\"1\" width=\"400\">
<% Do While Not Record.EOF %>
<td bgcolor=\"#<%=color%>\"><% Response.Write Record(\"Navn\")%></td>
<td bgcolor=\"#<%=color%>\" align=\"right\"><i><b><% Response.Write Record(\"tlf-nummer\")%></i></b></td>
<td bgcolor=\"#<%=color%>\" align=\"right\"><i><b><% Response.Write Record(\"mobil-nummer\")%></i></b></td>
</tr>
<%
if color = \"546677\" then
color = \"546695\"
else
color = \"546677\"
end if
record.movenxt
loop
%>
</table>

<A HREF=\"tilføj.asp\" TARGET=\"_all\">Tilføj</a>

</BODY>

</HTML>
<%
Con.Close
Set Con = Nothing
%>

...eller prøv at åbne db på denne måde:

  Dim objConn
  Set objConn = Server.CreateObject(\"ADODB.Connection\")
  objConn.Open \"DRIVER={Microsoft ACCESS DRIVER (*.MDB)};DBQ=\" & Server.MapPath(\"databasenavn.MDB\")

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"SELECT * FROM numre ORDER BY Navn\"
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"tlf_nummer.mdb\")
  rs.Open strSQL, Conn, 1, 3
%>


<%
  rs.Close
Conn.Close
Set Conn = Nothing
Set rs = Nothing
%>

lars-k >> Det er da samme måde!

netsrac>>.....jeps, så er det tid til at fjerne hovedet fra skærmen....  |-I

okay... jeg er sikkert totalt newbie (4 måneder på bagen), men jeg har fået den opfattelse af at recordset brugte man når man åbnede databasen til skrivning... connection var til når man bare skal kigge i den.

Rigtigt, forkert ??

cyberfessor >> Man kan bruge begge metoder til både kigge, skrive update...osv

årl rejt... men hvorfor så besvære sig med at lave et recordset hvis man kun skal kigge??

Du mener linien
Set rs = Server.CreateObject(\"ADODB.RecordSet\") ?

Den metode virker så vidt jeg umiddelbart ved også kun på Access databaser.

ja... den sætning, jeg bruger den kun når jeg skal enten tilføje, rette eller slette en record

cyberfessor >> Jeg vil skam heller ikke lave det med ADODB.RecordSet, mit løsningsforslag er uden den.

okay... så er vi enige :) forresten, tjeck http://www.eksperten.dk/spm/60143 hvis du har lyst til at tjene 30 (forhåbenligt) nemme point