Option Explicit

[Guest - Fabí -]

Pessoal, tenho uma página q. está exibindo a seguinte msg de erro.

Erro de compilação do Microsoft VBScript error '800a0400'

Instrução esperada

/fabi/aprendi/insert_into.asp, line 4

Option Explicit

^

Alguém teria alguma idéia do q. causaria isso???

O engraçado é q. eu tenho uma outra página similar e q. funciona, mas se eu fazer qualquer alteração nesta página, tb exibe esta msg de erro!!!

[Victor]

Poste seu codigo ae, que assim poderemos te ajudar melhor!!!!

[]'s

Victor

[Guest - Fabí -]

Poste seu codigo ae, que assim poderemos te ajudar melhor!!!!

[]'s

Victor

<%

Option Explicit

Response.Expires = 0

Dim objConn, objRs, strQuery, strConnection, cd_terminal, ds_terminal, cd_operador, ds_operador, ds_titulo_relatorio

cd_terminal = Request.Form("cd_terminal")

ds_terminal = Request.Form("ds_terminal")

cd_operador = Request.Form("cd_operador")

ds_operador = Request.Form("ds_operador")

ds_titulo_relatorio = Request.Form("ds_titulo_relatorio")

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

'Abre a conexão com o banco de dados utilizando o Drive {Microsoft Access...

'(para utilizar outro, ex: Paradox é só substituir o Drive pelo do Paradox)

'(*.mdb) indica que o arquivo utiliza extensão mdb

objConn.Open "DBQ=" & Server.MapPath("teste.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"

'Insere os dados na tabela aberta

strQuery = "INSERT INTO Cadastro_Terminal_Operador (cd_terminal, ds_terminal, cd_operador, ds_operador, ds_titulo_relatorio) VALUES ('"&cd_terminal&"','"&ds_terminal&"','"&cd_operador&"','"&ds_operador&"', '"&ds_titulo_relatorio&"' )"

'Caso ocorra um erro esta função de erro será chamada

On error Resume Next

'Executa a inserção no Banco de Dados

Set ObjRs = objConn.Execute(strQuery)

'Fecha o Objeto de Conexão

objConn.close

'"APAGA" qualquer instancia que possa ter no objeto objRs e objConn

Set objRs = Nothing

Set objConn = Nothing

'Caso a função On Error Resume Next não tenha sido chamada o objeto err será = a 0

'if err = 0 Then

' 'Redireciona o usuário caso não tenha ocorrido erro na transação

' response.redirect "sucesso.asp"

'end if

'Caso a função On Error Resume Next não tenha sido chamada o objeto err será = a 0

if err = 0 Then

'Redireciona o usuário caso não tenha ocorrido erro na transação

response.redirect "sucesso.asp"

Else

response.write( "Não foi possível realizar a operação, verifique os dados!")

end if

%>

[mariofdf]

é só tirar o Option Explicit

Qualquer coisa poste ai...