Ciao a tutti,
Ho un form che invia perfettamente i dati di una mail con CDONTS, ma quando provo ad inserire anche l'istruzione INSERT INTO per scrivere i dati in un db, non ricevo alcun messaggio di errore, ma la mail non arriva a destinazione.
Mi date un idea di dove andare a cercare l'errore?
Grazie..
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
Questo è il codice:
<%Language="VBScript"%>
<%
Function CheckSQL(S)
CheckSQL=Trim(Replace(S, "'", "''"))
End Function
dim stringaconn, conn,sql,rs,sql1,sql2,sql3
dim carta
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open"driver={Microsoft Access Driver (*.mdb)};DBQ="& server.mappath("writable/fazzari.mdb")
dim nome,cognome,Email,tel,loc,provincia,indirizzo,cap ,data,ora,ID
nome=replace(trim(Request.Form("nome")), "'", "''")
cognome=replace(trim(Request.Form("cognome")), "'", "''")
Email=replace(trim(Request.Form("Email")), "'", "''")
tel=replace(trim(Request.Form("tel")), "'", "''")
loc=replace(trim(Request.Form("loc")), "'", "''")
provincia=replace(trim(Request.Form("provincia")), "'", "''")
indirizzo=replace(trim(Request.Form("indirizzo")), "'", "''")
cap=replace(trim(Request.Form("cap")), "'", "''")
data="(" & date() & ")"
ora="(" & Time() & ")"
sql="insert into UTENTI_CARD (nome,cognome,Email,tel,loc,provincia,indirizzo,ca p,data,ora) " _
& " values('" & [nome] & "','" & [cognome] & "','" & [Email] & "','" & [tel] & "','" & [loc] & "','" & [provincia] & "','" & [indirizzo] & "','" & [cap] & "','" & [data] & "','" & [ora] & "')"
SET rs=conn.execute(sql)
sql1="select TOP 1 ID from UTENTI_CARD order by ID DESC"
set rs=conn.execute (sql1)
'Response.Write ("Ultimo_ID="&rs(0))
ID=rs("ID")
dim rs1
sql2="select * from CARTE where ID="&ID
sql3="UPDATE CARTE SET assegnata= TRUE where id="&ID
set rs1=conn.execute (sql3)
'INVIO DELLA MAIL CON IL BARCODE
set OggettoMail = Server.CreateObject("CDONTS.NewMail")
StrBody = "<HTML><HEAD><TITLE>EMAIL</TITLE>"
StrBody = StrBody + "<style type='text/css'>"
StrBody = StrBody + ".link { font-family: verdana; font-size: 8pt;font-weight:bold; color: CD2828; text-decoration: none}"
StrBody = StrBody + ".link:Hover { font-family: verdana; font-size: 8pt;font-weight:bold; color: 404056; text-decoration: none}"
StrBody = StrBody + ".testo {FONT-size:16px; font-family:verdana; color:999999}"
StrBody = StrBody + ".testored {FONT-size:16px; font-family:verdana; color:CC0000}"
StrBody = StrBody + ".testo8 {font-size:16px; font-weight:bold; font-family:verdana; color:333333}"
StrBody = StrBody + ".testob {FONT-size:16px; font-weight:bold; font-family:verdana; color:333333}"
StrBody = StrBody + ".testoaz {FONT-size:16px; font-family:verdana; color:336699}"
StrBody = StrBody + ".testove {FONT-size:16px; font-weight:bold; font-family:verdana; color:339933}"
StrBody = StrBody + ".testoar {FONT-size:16px; font-weight:bold; font-family:verdana; color:FF6600}"
StrBody = StrBody + ".testor {FONT-size:16px; font-weight:bold; font-family:verdana; color:FF0000}"
StrBody = StrBody + ".testoW {FONT-size:16px; font-weight:bold; font-family:verdana; color:FFFFFF}"
StrBody = StrBody + ".testosmall {FONT-size:11px; font-weight:bold; font-family:verdana; color:333333}"
StrBody = StrBody + "</style>"
StrBody = StrBody + "<BODY>"
StrBody = StrBody + "<table border=0 width=100% cellspacing=0 cellpadding=1><tr><td class='testo'>"
StrBody = StrBody + "[img]logo.jpg[/img]</td></tr>"
StrBody = StrBody + "<tr><td class='testoar'>w</td></tr>"
StrBody = StrBody + "<tr bgcolor='#efeff7'><td height='20' class='testob'>"
StrBody = StrBody + " da: <font class='testoaz'> WELCOME "
StrBody = StrBody + "</font> - INFO"
StrBody = StrBody + "</td></tr>"
StrBody = StrBody + "</table>"
StrBody = StrBody + "<table width=500 cellspacing=0 cellpadding=0><tr height=10><td colspan=2></td></tr>"
StrBody = StrBody + "<tr height=10><td colspan=2></td></tr>"
StrBody = StrBody + "<tr><td colspan=2 class='testoar'><font color='336699'>BENVENUTO</font></td></tr>"
StrBody = StrBody + "<tr><td colspan=2 class='testo'>Invio della whore card - testo </td></tr>"
StrBody = StrBody + "<tr height=10><td colspan=2></td></tr>"
StrBody = StrBody + "</table>"
StrBody = StrBody + "</BODY></HTML>"
OggettoMail.From = "MITTENTE"
OggettoMail.To = "pippo@pippo.it"
OggettoMail.Bcc = ""
OggettoMail.Subject = "mail"
OggettoMail.BodyFormat=0
OggettoMail.MailFormat=0
OggettoMail.Body = strBody
OggettoMail.Send
set OggettoMail = Nothing
Session.Abandon
%>
Rispondi quotando
