Scusatemi se riposto lo stesso problema ma, non riesco ad estrarre i campi nell'ordine che preferisco. Come devo modificare il seguente 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.codice:<% 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>
Grazie

Rispondi quotando