scrivere su db access

**J.Lankart** · 01-06-2005, 09:58

Ciao!!
posto l'url......
http://www.agic.it/Prova/guestbook.asp

Sul form sto inserendo alcuni controlli, e a campi compilati faccio in modo di inviare una mail che ho già formattato come html rendendola un po più presentabile di un elenco semplice di campi.

Parallelamente, vorrei inserire il record su un db access.
Come faccio? Ho iniziato col db.
guest.mdb, una sola tabella "messaggi" con i 4 campi che sono anche sul form.

Ho dato un'occhiata in giro fra gli script, ci sono un paio di esempi ma non mi funzionano........comincio a pensare di essere io!!
mi date una mano?
PS: la mail sul book funziona ed arriva direttamente a me.....andateci piano con i commenti cattivi ok?...eheh!!

grazie, ciauz!!

**albis** · 01-06-2005, 10:01

in che senso non funziona ?
da errore ?

**xxfuma85xx** · 01-06-2005, 10:04

io non vedo nessun malfunzionamento...

**J.Lankart** · 01-06-2005, 10:08

scusate.........
non ho messo lo script nella pagina.....stavo provando in locale.
Ho preso quello nella sezione asp -> script -> DATABASE a pagina 1 "Dal form al database".......

mi da errore!!

**albis** · 01-06-2005, 10:16

che errore ?
su quale riga ?

**xxfuma85xx** · 01-06-2005, 10:16

è meglio se posti il codice che hai messo nella pagina perchè sicuramente l'hai riadattato.
cmq non riesco ancora a capire il problema...
cosa fa? non scrive nel db?

**J.Lankart** · 01-06-2005, 10:18

Allora:

Tipo di errore:
Errore di compilazione di Microsoft VBScript (0x800A0401)
Prevista fine istruzione
/inviamailguest.asp, line 39, column 23
strQuery= strQuery & item &","

**xxfuma85xx** · 01-06-2005, 10:21

postaci un po' più di codice!!!
per esempio cosa c'è in strquery ed in item!!!

**J.Lankart** · 01-06-2005, 10:24

Pagina inviamailguest.asp.

</table>"
Set tuamail = Server.CreateObject("CDONTS.Newmail")
tuamail.from = "Aggiunta firma sul Guestbook <mia.mail.it>"
tuamail.to = "mia.mail.it"
tuamail.subject = "Firmato guestbook"
tuamail.body = testo
tuamail.BodyFormat = 0
tuamail.MailFormat = 0
tuamail.send
Set tuamail = Nothing

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 & item &","
strValori= strValori & "'"&server.HTMLEncode(request.form(item))& "',"
end if
next

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

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

response.end
end if
%>
<html>
<head>
</head>
<body>
Grazie per aver firmato il Guestbook!!
chiudi
</body>
</html>

**albis** · 01-06-2005, 10:33

posta tutto il codice

Discussione: scrivere su db access

Strumenti discussione

Ricerca discussione

Visualizza

scrivere su db access

Permessi di invio