Ciao a tutti. Avevo realizzato a suo tempo un semplice programmino di invio email con flash che spediva i dati ad uno script asp semplice semplice, e tutto funzionava alla perfezione. Adesso vorrei fare in modo che oltre all'invio, gli stessi campi provenienti da flash fossero anche utilizzati per essere scritti su un database access.
Con le mie scarsissime competenze di asp ho assemblato lo script precedente con uno che scriva i dati su access. Purtroppo qualcosa non va, lo script riceve i dati per le email e le spedisce ma non scrive nulla sul database. Lo posto qua sotto, qualcuno può darmi qualche dritta? Grazie mille!
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim MiaMail
Set MiaMail = Server.CreateObject ("CDO.Message")
MiaMail.From = Request.Form ("from")
MiaMail.To = Request.Form ("email")
MiaMail.Cc = Request.Form ("altri")
MiaMail.Bcc = Request.Form ("nascosto")
MiaMail.Subject = Request.Form ("oggetto")
MiaMail.HTMLBody = Request.Form ("messaggio")
MiaMail.Fields.Update()
MiaMail.Send()
Set MiaMail = Nothing
Dim objConn
Set objConn= Server.CreateObject("ADODB.Connection")
objConn.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("/mdb-database/outlook.mdb")
objConn.open
from = request.Form("from")
email = request.Form("email")
altri = request.Form("altri")
nascosto = request.Form("nascosto")
oggetto = request.Form("oggetto")
messaggio = request.Form("messaggio")
Set RS = Server.CreateObject("ADODB.Recordset")
sqlString = "INSERT INTO outlook (from,email,altri,nascosto,oggetto,messaggio)"&_
" values ('"&from&"','"&email&"','"&altri&"','"&nascosto&"' ,'"&oggetto&"','"&messaggio&"')"
objConn.Execute sqlString
objConn.close
%>

Rispondi quotando