problemas no código

[Nathiii 0]

Oi pessoal...

Fui atualizar gentilmente o site de uma amiga e ele sai do ar http://forum.imasters.com.br/public/style_emoticons/default/ermm.gif , mostrando esta mensagem aqui

 

Microsoft VBScript compilation error '800a0401'

 

Expected end of statement

 

/asp/dollar.asp, line 2

 

Dim rs = dollar, sqlDollar

-------^

 

Como não fui eu que fiz o site não sei o que no código pode estar errado.

Alguém pode me ajudar?

Vou colocar o código aqui

 

<%
Dim rsdollar, sqlDollar

sqlDollar = "SELECT Dollar FROM TDollar"

Set rs = dollar = Conexao.Execute(sqlDollar)

%>

Desde já obrigada galera :)

[DSerma 19]

Remova essa linha...

 

Abraços...

[desisto 0]

tenta:

Dim dollar, sqlDollar

[Nathiii 0]

Removi a linha... agora aparece isso aqui ... rs ;)

 

Microsoft VBScript runtime error '800a01f4'

 

Variable is undefined: 'Dollar'

 

/asp/dollar.asp, line 3

 

código:

 

<%

 

sql = Dollar = "SELECT Dollar FROM TDollar"

 

Set rs = dollar = Conexao.Execute(sqlDollar)

 

%>

[DSerma 19]

Poste o codigo completo da parte em q você faz o SELECT no bd.. por favor...

 

Abraços....

[jrcardozo 4]

na lina 2 coloque

Dim rs, dollar, sqlDollar

[Nathiii 0]

olha lá...

 

Microsoft VBScript runtime error '800a01f4'

 

Variable is undefined: 'sql'

 

/asp/dollar.asp, line 4

 

 

-----------------------------------------------------

 

<%

Dim rs, dollar, sqlDollar

 

sql = Dollar = "SELECT Dollar FROM TDollar"

 

Set rs = dollar = Conexao.Execute(sqlDollar)

 

%>

 

esse é todo código que a pessoa fez.

[DSerma 19]

Coloque

 

Dim rs, dollar, sqlDollar, sql

[Nathiii 0]

Na segunda linha né? Eu fiz, mais parece que esse código não quer me deixar em paz... rs

 

Microsoft JET Database Engine error '80040e0c'

 

Command text was not set for the command object.

 

/asp/dollar.asp, line 6

 

 

-----------------------------------------------------------

 

<%

Dim rs, dollar, sqlDollar, sql

 

sql = Dollar = "SELECT Dollar FROM TDollar"

 

Set rs = dollar = Conexao.Execute(sqlDollar)

 

%>

[CassianoVix 0]

Nathi

 

Tenta assim:

 

Dim rs, sqlDollar 

sqlDollar = "SELECT Dollar FROM TDollar"

Set rs = Conexao.Execute(sqlDollar)

Abraço

Cassiano.

[Nathiii 0]

Oi Cassiano. eu tentei mais não deu certo...voltei pra outra e continua

 

Microsoft JET Database Engine error '80040e0c'

 

Command text was not set for the command object.

 

/asp/dollar.asp, line 6

 

 

------------------------------------------------------------------------------------

 

<%

Dim rs, dollar, sqlDollar, sql

 

sql = Dollar = "SELECT Dollar FROM TDollar"

 

Set rs = dollar = Conexao.Execute(sqlDollar)

 

%>

[CassianoVix 0]

Nathi,

 

Quando você colocou do jeito que eu havia falado, qual foi o erro? Acredito que tenha sido em algum outro ponto da pagina.

 

você pode tentar denovo e postar o erro?

[desisto 0]

Dim rs, dollar, sql

sql = "SELECT Dollar FROM TDollar"

Set rs = Conexao.Execute(sql)