Request.Form

[pattaya]

Scusatemi se riposto lo stesso problema ma, non riesco ad estrarre i campi nell'ordine che preferisco. Come devo modificare il seguente script ?

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

invioA =  "info@dominio.it"

invioDa =  "info@dominio.it"

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 = corpoMessaggio & 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 ' 0
Flds.Update

With iMsg
   Set .Configuration = iConf
   .To = invioA
   .From = Request.Form("email")
   .Sender = invioDa
   .Subject = "Prenotazioni - " & nomeDominio
   .TextBody = "Modulo dalla pagina " & modulo & "  indirizzo IP " & indirizzoIp &   vbCrLf & corpoMessaggio & ""
   .Send
End With
%> 
<script>
document.location.replace('grazie.asp');
</script>

Vorrei estrarre per esempio prima il campo 3, poi il campo1, poi il campo7, praticamente nell'ordine che preferisco io senza cambiare l'HTML.

Grazie

[Roby_72]

Non aprire altre discussioni per lo stesso problema.
Come si chiama il campo? Il "name" di ogni campo del form?
Recupera quello direttamente!!!! Non usare la for

Roby

[pattaya]

Hai ragione ma non ci riesco a farlo funzionare dove sbaglio?

<%
DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo
	
invioA =  "info@dominio.it"
	
invioDa =  "info@dominio.it"

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

destinatario = trim(request.form("destinatario")) 
mittente = trim(request.form("mittente")) 
	
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 = Request.Form("email")
   .Sender = invioDa
   .Subject = "Prenotazioni - " & nomeDominio
   .TextBody = "Modulo dalla pagina " & modulo & "  indirizzo IP " & indirizzoIp &   vbCrLf & corpoMessaggio & ""
   .Send
End With
%> 
<script>
document.location.replace('grazie.asp');
</script>

[Roby_72]

Ma mittente e destinatario sono due campi del form di partenza???
Ragiona su quello che stai facendo.

Roby

[pattaya]

Ho risolto così.
Grazie.

<%

DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo, Arrivo, Partenza, Adulti, Notti, Trattamento, Bambini, Camera, Altro, Eta, messaggio, NOME, COGNOME, Indirizzo, Comune, Provincia, Nazione, TELEFONO, email, INFORMAZIONI, PRENOTAZIONI, Cap, Informazione, Prenotazione


	
invioA =  "info@dominio.com"

invioDa =  "email"


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

	
Arrivo = request.form("Arrivo")
Partenza = request.form("Partenza")
Adulti= request.form("Adulti")
Notti = request.form("Notti")
Trattamento = request.form("Trattamento")
Bambini = request.form("Bambini")
Camera = request.form("Camera")
Altro = request.form("Altro")
Eta = request.form("Eta")
messaggio = request.form("messaggio")
NOME= request.form("NOME")
COGNOME = request.form("COGNOME")
Indirizzo = request.form("Indirizzo")
Comune = request.form("Comune")
Provincia = request.form("Provincia")
Nazione = request.form("Nazione")
TELEFONO = request.form("TELEFONO")
email = request.form("email")
INFORMAZIONI = request.form("INFORMAZIONI")
PRENOTAZIONI = request.form("PRENOTAZIONI")
Cap =request.form("Cap")
Informazione =request.form("Informazione")
Prenotazione =request.form("Prenotazione")

		
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 = Request.Form("email")
   .Sender = invioDa
   .Subject = "Risposta - "   & Informazione & " " & Prenotazione 
   .HTMLBody = "<font face=""Verdana, Arial, Helvetica, sans-serif"" size=2 ><font size=4 color=#e80404>Richiesta:  " & Informazione & " " & Prenotazione & "</font>


<font color=#262ad8>Nome:  " & NOME & " " & COGNOME & "
Indirizzo: " & Indirizzo & " - " & Comune & " (" & provincia & ") " & Nazione & " " & Cap & " 
Telefono: " & TELEFONO & " 
E-mail: " & email & "</font>

Arrivo: " & Arrivo & " 
Partenza: " & Partenza & " </font>
Notti: " & Notti & " 
Adulti: " & Adulti & " 
Bambini: " & Bambini & " 
Eta: " & Eta & " </font>
Camera: " & Camera & " 
Trattamento: " & Trattamento & " 

Messaggio:</font> " & messaggio & " 





</font>"
   .Send
End With

%> 

<script>
document.location.replace('grazie.asp');
</script>