Função Getrows()

[ruinas]

Eu tenho AQUI um script de banner rotativo q usa essa função mais eu não entendi ela..

Sera q você pode me explicar. E se puder me dar um exemplo....

[Guest - Ruinas -]

Descupe a Função é a GETROWS()

não sei o q ela faz ????

[caicai]

cara tb numca vi essa função, mas creio eu q deve ser para retornar a

quantidades de linhas de um determinado banco ou arquivo...

T+

[Eddie_666]

Essa é uma função interna do asp ou está definida no arquivo do banner rotativo? Se é do asp eu nunca ouvi falar, agora, se está definida, posta o código aí...

[Guest Guest]

Tipo essa função não foi criada ela já é do asp mesmo....

Olha o Script abixo:

<% Sub Rnd_Banner()

Dim strSQL

Dim strBanners

Dim intCounter

Dim intID

Dim strDisplay

Dim strDefault

' Do not Dim the db connections

intCounter = 0

strDefault = "videos/banner.gif"

strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("db.mdb")

set conn = server.createobject("adodb.connection")

conn.open strconn

set rs = server.createobject("adodb.recordset")

strSQL = "SELECT * FROM rotativo ORDER BY Id"

rs.open strSQL, conn

If not rs.EOF Then

strBanners = rs.getrows() ' Aqui A função <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

rs.movefirst

Do While Not rs.EOF

intCounter = intCounter + 1

rs.movenext

Loop

If intCounter < 2 Then

strDisplay = "<a href="&strBanners(2,0)&" target=new><img src="&strBanners(1,0)&"></a>"

Else

Randomize

intID = Int(Rnd * intCounter)

strDisplay = "<a href="&strBanners(2,intID)&" target=new><img src="&strBanners(1,intID)&"></a>"

End If

Else

strDisplay = "<img src="&strDefault&">"

End If

rs.close

set rs = nothing

set conn = nothing

Response.Write(strDisplay)

End Sub

%><%

Rnd_Banner()

%>

Tipo o Script Funciona corretamente eu so queria saber como faço o uso dessa função corretamente pra eu poder melhorar esse script...

[Eddie_666]

Eu creio que ele pegue a linha atual. senão não teria porque de ele ficar percorrendo o rst para contar quantos registros tem. Ao invés disso, creio que seria melhor atribuir a counter rst.RecordCount que retorna o número de registros que estão no rst. Daí, não precisa percorrer ele inteiro, economizando assim processamento. Tenta fazer isso e ve se ele continua funcionando, eu creio que vai funcionar...

[negociadorweb]

é O seguinte:

GetRows Retorna o numero de linhas da tabela. É semelhante ao Record.Count

Como usar:

<%

Set tabela = conn.execute("select * from tab")

Dim total

total = tabela.GetRows

Response.Write "A tabela possui " & CDbl(UBound(total, 2)) & "linhas."

set tabela = nothing

%>

[]'s

:ph34r: