förbannade felmess

atraMedlem sedan nov. 200355 inlägg

Frågan5 dec. 2003 16:36#1

Hej!
försöker att fixa mitt nyhetsscript men får bara upp detta felmess:
Feltyp:
ADODB.Connection (0x800A0E78)
Åtgärden är inte tillåten när objektet är stängt.
/projekt-03/FT/nyheterna.asp, line 13

Här finns lite kod

<html>
<head>
<link href="C:\Inetpub\wwwroot\projekt-03\FT\CSS\tf.css" rel="stylesheet" type="text/css">
<title>hej</title>
</head>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; dbq=" & Server.MapPath ("db/ft.mdb")
Set RecSet = Server.CreateObject("ADODB.Connection")
RecSet.Open SQL, Conn, 3, 3
SQL = "SELECT TOP 2 * FROM news ORDER BY id DESC"
%>
<% Do Until RecSet.EOF %>

<%Response.Write " "&RecSet("namn")&" "%>

<%
RS.MoveNext
LOOP
 
RecSet.Close
Conn.Close
Set RecSet = nothing
Set Conn = nothing
%>

</html>

LarsGMedlem sedan dec. 200012 464 inlägg

5 dec. 2003 16:42#2

istf detta

Set RecSet = Server.CreateObject("ADODB.Connection")
RecSet.Open SQL, Conn, 3, 3
SQL = "SELECT TOP 2 * FROM news ORDER BY id DESC"
%>
<% Do Until RecSet.EOF %>

<%Response.Write " "&RecSet("namn")&" "%>

<%
RS.MoveNext
LOOP

använd detta

SQL = "SELECT TOP 2 * FROM news ORDER BY id DESC"
set recset = conn.execute(sql)
%>
<% Do Until RecSet.EOF %>

<%Response.Write " "&RecSet("namn")&" "%>

<%
RecSet.MoveNext
LOOP