formcdosys.asp

**marix** · 05-04-2009, 16:44

salve ho un sito web con aruba e gestisco le richieste di disponibilità con formcdosys.asp
vorrei eliminare dei campi e rendere il modulo più leggibile.
attualmente ricevo questa email_:
Richiesta disponibilità bimbinvacanza.it http://www.bimbinvacanza.it/modulo_contatti.asp?id=283 da utente con indirizzo IP 79.0.87.142 browser e sistema operativo Mozilla/5.0 (Windows; U; Windows NT 5.1; it; rv:1.9.0.8) Gecko/2009032609 Firefox/3.0.8

IP_ADDR = 151.48.125.142
USER_AGENT = Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0; SLCC1; .NET CLR 2.0.50727; Media Center PC 5.0; .NET CLR 3.0.04506)
nome = mirella
email = xxxxxxx
giorno arrivo = 8
mese arrivo = agosto
giorno partenza = 22
mese partenza = agosto
numero adulti = 2
numero bambini = 3
eta_bambini = 6
eta_bambin2 = 2
eta_bambini3 = 0
messaggio = richiesta preventivo dal 8 agosto al 22 agosto .2 adulti e 3 bambini di 6-2-0 anni(l'infante dorme letto matrimoniale). pensione completa. accesso a piscine
autorizzazione = SI

vorei eliminare:browser e sistema operativo Mozilla/5.0 (Windows; U; Windows NT 5.1; it; rv:1.9.0.8) Gecko/2009032609 Firefox/3.0.8

IP_ADDR = 151.48.125.142
USER_AGENT = Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0; SLCC1; .NET CLR 2.0.50727; Media Center PC 5.0; .NET CLR 3.0.04506)

e rendere il messaggio più legibile.
grazie
se volete vi nvio il codice

**Vincent.Zeno** · 05-04-2009, 18:09

Originariamente inviato da marix
se volete vi nvio il codice

era la prima cosa da farsi

se stai usando il modello fornito da aruba che ho inteso io,
è sufficiente commentare questa riga:

codice:

'browserSistemaOperativo	= Request.ServerVariables("HTTP_USER_AGENT")

e modificare il corpo delle mail così:

codice:

prima:
.HTMLBody = "Questi i dati inseriti nel modulo presente alla pagina " & modulo & " da utente con indirizzo IP " & indirizzoIp & "  browser e sistema operativo " & browserSistemaOperativo  & vbCrLf & corpoMessaggio & ""

dopo:
.HTMLBody = "Questi i dati inseriti nel modulo presente alla pagina " & modulo & " da utente con indirizzo IP " & indirizzoIp &  vbCrLf & corpoMessaggio & ""

se non corrisponde posta il codice

**marix** · 05-04-2009, 18:25

grazie adesso mi esce così:
Richiesta disponibilita http://www.bimbinvacanza.it/richiestaprova.htm da utente con indirizzo IP 151.59.148.245 giorno arrivo = 1 mese arrivo = maggio giorno partenza = 30 mese partenza = gennaio email = xxxxxxx numero telefonico per contatto = 4455 messaggio per struttura = eeee

è possibile far andare a capo ogni campo come si compila il modulo? Tutto attaccato non si capisce molto

grazie 1000

**Vincent.Zeno** · 05-04-2009, 18:30

dovrebbre andare... posta il codice

**marix** · 05-04-2009, 18:34

ecco grazie

<%
'============Linkbruttocane su specifiche MSDN================
'* il corpo finale del messaggio contiene tutti i campi *
'* inseriti nella pagina html, in pratica puoi mettere *
'* tutti i campi che ti servono nel modulo di invio senza *
'* fare altre configurazioni aggiuntive. *
'================================================= ============

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

'* voce da modificare con il proprio indirizzo email

invioA = "linkbruttocane@aruba.it"

'* 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 = "linkbruttocane@technet.it"

'------------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

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

'* 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 = "niaemail"
.From = Request.Form("email")
.Sender = "@"
.Subject = "Richiesta disponibilità " & nomeDominio
.HTMLBody = "Richiesta disponibilita " & modulo & " da utente con indirizzo IP " & indirizzoIp & vbCrLf & corpoMessaggio & ""
.Send
End With
%>
<script>
document.location.replace('grazie.asp');
</script>

**Vincent.Zeno** · 05-04-2009, 18:37

mettilo tra i tag CODE altrimenti non lo guardo....

edit: ci sei quasi

edit2: modifica il post, non riscriverlo

**marix** · 05-04-2009, 18:43

[CODE

<%
'============Linkbruttocane su specifiche MSDN================
'* il corpo finale del messaggio contiene tutti i campi *
'* inseriti nella pagina html, in pratica puoi mettere *
'* tutti i campi che ti servono nel modulo di invio senza *
'* fare altre configurazioni aggiuntive. *
'================================================= ============

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

'* voce da modificare con il proprio indirizzo email

invioA = "linkbruttocane@aruba.it"

'* 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 = "linkbruttocane@technet.it"

'------------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

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

'* 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 = "info@bimbinvacanza.it"
.From = Request.Form("email")
.Sender = "info@bimbinvacanza.it"
.Subject = "Richiesta disponibilità " & nomeDominio
.HTMLBody = "Richiesta disponibilita " & modulo & " da utente con indirizzo IP " & indirizzoIp & vbCrLf & corpoMessaggio & ""
.Send
End With
%>
<script>
document.location.replace('grazie.asp');
</script>[/CODE]

**marix** · 05-04-2009, 18:44

codice:

<%
'============Linkbruttocane su specifiche MSDN================
'*   il corpo finale del messaggio contiene tutti i campi    *
'*   inseriti nella pagina html, in pratica puoi mettere     *
'*   tutti i campi che ti servono nel modulo di invio senza  *
'*   fare altre configurazioni aggiuntive.                   *  
'=============================================================

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

	'* voce da modificare con il proprio indirizzo email
	
invioA =  "linkbruttocane@aruba.it"

	'* 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 =  "linkbruttocane@technet.it"

'------------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
	
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

	'* 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 = "info@bimbinvacanza.it"
   .From = Request.Form("email")
   .Sender = "info@bimbinvacanza.it"
   .Subject = "Richiesta disponibilità " & nomeDominio
   .HTMLBody = "Richiesta disponibilita " & modulo & " da utente con indirizzo IP " & indirizzoIp &  vbCrLf & corpoMessaggio & ""
   .Send
End With
%> 
<script>
document.location.replace('grazie.asp');
</script>

**Vincent.Zeno** · 05-04-2009, 18:47

hai tolto il replace del messaggio

codice:

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))
   corpoMessaggio = Replace(corpoMessaggio,vbCrLf,"
")
   END IF
NEXT

**marix** · 05-04-2009, 19:00

potresti x favore darmi il codice completo?

Discussione: formcdosys.asp

Strumenti discussione

Ricerca discussione

Visualizza

formcdosys.asp

Re: formcdosys.asp

Permessi di invio