Invio a DB Access + Mail

[Mike Modano]

ciao Ragazzi,
premetto che sono veramente un programmatore asp fai da te attingo di qua e di la e di solito qualcosa combino... quindi scusatemi se la purezza dei miei script e delle mie intuizioni sono palesemente sbagliate.

allora:
io vorrei far compilare un form di iscrizione ad un congresso e fin qui direi che ci siamo la pagina è un html con dentro un form:

______________________________

<form method=post action="ins_cenaspecializzandi2011.asp">
<table width="361" border="0" cellspacing="0" cellpadding="0">
                <tr> 
                  <td>[img]/immagini/newsymposia/iscr2011tasti/nome.png[/img]</td>
                  <td width="191"><font color="#333333" size="2" face="Verdana, Arial, Helvetica, sans-serif"> 
                    <input type="text" name="nome" size="40">
                    </font></td>
                </tr>
                <tr> 
                  <td>[img]/immagini/newsymposia/iscr2011tasti/cognome.png[/img]</td>
                  <td width="191"><font color="#333333" size="2" face="Verdana, Arial, Helvetica, sans-serif"> 
                    <input type="text" name="cognome" size="40">
                    </font></td>
                </tr>

naturalmente tronco qui perchè non è importante il resto del form


una pagina inerimento.asp di inserimento che è la seguente

__________________________________________________ _________

<%
objconn_symposia.open
sqlsymposia= "select * from tabspecializzandi2011"
dim rs
set rs=server.CreateObject("ADODB.Recordset")
rs.open sqlsymposia, objconn_symposia,3,3
rs.addnew
rs("nome")=request.Form("nome")
rs("cognome")=request.Form("cognome")
rs.update
rs.close
set objrs=nothing
response.Redirect("risposta.asp")
%>

a questo punto vorrei che i dati che in questo caso ho lasciato (nome e cognome venissero inviati per mail ad una mail prestabilita.
io ho aggiunto la seguente pagina : risposta.asp

DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo

	'* voce da modificare con il proprio indirizzo email
	
invioA =  "mail@mail"

	'* voce da modificare con un indirizzo email che funga da mittente: 
	'* in caso di errore riceverete notifica a questo indirizzo un MAILER-DAEMON
	'* dato che cdosys supporta questa notifica
		
invioDa =  "mail@mail.com"

'------------fine modifiche necessarie------------------

nomeDominio 				= Request.ServerVariables("HTTP_HOST")
indirizzoIp					= Request.ServerVariables("REMOTE_ADDR") 
modulo						= Request.ServerVariables("HTTP_REFERER")
browserSistemaOperativo		= Request.ServerVariables("HTTP_USER_AGENT")


	'*rilevo i campi del form


corpoMessaggio = "è stata registrata una nuova iscrizione"

	'* creo gli oggetti cdosys sul server e li gestisco
	
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

With iMsg
   Set .Configuration = iConf
   .To = invioA
   .From = invioDa
   .Sender = invioDa
   .Subject = " Nuova Iscrizione Specializzandi 2011 " & nomeDominio
   .TextBody = "Questi i dati inseriti nel modulo presente alla pagina " & modulo  & " da utente con indirizzo IP " & indirizzoIp & "  browser e sistema operativo " & browserSistemaOperativo  & vbCrLf & corpoMessaggio & ""
   .Send
End With
%> 
<script>
document.location.replace('grazie.asp');
</script>

__________________________________________________ __________
la pagina grazie.asp la tralascio perchè fa solo un redirect alla home page del sito

con questo sistema ho solo fatto in modo che dopo l'inserimento nel database dei dati degli iscritti
venga inviata una mail alla segreteria in cui si notifica l'inserimento di una nuova iscrizione (mi piacerebbe però passare anche (nome e cognome)
come posso fare?

spero che sia comprensibile il tutto e se a livello di successione delle operazioni ho sbagliato fatemelo notare.

domenico

[Roby_72]

.TextBody = "Questi i dati inseriti nel modulo presente alla pagina " & modulo  & " da utente "& request.form("nome") &" "& request.form("cognome") &" con indirizzo IP " & indirizzoIp & "  browser e sistema operativo " & browserSistemaOperativo  & vbCrLf & corpoMessaggio & "

Roby

[Mike Modano]

EH si lo so ma questa pagina non arriva direttamente dal form, arriva dopo la pagina inserimento quindi io i campi li dovrei portare dal form alla pagina inserimento e quindi alla pagina risposta.

[Roby_72]

response.Redirect("risposta.asp?nome="& request.form("nome") &"&cognome="& request.form("cognome"))

In quello che ti ho scritto prima devi sostituire .Form con .QueryString

Roby

[Mike Modano]

grazie provo siete mittici