Salve a tutti. Ho costruito una pagina ASP che recupera dei dati provenienti da un form, controlla se è stato inserito un valore doppione nel campo codice fiscale (e in caso restituisce un messaggio di registrazione fallita e i dati non sono registrati nel database). Viceversa, se il valore non è doppione, registra i dati e invia una email di riepilogo all'utente. Il problema è che, in caso di codice fiscale già inserito, appare la scritta di errore, non registra i dati MA invia lo stesso una mail di conferma di un appuntamento mai prenotato per via del controllo del doppione.
Qualcuno mi dà una mano a risolvere ? Grazie
codice:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<head>
<!--#include file="adovbs.inc" -->
<title>Prenotazione vaccini COVID19 - Monreale</title>
<style type="text/css">
.centro {
text-align: center;
}
</style>
</head>
<body>
<p align="center"><img src="../img/LOGOMONTEREALE1.jpg" width="50" height="96" border="0" /></p>
<p align="center"><strong>COMUNE DI MONREALE</strong></p>
<p align="center">(Provincia di Palermo)</p>
<p align="center"> </p>
<p align="center"> </p>
<p align="center"> </p>
<p class="centro">
<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("../database/pren_vacc.mdb")
DIM ncf
DIM cf
cognome=request.form("cognome")
nome=request.form("nome")
data_nascita=request.form("data_nascita")
indirizzo_residenza=request.form("indirizzo_residenza")
citta=request.form("citta")
recapito_telefonico=request.form("recapito_telefonico")
email=request.form("email")
data_primo_vacc=request.form("data_primo_vacc")
luogo_primo_vacc=request.form("luogo_primo_vacc")
tipo_vacc=request.form("tipo_vacc")
nuovo_vacc=request.form("nuovo_vacc")
richiamo_vacc=request.form("richiamo_vacc")
patologia=request.form("patologia")
fondo=request.form("fondo")
sezione=request.form("sezione")
serie=request.form("serie")
ncf = request.form("cf")
Dim objRec
Set objRec = Server.CreateObject("ADODB.Recordset")
sql="select * from pren_vacc where cf = '"&ncf&"'"
objRec.Open sql, objConn, 3, 3
if not objRec.eof then
response.write("<div align='center'> Questo codice fiscale è già registrato. Registrazione fallita. <a href='http://prenotazionevaccinocovidmonreale.somee.com/index.asp'> <br>Clicca qui per effettuare una nuova registrazione</a></div><br>")
objRec.Close
Set objRec = Nothing
objConn.Close
Set objConn = Nothing
else
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open "pren_vacc", objConn, 3,3
RS.AddNew
rs("cognome")=cognome
rs("nome")= nome
rs("data_nascita")=data_nascita
rs("indirizzo_residenza")=indirizzo_residenza
rs("citta")=citta
rs("recapito_telefonico")=recapito_telefonico
rs("email")=email
rs("data_primo_vacc")=data_primo_vacc
rs("luogo_primo_vacc")=luogo_primo_vacc
rs("tipo_vacc")=tipo_vacc
rs("nuovo_vacc")=nuovo_vacc
rs("richiamo_vacc")=richiamo_vacc
rs("patologia")=patologia
rs("cf")=ncf
rs("fondo")=fondo
rs("sezione")=sezione
rs("serie")=serie
response.write("Registrazione avvenuta con successo. <br>A breve riceverai una email di conferma all'indirizzo che hai registrato. <br>Si prega, eventualmente, di controllare anche nella cartella SPAM (o posta indesiderata) <a href='http://prenotazionevaccinocovidmonreale.somee.com/index.asp'> <br>Clicca qui per effettuare una nuova registrazione</a></div><br>")
rs.update
rs.Close
objConn.Close
end if
%>
<%
Dim ObjSendMail
Set ObjSendMail = CreateObject("CDO.Message")
'This section provides the configuration information for the remote SMTP server.
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network).
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="smtps.aruba.it"
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True 'Use SSL for the connection (True or False)
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
' authentication
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="email mittente"
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="***"
'End remote SMTP server configuration section==
'Notifica di lettura
ObjSendMail.fields("urn:schemas:mailheader:disposition-notification-to") = "email mittente"
ObjSendMail.Fields("urn:schemas:mailheader:return-receipt-to") = "email mittente"
'Invio dati via email
ObjSendMail.To = request.form("email")
ObjSendMail.Subject = "Conferma prenotazione vaccino COVID19 - Monreale"
ObjSendMail.From = "email mittente"
ObjSendMail.Configuration.Fields.Update
' we are sending a text email.. simply switch the comments around to send an html email instead
'ObjSendMail.HTMLBody = "this is the body"
'ObjSendMail.TextBody =
ObjSendMail.TextBody = "La Sua prenotazione è stata confermata:" &vbcrlf& request.form("cognome") &vbcrlf& request.form ("nome") &vbcrlf& request.form ("fondo") &vbcrlf& request.form("serie") &vbcrlf& "Presso centro vaccinale S. Gaetano - Monreale."&vbcrlf& "Cordiali saluti, lo Staff del Sindaco."
'Invio allegato
ObjSendMail.AddAttachment server.MapPath("../txt/modulo.pdf")
ObjSendMail.Send
Set ObjSendMail = Nothing
%>
</body>
</html>