onde foi q eu errei?

[Rickardo]

<%

Dim conn

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

conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("bd/mail.mdb")&";"

Set add_action = Server.CreateObject ("ADODB.Recordset")

add_action.Open "cadastro",conexao,3,3

empresa = Request.Form("empresa")

contato = Request.Form("contato")

endereco = Request.Form("endereco")

cep = Request.Form("cep")

cidade = Request.Form("cidade")

estado = Request.Form("estado")

fone = Request.Form("fone")

email = Request.Form("email")

SQL = "INSERT INTO cadastro (empresa,contato,endereco,cep,cidade, estado, fone, email ) VALUES ('"& empresa &"',"& contato &",'"& endereco &"','"& cep &"','"& cidade &"','"& estado &"','"& fone &"','"& email &"')"

conexao.execute(sql)

%>

Tadando um erro!!! q é esse aki!!

Microsoft JET Database Engine error '80040e10'

No value given for one or more required parameters.

/mail/conect.asp, line 22

[kuroi]

o campo contato é numerico ou string?? se for string, você tem q por entre aspa simples.

se não for isso, então confira se os nomes dos campos estao todos certos (empresa, contato, endereco, etc) e se todos os campos existem realmente na tabela, e se você ta apontando pra tabela certa (cadastro).

[Rickardo]

cara seguinte.. akela eu já resolvi.. agora estou com o codigo de atualizar..

<%

Dim insere

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

conexao.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("mail.mdb")&";"

empresa = Request.Form("empresa")

contato = Request.Form("contato")

endereco = Request.Form("endereco")

cep = Request.Form("cep")

cidade = Request.Form("cidade")

estado = Request.Form("estado")

fone = Request.Form("fone")

email = Request.Form("email")

num_auto = Request.Form("num_auto")

if len(contato)=0 or len(email)=0 or len(fone)=0 then 'verifica se os campos estão preenchidos, len() devolve a quantidade de letras possui uma string

response.write("Preencha todos os campos")

else 'do contrário continuará a inserção

insere = "UPDATE cadastro SET Empresa="& empresa &",Contato="& contato &", endereco="& endereco &",cep="& cep &", cidade="& cidade &", estado="& estado &", fone="& fone &", email="& email &" WHERE codigo ="& num_auto

Conexao.execute (insere)

response.write("Dados Atualizado com sucesso")

end if

%>

o erro q ta dando...

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression '& empresa &111'.

/mail/edita.asp, line 23

sinceramente não sei onde ta o erro!!!!!!