Tem Alguma Coisa Errada Com Esse Código

[eferraz]

<%
'Força a declaração de todas as variáveis
Option Explicit

'Não deixa informações no Cache
Response.Expires = 0

'Declaração das variáveis
Dim objConn, objRs, strQuery, strConnection, nome, email, comentario, Data

'Atrubuição dos valores as respectivas variáveis
nome = Request.Form("nome")
email = Request.Form("email")
comentario = Request.Form("comentario")
data = date
'Cria o objeto RecordSet e atribui a variável 
Set objConn =  Server.CreateObject("ADODB.Connection")

'Abre a conexão com o banco de dados utilizando o Drive {Microsoft Access...
'(*.mdb) indica que o arquivo utiliza extensão mdb
objConn.Open "DBQ=" & Server.MapPath("../DADOS/BDBIGPORTAL.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"

'Insere os dados na tabela aberta
strQuery = "INSERT INTO faleconosco (Nome,EMAIL,MENSAGEM,DATA) VALUES ('"&nome&"','"&email&"','"&comentario&"','"&data&"')"

'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 "resposta.htm"
end if
%>

[ursolouco]

dá erro em algum lugar ? olhando por cima, parece tá 'ok'

[Decio]

Eu também não vi nenhum erro, só um comentario:

Acho que tem que ser assim: if err.number = 0 Then

[dark0]

sem detalhar o erro fica dificil..