Erro que não quer calar....

[Davidmg 0]

Alguém sabe informar o que significa esse erro:

 

(0x80004005)Erro não especificado

Muito estranho...

 

Valew

[Twunay 1]

Posta o código...

[Davidmg 0]

Posta o código...

<{POST_SNAPBACK}>

Código:

 

ASP

[*]<%

 

[*]SQL = "Select * From Pedido Where Leonel = 'A' and cancelado = 'N'"

 

[*]Set RS = MyConn.Execute(SQL)

 

[*]

 

[*]While Not RS.EOF

 

[*]

 

[*]Uf = Rs("Uf")

 

[*]Basec = Rs("lcarregamento")

 

[*]

 

[*]SQLprecs = "Select * From Precos Where local = '"&Basec&"' and Uf = '"&Uf&"'"

 

[*]Set RSprecs = MyConn.Execute(SQLprecs)

 

[*]

 

[*]PSgasadi = CDBL(Replace(RSprecs("PSgasadi"),".",","))

 

[*]

 

[*]RS.MoveNext

 

[*]Wend

 

[*]%>

 

Esse é o codigo e a linha com que dá o erro é a seguinte:

Set RSprecs = MyConn.Execute(SQLprecs)

 

Abraços...

[Twunay 1]

Tenta assim:

 

Mas antes deste código você precisa ter a sua conexão...

 

ASP

[*]<%

 

[*]

 

[*]SQL = "Select * From Pedido Where Leonel = 'A' and cancelado = 'N'"

 

[*]RS.Open SQL,Conn,3,3

 

[*]

 

[*]While Not RS.EOF

 

[*]

 

[*]Uf = Rs("Uf")

 

[*]Basec = Rs("lcarregamento")

 

[*]

 

[*]SQLprecs = "Select * From Precos Where local = '"&Basec&"' and Uf = '"&Uf&"'"

 

[*]RSprecs.Open SQL,Conn,3,3

 

[*]

 

[*]PSgasadi = CDBL(Replace(RSprecs("PSgasadi"),".",","))

 

[*]

 

[*]RS.MoveNext

 

[*]Wend

 

[*]

 

[*]%>

 

Boa sorte, :wacko:

Twunay