Strano .. ma credo di avere un problema ^_^
Ho compilato una pagina ASP che si occupa di ricevere
dei dati provenienti da un classico modulo e si preoccupa, oltre che di memorizzare i dati in un file access, anche di mandare due email a ME ed
all'utente che decide di registrarsi.
La pagina si chiama check_registra_invia.asp
La cosa strana è che la pagina sembra processare tutto .. ed effettivamente invia le email ad i destinatari.
Il fatto è che la parte che dovrebbe occuparsi di scrivere i dati nel db, non sortisce alcun effetto.
Quando apro il db non trovo i dati di riferimento.
Qualcuno mi aiuta? ^_^
///////////-----------check_registra_invia.asp
<%
DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo
invioA = "ramonadp@libero.it"
invioDa = "ramonadp@libero.it"
nomeDominio = Request.ServerVariables("HTTP_HOST")
indirizzoIp = Request.ServerVariables("REMOTE_ADDR")
modulo = Request.ServerVariables("HTTP_REFERER")
browserSistemaOperativo = Request.ServerVariables("HTTP_USER_AGENT")
corpoMessaggio = Request.QueryString("info")
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 ' 0
Flds.Update
'ARRIVO NELLA MIA CASELLA DI POSTA
With iMsg
Set .Configuration = iConf
.To = invioA
.From = request.querystring("email")
.Sender = invioDa
.Subject = "Contatto da " & nomeDominio
.textBody = "Nome: " & request.queryString("nome") & vbCrLf & corpoMessaggio & ""
.Send
End With
Set iMsgo = CreateObject("CDO.Message")
Set iConfo = CreateObject("CDO.Configuration")
Set Fldso = iConfo.Fields
Fldso(cdoSendUsingMethod) = cdoSendUsingPort
Fldso(cdoSMTPServer) = "smtp.aruba.it"
Fldso(cdoSMTPServerPort) = 25
Fldso(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Fldso.Update
With iMsgo
Set .Configuration = iConfo
' EMAIL CHE RICEVE L'UTENTE
.To = request.querystring ("email")
.From = invioA
.Sender = invioDa
.Subject = " Ramona risponde ^_^ "
.HtmlBody = " <html><body><font color='#CC0000' face='verdana, Helvetica, sans-serif' size='2'> Grazie per aver visitato il sito www.ramonadp.it.</font></body></html>"
.Send
End With
%>
<!--#include file="connstring.inc" -->
<%
set conn=server.createobject("ADODB.connection")
conn.open strconn
set rs=server.createobject("ADODB.recordset")
rs.open "tabella", conn, 2, 2
rs.AddNew
rs("nome")=Request.form("nome")
rs("cognome")=Request.form("cognome")
rs("anno")=Request.form("anno")
rs("email")=Request.form("email")
rs("condominio")=Request.form("info")
rs.update
rs.MoveLast
rs.close
conn.Close
set rs = Nothing
set conn = Nothing
Response.Redirect ("ramona.asp")
%>
