Insert Into

[Guest --Alberto Mota --]

Prezados amigos, não estou conseguindo adicionar um registro na minha tabela access

Utilizo o asp e necessito da ajuda de vocês, desde já agradeço.

<%

Dim strcontato

cst = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _

Server.MapPath("infowebpe.mdb")

set conn = CreateObject("ADODB.Connection")

conn.open cst

strcontato = Request.form("txtnome")

sql = "Insert Into tblcontato (nomecontato) Values (strcontato) "

set consulta = conn.execute(sql)

%>

Erro no navegador:

Nenhum valor foi fornecido para um ou mais parâmetros necessários.

/jrmedcal/contatoenvia.asp, line 17

[.Andreia.]

<%
Dim strcontato

cst = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath("infowebpe.mdb")
set conn = CreateObject("ADODB.Connection")
conn.open cst

strcontato = Request.form("txtnome")

sql = "Insert Into tblcontato (nomecontato) Values ('"& strcontato &"') " 
set consulta = conn.execute(sql)

%>