What's wrong with this?

[Ivan Debono]

Hi all,

I've got this snippet which is not working:

<%
Dim tDATA
Dim oConn

Call Connect(oConn, "")

Set tDATA = Server.CreateObject("ADODB.Recordset")
tDATA.Open "SELECT * FROM MyTable WHERE id = " &
CLng(Request.QueryString("id")), oConn

With tDATA
If Not tDATA.EOF%>
<p><strong><%=tDATA("name")%></strong><br />
</p>
<font size="-1" face="Verdana, Arial, Helvetica,
sans-serif"><%=tDATA("text")%>
<%End If
tDATA.Close
Set tDATA = Nothing
%>
</font>

Can anyone see the problem??

Thanks,
Ivan

 

[James Baker]

Define "not working".

 

[Aaron [SQL Server MVP]]

You have a With tData, but no End With. (And you don't even utilize the
With construct, anyway.)

Otherwise, you're going to have to be a little wee bit more specific about
what "not working" means.

 

[Ivan Debono]

Stupid me!!

That was it, and also the line: If not tDATA.EOF
had no Then!!!