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
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.