Da form a Db

[ipnotic]

avrei bisogno un aiutino....

io prelevo dai rispettivi form dei dati:

nome,email,codice,eta,data,messaggio

avrei bisogno un aiuto su come scrivere l'istruzione sql per inserire questi dati nei rispettivi campi del database (ke si kiamano cn lo stesso nome)...

avevo provato cn:

sql = "INSERT INTO guestbook (nome,email,codice,eta,data,messaggio)"
  sql = sql & " VALUES (" 
  sql = sql & "'" & nome & "',"
  sql = sql & "'" & email & "',"
  sql = sql & "'" & codice & "',"
  sql = sql & "'" & eta & "',"
  sql = sql & "'" & data & "',"
  sql = sql & "'" & messaggio & "'"
  sql = sql & ")"

  Set objRS = objConn.execute(sql)

ma nn va......qualkuno mi puo' aiutare ?
grazie in anticipo

[maximum]

Non va in che senso...
Ti dà errore? E che tipo di errore?

Dicci di più, perchè, ad occhio, la sintassi SQL mi sembra corretta.

[ipnotic]

prima mi dava errore sconosciuto.....ora ho sistemato alcune cose nel database e mi da errore alla riga d apertura del Db:

Connessione.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath(Indirizzo)
Connessione.Open

xke ?

[ipnotic]

ora nn me lo fa + e i dati me li inserisce... nn c sto capendo + niente....qua qualkuno dei due (o io o il pc) sta impazzendo....
mi sa io........

cmq ora ho fatto alcune prove......talvolta va tutto ok.....altre invece mi dice :

Tipo di errore:
Provider (0x80004005)
Errore non specificato

[maximum]

Fai vedere tutto il codice della pagina.

[ipnotic]

Ora dopo tante prove è tutto ok.... non capisco xke prima mi dava problemi.....cmq il codice è questo:

<%
Response.Write("Elaborazione in corso...")
'acquisizione dati dal form
Dim nome,email,codice,eta,data,messaggio
nome = ceckParolacce(Request.Form("nome"))
email = Request.Form("email")
codice = Request.Form("codice")
eta = Request.Form("eta")
data = Now()
messaggio = ceckParolacce(Request.Form("messaggio"))
'Preparazione dati da inserire nel db
Dim INdb
INdb = "INSERT INTO tabella (nome,email,codice,eta,data,messaggio)"
  INdb = INdb & " VALUES (" 
  INdb = INdb & "'" & nome & "',"
  INdb = INdb & "'" & email & "',"
  INdb = INdb & "'" & codice & "',"
  INdb = INdb & "'" & eta & "',"
  INdb = INdb & "'" & data & "',"
  INdb = INdb & "'" & messaggio & "'"
  INdb = INdb & ")"
'connessione al db
Dim Connessione,Indirizzo
Set Connessione = Server.CreateObject("ADODB.Connection")
Indirizzo = "database.mdb"
Connessione.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath(Indirizzo)
Connessione.Open
Connessione.Execute(INdb)
'disconnessione dal db 
Connessione.Close
Set Connessione = Nothing
%>