Buongiorno a tutti, come da oggetto ho un grossissimo ed assurdo problema con CDOSYS su aruba.
Ho una pagina asp in cui ho inserito un form per una richiesta informazioni ed un'altra pagina asp che processa i dati inseriti nei campi inviandoli via e-mail e salvandoli su db access.
In generale funziona tutto in maniera corretta, nel senso che le 2 pagine fanno il loro dovere.
La cosa molto strana è che però spesso mi arriva l'e-mail vuota e sul db viene inserito un nuovo record "bianco" --> quindi lo script funziona perchè invia l'e-mail (cdosys) e "riempie" i campi della tabella del db (insert) --> ma tutto ciò che registra e invia è inutile!!!.
Posto di seguito lo script della pagina che processa i dati
Grazie 1000000000....
<%
DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo
invioA = "info@miosito.it"
invioDa = ""
nomeDominio= Request.ServerVariables("HTTP_HOST")
indirizzoIp= Request.ServerVariables("REMOTE_ADDR")
modulo= Request.ServerVariables("HTTP_REFERER")
browserSistemaOperativo= Request.ServerVariables("HTTP_USER_AGENT")
FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
IF NOT Request.Form(numeroCampi) = "" THEN
corpoMessaggio = vbCrLf & "Nome: " & Request.Form("nome") & vbCrLf & "Cognome: " & Request.Form("cognome") & vbCrLf & "Telefono: " & Request.Form("Telefono") & vbCrLf & "E-mail: " & Request.Form("email") & vbCrLf & "Monolocale: " & Request.Form("mono") & vbCrLf & "Bilocale: " & Request.Form("bilo") & vbCrLf & "Trilocale: " & Request.Form("trilo") & vbCrLf & "Adulti: " & Request.Form("persone") & vbCrLf & "Bambini: " & Request.Form("bambini") & vbCrLf & "Arrivo: " & Request.Form("select") & " " & Request.Form("select2") & " " & Request.Form("select3") & vbCrLf & "Partenza: " & Request.Form("select4") & " " & Request.Form("select5") & " " & Request.Form("select6") & vbCrLf & "Biancheria: " & Request.Form("biancheria") & vbCrLf & Request.Form.Key(numeroCampi) & ": " & Trim(Request.Form(numeroCampi))
END IF
NEXT
DIM iMsg, Flds, iConf
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous
Flds.Update
With iMsg
Set .Configuration = iConf
.To = invioA
.From = Request.Form("email")
.Sender = invioDa
.Subject = "Richiesta informazioni"
.TextBody = "Un nuovo utente ha effettuato una richiesta informazioni in data " & now & vbCrLf & corpoMessaggio &""
.Send
End With
%>
<%
Dim arrivo
arrivo = request.Form("select") + " " + request.Form("select2") + " " + request.Form("select3")
Dim partenza
partenza = request.Form("select4") + " " + request.Form("select5") + " " + request.Form("select6")
%>
<%
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/mdb-database/db2.mdb")
sql = "INSERT INTO Richieste (Nome,Cognome,Telefono,email,mono,bilo,trilo,perso ne,arrivo,partenza,biancheria,messaggio) VALUES ('"&request.Form("Nome")&"','"&request.Form("Cogno me")&"','"&request.Form("Telefono")&"','"&request. Form("email")&"','"&request.Form("mono")&"','"&req uest.Form("bilo")&"','"&request.Form("trilo")&"',' "&request.Form("persone")&"','"&arrivo&"','"&parte nza&"','"&request.Form("biancheria")&"','"&request .Form("messaggio")&"')"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
Conn.Close
%>
<script>
document.location.replace('grazie.asp');
</script>
Rispondi quotando