Help fill in the ?s

[artsapimp]

Here is my code. I want LastRecord to represent the # of records in my database that meet the search criteria. Please help me finish this code.

<%
Dim SearchCriteria
Dim cnn
Dim rst
Dim LastRecord
Dim counter

SearchCriteria = Request.Form("Criteria")

Set cnn = Server.CreateObject("ADODB.Connection")
Set rst = Server.CreateObject("ADODB.Recordset")

cnn.Open "DSN=test"

rst.Open "Select * FROM test where name = " & SearchCriteria, cnn

LastRecord = ????????

for counter = 0 to LastRecord
   Response.write (rst("Telephone(Counter)"))
Next

rst.Close
cnn.Close
%>

[parksie]

Try rst.RecordCount

The way you've opened up your recordset, RecordCount will return -1.

You need to open up your recordset like:

rst.Open "Select * FROM test where name = " & SearchCriteria, cnn, adOpenDynamic

You'll need to include the "adovbs.inc" file for VBScript to know what the hell "adOpenDynamic" means. If you haven't got this file then it's equal to 2.

While I'm at it, you should really kill off your connection and recordset objects when you've finished too. (More server memory friendly.)

Stick this at the bottom of your script (after you've closed them):

Set cnn = Nothing
Set rst = Nothing