ASP - RecordCount

[ webgirl @ 20.01.2005. 07:40 ] @

Imam formu sa jednim TextField (input type="text" name="polje").
A na klik imam *.asp stranu i u njoj sledece:

Pitanje je dole...

Code:

    Dim cn
    Dim rs

    Set cn = Server.CreateObject ("ADODB.Connection")
    Set rs = Server.CreateObject("ADODB.Recordset")

    cn.ConnectionString = "DRIVER=SQL Server; SERVER=...; UID=...; PWD=...; DATABASE=..."
    cn.Open

    rs.ActiveConnection = cn
    m = Request.Form("polje")

    rs.Open "select * from tabela where polje1=" & m
    Response.Write "<CENTER>" & "Pretraga za - " & m &"<br> <br>"

        broj = rs.RecordCount    //OVO !!!
        Response.Write ("Ukupno je" & broj)  //OVO !!!
        Response.Write("<br>")

    rs.MoveFirst

    Response.Write "<table border=""1"" align=center>"
    Response.Write "<tr>"

    a = Array("1","2","3","4","5")

    For Each s in a
        Response.Write "<td>"
             Response.Write "<div align=""center""><strong>" & s  & "</strong></div>"
        Response.Write("</td>")
    Next

    Response.Write("</tr>")

    b = Array("polje1","polje2","polje3","polje4","polje5")

    while not rs.EOF
        Response.Write "<tr>"
        For Each s in b
            Response.Write "<td>"
            Response.Write "<div align=""center"">" & RS.Fields(s) & "</div>"
            Response.Write "</td>"
        Next

         rs.MoveNext
        Response.Write "</tr>"
    Wend

    Response.Write "</table>"
    rs.Close
    cn.Close

Dakle, nije mi jasno zasto RecordCount daje vrednost -1 kada postoji rezultat pretrage?
Kako da ostavim poruku napr "Nema rezlutata" ako ih stvarno nema. Pokusavala sam sa klasicno if broj <> -1 then... medjutim nije ok

Pretpostavljam da je ovo trivijalno, ali ne mogu da resim.
Thanks unapred.

[ mladenovicz @ 20.01.2005. 09:14 ] @

Problem je kursor koji nije naveden, a default kursor ne podrzava recordcount.

Citat:

MSDN:
The property returns -1 when ADO cannot determine the number of records or if the provider or cursor type does not support RecordCount

Probaj ovako da otvaras konekciju

Code:

Set cn = Server.CreateObject ("ADODB.Connection")
cn.CursorLocation = adUseClient '-- ova konstanta je = 3
....
cnn.Open

Da li je RS prazan proveravaj ovako (i BOF i EOF su True ukoliko nema zapisa)

Code:

If Not (RS.BOF And RS.EOF) Then