scrivere su db access

[J.Lankart]

ehmmmmm..........è tutto!!

quella è la pagina che invia la mail, ho aggiunto la parte di codice che ho trovato sullo script....

nella pagina del form, a parte le if per i controlli sui campi e i tag dell'impaginazione c'è questo nel form:

<FORM method="post" action="inviamailguest.asp?id=1" name="Form1" onSubmit="return control();">


control è la funzione che controlla la validità dei campi....

questo è per intero lo script che ho preso:
<%
if request("id")=1 then
on error resume next
dim strQuery
strQuery="INSERT INTO tabella("
dim strValori
strValori=" VALUES("
dim strSql
strSql=""

for each item in request.form
if item<>"Submit" then
strQuery= strQuery &amp; item &amp;","
strValori= strValori &amp; "'"&amp;server.HTMLEncode(request.form(item))&amp; "',"
end if
next

strQuery=mid(strQuery,1,len(strQuery)-1) &amp;")"
strValori=mid(strValori,1,len(strValori)-1) &amp;")"

set rs =server.createObject("ADODB.Recordset")
strConn="driver={Microsoft Access Driver (.mdb)}; "
strConn=strConn &amp; " DBQ=" &amp; Server.MapPath("database.mdb")
strSql= strQuery &amp; strValori
rs.open strSql,strConn
set rs=nothing
if err.number<>0 then
response.write err.number &amp;"
"&amp;err.description
else
response.write "inserimento avvenuto con successo"
end if

response.end
end if
%>
<form method="post" action="script.asp?id=1">
<input type="text" name="campo1">

<input type="text" name="campo2">

<input type="text" name="campo3">

<input type="submit" name="Submit" value="Invia">
</form>


questa è la funzione control:

function control()
{

var campo1 = document.Form1.campo1.value;
var campo2 = document.Form1.campo2.value;
var campo3 = document.Form1.campo3.value;
var email_reg_exp = /^([a-zA-Z0-9_\.\-])+\@(([a-zA-Z0-9\-]{2,})+\.)+([a-zA-Z0-9]{2,})+$/;
var campo4 = document.Form1.campo4.value;


if (campo1 == "")
{
alert("inserire il nome dell'autore");
document.Form1.campo1.focus();
return false;
}

if (campo3 == "")
{
alert("inserire un titolo per il messaggio");
document.Form1.campo3.focus();
return false;
}

if (!email_reg_exp.test(campo2) || (campo2 == "") || (campo2 == "undefined"))
{
alert("Inserire un indirizzo email corretto");
document.Form1.campo2.focus();
return false;
}

if (campo4 == "")
{
alert("inserire un messaggio da inviare ad Agic Consulting");
document.Form1.campo4.focus();
return false;
}
}
</script>

[xxfuma85xx]

secondo me fai prima a recuperare dal form i valori e scrivere tu la query.

[J.Lankart]

e come si fa? non l'ho mai fatto prima!! mi date una mano?

[xxfuma85xx]

devi dirci come si chiamano i campi che hai messo nel form e i campi del db; anche il nome della tabella del db.
il db è nella stessa cartella della pagina inviamailguest.asp?

[J.Lankart]

OK

campi nel form:

autore
titolo
email
messaggio

campi nel db

ID (contatore)
autore (testo)
titolo (testo)
email (testo)
messaggio (memo)

db: guest.mdb
tabella: messaggi

tutti i file sono nella stessa tabella!!

[xxfuma85xx]

ti connetti al db:

strConn="driver={Microsoft Access Driver (.mdb)}; " 
strConn=strConn & " DBQ=" & Server.MapPath("guest.mdb") 
set conn=server.createobject("adodb.connection")
conn.open strconn

ricevi i dati dal form:

autore=trim(request("autore"))
titolo=trim(request("titolo"))
email=trim(request("email"))
messaggio=trim(request("messaggio"))

crei la query che inserisce i dati nel db:

sql="insert into messaggi (autore, titolo, email, messaggio) values ('"&autore&"', '"&titolo&"', '"&email&"', '"&messaggio&"')"

esegui la query:

conn.execute (sql)

e poi gli aggiungi il grazie alla fine

[J.Lankart]

wow!!ci provo subito allora!!
grazie grazie per l'aiuto!!

[xxfuma85xx]

mi sono dimenticato che alla fine della pagina devi chiudere la connessione:

conn.close
set conn=nothing

fammi sapere

[J.Lankart]

sembra che vada, ma non ne sono sicuro..........
mi dice che non può effettuare l'upload perchè il db è in sola lettura......mi mancheranno i permessi per la scrittura forse.

Devo chiedere all'amm. del dominio!!

[xxfuma85xx]

si dovrebbe essere per quello.