Código Errado?

[Guest Guest]

Dim CONEXAO

CONEXAO="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:/inetpub/wwwroot/dados/follow.mdb"

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

conn.open CONEXAO

sql = "SELECT * FROM Produtos where au_id =" &au_id

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

rs.Open sql, conn, 3, 3

if verificador = "" then

verificador = CStr(rs.fields "produto").value+data)

end if

rs.close

sql2 = "SELECT * FROM DADOS where Check = '"&verificador&"'"

Set rs2 = Server.CreateObject("ADODB.Recordset")

rs2.Open sql2, conn, 3, 3

sql3 = "SELECT * FROM DADOS where data = #"&Data&"# and tipo = '1'"

Set rs3 = Server.CreateObject("ADODB.Recordset")

rs3.Open sql3, conn, 3, 3

cadastrados = rs3.RecordCount

rs3.close

conn.close

Boa noite.

Existe algo errado no códico acima??

"Ocasionalmente" meu servidor web não response. Fica processando.

Obrigado

[Rinaldo]

Desculpe-me, a mensagem acima é minha.

Eu não tinha logado.

[AlexMunhoz]

tenta mudar as barras da sua conexão...

Assim.

CONEXAO="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\inetpub\wwwroot\dados\follow.mdb"

[bareta]

tente: