RecordCount?

Aca tenes 2 variantes para el conteo de registros:

<%
If rs.EOF = FALSE then
total = 0
while not rs.EOF
total = total + 1
rs.MoveNext
wend
rs.MoveFirst
End If
%>

<%
if total = 0 then
response.write "No hay registros"
else
Response.Write "Cantidad de registros:" & total & ""
end if
%>
==if (rs.count > 0) then
response.Redirect "resultados"
else
strsql1 = "SELECT * FROM tbl"
Set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.Open strsql1, conn, 1, 2
Do While NOT rs1.EOF
rs1.Delete
rs1.MoveNext
Loop
rs1.Close
Set rs1 = Nothing
end if

FF
www.francofigun.com.ar
MSN:
Yahoo MSN:
"Omar Valdovino" wrote in message
news:#

A alguien le funciona el RecordCount?

dim AdoCon, AdoRs, StrQuery
Const adCmdText = &H0001
Const adOpenStatic = 3

set AdoCon=server.CreateObject("ADODB.Connection")
set AdoRs=server.CreateObject("ADODB.Recordset")

AdoRs.Open StrQuery,AdoCon,adOpenStatic,adCmdText

jeje, asi si me da el record count.

"Omar Valdovino" escribió en el
mensaje news:#

A alguien le funciona el RecordCount?

A mi manera de ver, el problema de hacerlo con un loop es que estoy gastando
recursos que no son necesarios.

"Franco Figún" escribió en el mensaje
news:

Aca tenes 2 variantes para el conteo de registros:

<%
If rs.EOF = FALSE then
total = 0
while not rs.EOF
total = total + 1
rs.MoveNext
wend
rs.MoveFirst
End If
%>

<%
if total = 0 then
response.write "No hay registros"
else
Response.Write "Cantidad de registros:" & total & ""
end if
%>
==> if (rs.count > 0) then
response.Redirect "resultados"
else
strsql1 = "SELECT * FROM tbl"
Set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.Open strsql1, conn, 1, 2
Do While NOT rs1.EOF
rs1.Delete
rs1.MoveNext
Loop
rs1.Close
Set rs1 = Nothing
end if

FF
www.francofigun.com.ar
MSN:
Yahoo MSN:
"Omar Valdovino" wrote in message
news:#
> A alguien le funciona el RecordCount?
>
>