Erro No Contador De Arquvos

[§uiciDa£]

ae galera eu tnho um contador de arquivos q fala qnts downloads eu tnho cadastrados nu meu site...

so q ele esta cum um problema...

esse [e o codigo dele

<%

Set Conexao = Server.CreateObject("ADODB.Connection")

StrCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("download*downlaod.mdb")

Conexao.Open StrCon

sql = "select * from downloads"

set rs = conexao.execute(sql)

response.write rs.recordcount

%>

so q ele mostra um texto asim

"estamos com um totald e [B]"-1" arquivos listados"

o q q pode ser ?

[webdeveloper]

Você tem que especificar o tipo de cursor e o tipo de trava, para este caso assim funciona:

<%
Set Conexao = Server.CreateObject("ADODB.Connection")
StrCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("download*downlaod.mdb")

Conexao.Open StrCon
sql = "select * from downloads"

set rs = conexao.execute(sql, 3, 3)

response.write rs.recordcount
%>

B)

[ursolouco]

Hum...

Eu, particularmente, gosto de fazer assim... nos meus estudos.

<%.

Parara.... parara..

Parara.... parara.....

Parara.... parara....

Contador = 0

While not Rs.EOF

  Response.Write(Rs("Campo_Tabela"))

  Rs.MoveNext

  Contador = Contador +1

Wend

Parara.... parara....

Parara.... parara....

Parara.... parara....

Response.Write("Há " & Contador & "registros.")

%>

Veja se é interessante!..

[§uiciDa£]

Estamos com um total de

ADODB.Connection error '800a0bb9'

O aplicativo está usando argumentos que são do tipo incorreto, estão fora do intervalo aceitável, ou estão em conflito entre si.

/site/navegacao.asp, line 21

isso deu no cdigo do webdeveloper a line 21 é

set rs = conexao.execute(sql, 3, 3)

[webdeveloper]

Estamos com um total de

ADODB.Connection error '800a0bb9'

O aplicativo está usando argumentos que são do tipo incorreto, estão fora do intervalo aceitável, ou estão em conflito entre si.

/site/navegacao.asp, line 21

isso deu no cdigo do webdeveloper a line 21 é

set rs = conexao.execute(sql, 3, 3)

Me desculpe, desta forma não funciona, tente assim:

<%
Set Conexao = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")

StrCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("download*downlaod.mdb")

Conexao.Open StrCon
sql = "select * from downloads"

rs.Open sql, Conexao, 3, 3

response.write rs.recordcount
%>

[§uiciDa£]

nussd desculpe eu não ter dito antes gaqlera, mais eu já tnha conseguida, mais brigadao a força :D