outro erro

[marcioadrmachado 0]

ja resolvi este erro pessol, eu achomas não aparece o programinha em asp de frases do diada o erro de conexão:--------------------------------------------------Microsoft VBScript runtime error '800a01f4' Variable is undefined: 'Conexao' /index.asp, line 257 ------------------------------------------------e está assim no html<%Set Conexao = Server.CreateObject("ADODB.Connection")Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=..\romanceweb.com.br\db\frases.mdb"marcio

[FabricioGomes 0]

Faca Dim Conexaoantes de utiliza-la...

[Mário Monteiro 179]

toda vez que você usa option explicit é obrigado a declaração de todas as variaveis e objetos usados

[marcioadrmachado 0]

<%DIM conexao Set Conexao = Server.CreateObject("ADODB.Connection")Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=..\romanceweb.com.br\db\frases.mdb"assim?

[Mário Monteiro 179]

poe o dim conexao em uma linha separada acimaDIM conexaoSet Conexao = Server.CreateObject("ADODB.Connection")Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=..\romanceweb.com.br\db\frases.mdb"

[FabricioGomes 0]

nao, em linhas separadas....<%DIM conexao Set Conexao = Server.CreateObject("ADODB.Connection")Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=..\romanceweb.com.br\db\frases.mdb"%>

[marcioadrmachado 0]

eu coloquei em linha separada agora aparece este erro:----------------------------------------Microsoft VBScript runtime error '800a01f4' Variable is undefined: 'ComandoSQL' /index.asp, line 264 -------------------------------------o código esta abaixo:<%DIM conexao Set Conexao = Server.CreateObject("ADODB.Connection")Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\websites\romanceweb.com.br\db\frases.mdb"ComandoSQL = "SELECT COUNT(Código) AS total FROM frases"Set bd = Conexao.Execute(ComandoSQL)randomize() peso = Int(bd("total") *Rnd) + 1ComandoSQL = "SELECT TOP " & peso & " * FROM frases"Set bd = Conexao.Execute(ComandoSQL)bd.Move peso - 1Response.Write bd("frase")Conexao.CloseSet Conexao = NothingSet bd = Nothing%>

[Mário Monteiro 179]

mesma coisatoda vez quer der algo assimVariable is undefinedvocê deve declara-laai ficaDim ComandoSQL

[Mário Monteiro 179]

Se você não tiver declarado as outras vai aparecer isso Variable is undefined: 'bd'depoisVariable is undefined: 'peso'então declare-as tambem

[marcioadrmachado 0]

olá moçadaeu fiz assim:<%DIM conexaoSet Conexao = Server.CreateObject("ADODB.Connection")Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\websites\romanceweb.com.br\frases.mdb"DIM ComandoSQL = "SELECT COUNT(Código) AS total FROM frases"DIM Set bd = Conexao.Execute(ComandoSQL)randomize() DIM peso = Int(bd("total") *Rnd) + 1DIM ComandoSQL = "SELECT TOP " & peso & " * FROM frases"DIM Set bd = Conexao.Execute(ComandoSQL)bd.Move peso - 1Response.Write bd("frase")Conexao.CloseSet Conexao = NothingSet bd = Nothing%>olha o que apareceu:Microsoft VBScript compilation error '800a0401' Expected end of statement /index.asp, line 266 DIM ComandoSQL = "SELECT COUNT(Código) AS total FROM frases"---------------^

[marcioadrmachado 0]

eu fui colocando os DIMae apareceu este erro? podm me ajudar?Microsoft VBScript compilation error '800a0401' Expected end of statement /index.asp, line 277 Dim ComandoSQL = "SELECT COUNT(Código) AS total FROM frases"---------------^valews Márcio

[Mário Monteiro 179]

mas tem que ser igual a conexao...declare em linhas separadas...

[Mário Monteiro 179]

só uso pois se errar o nome da varivel (digitação mesmo), ele vai dizer que a variavel não foi definida, mas pra mim esta definida, então vou olhar e vejo algum errinho