Xmlhttp

[malecce]

Ragazzi, leggendo qualche thread ho capito come spedire una pagina per posta elettronica direttamente dal server con CDOSYS(WIN 2003), però se spedisco un pagina some nell'esempio(ordineNew1.asp?ID=116) è tutto ok, effettivamente la pagina di destinazione pesca l'ordine con ID 116 e me lo spedisce,se invece l'ID lo mando variabile o almeno così credo di fare , tipo ID= Session("ID")la pagina di destinazione viene spedita come se non gli avessi mandato effettivamente L'ID ma con una serie di errori.è come se spedissi la stringa Session("ID") e non il valore e chiaramente la pagina di destinazione va in errore.Allora per chiudere mi chiedo come posso fare per capire cosa effettivamente spedisco alla pagina?

Questo è lo script.

<%
'Set xml = Server.CreateObject("Microsoft.XMLHTTP")
' Oppure, per la versione 3.0 di XMLHTTP, usare:
Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")
' Apri la connessione remota
xml.Open "GET", "http://www.advmarea.com/ordini/ordineNew1.asp?ID=116 ", False
' Spedisci la richiesta
xml.Send
Dim miaMail
Set miaMail = CreateObject("CDO.Message")
miaMail.From = "info@giovanielavoro.org"
miaMail.To = "info@magadesign.net"
miaMail.Subject = "spedizione ordine"
miaMail.HTMLBody = 0
miaMail.HTMLBody = xml.responseText
miaMail.Send
Set miaMail = Nothing
Set xml = Nothing
%>

Grazie per gli eventuali suggerimenti( semplici)

Maurizio

[Roby_72]

Posta lo script che usi quando mandi l'id con la session.

Roby

[malecce]

Eccolo:

<%
Session("ID") = Request.QueryString("ID")
%>
<%
'Set xml = Server.CreateObject("Microsoft.XMLHTTP")
' Oppure, per la versione 3.0 di XMLHTTP, usare:
Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")
' Apri la connessione remota
xml.Open "GET", "http://www.advmarea.com/ordini/ordineNew1.asp?ID=Session(""ID"") ", False
' Spedisci la richiesta
xml.Send
Dim miaMail
Set miaMail = CreateObject("CDO.Message")
miaMail.From = "info@giovanielavoro.org"
miaMail.To = "info@magadesign.net"
miaMail.Subject = "spedizione ordine"
miaMail.HTMLBody = 0
miaMail.HTMLBody = xml.responseText
miaMail.Send
Set miaMail = Nothing
Set xml = Nothing
%>

[Roby_72]

Originariamente inviato da malecce
Eccolo:

<%
Session("ID") = Request.QueryString("ID")
%>
<%
'Set xml = Server.CreateObject("Microsoft.XMLHTTP")
' Oppure, per la versione 3.0 di XMLHTTP, usare:
Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")
' Apri la connessione remota
xml.Open "GET", "http://www.advmarea.com/ordini/ordineNew1.asp?ID="& Session(""ID""), False
' Spedisci la richiesta
xml.Send
Dim miaMail
Set miaMail = CreateObject("CDO.Message")
miaMail.From = "info@giovanielavoro.org"
miaMail.To = "info@magadesign.net"
miaMail.Subject = "spedizione ordine"
miaMail.HTMLBody = 0
miaMail.HTMLBody = xml.responseText
miaMail.Send
Set miaMail = Nothing
Set xml = Nothing
%>

:quipy:

[Roby_72]

Originariamente inviato da malecce
Eccolo:

<%
Session("ID") = Request.QueryString("ID")
%>
<%
'Set xml = Server.CreateObject("Microsoft.XMLHTTP")
' Oppure, per la versione 3.0 di XMLHTTP, usare:
Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")
' Apri la connessione remota
xml.Open "GET", "http://www.advmarea.com/ordini/ordineNew1.asp?ID="& Session("ID"), False
' Spedisci la richiesta
xml.Send
Dim miaMail
Set miaMail = CreateObject("CDO.Message")
miaMail.From = "info@giovanielavoro.org"
miaMail.To = "info@magadesign.net"
miaMail.Subject = "spedizione ordine"
miaMail.HTMLBody = 0
miaMail.HTMLBody = xml.responseText
miaMail.Send
Set miaMail = Nothing
Set xml = Nothing
%>

:quipy:

[malecce]

Che dire?
Sei un grande .

Perfetto al primo colpo.

Ti vorrei chiedere un'altra cosa o due...sigh.


Fermo restando l'email del mittente fissa lo stesso discorso vale anche per l'email di destinazione(variabile a seconda del cliente)?.
Eppoi ho notato che nell'email di arrivo non viene riconosciuto l'euro.E' normale?

Grazie comunque

P.S. è vero che siete chiusi un mese?

Maurizio

[Roby_72]

L'euro scrivilo &euro ; con il ; attaccato alla o.

Roby

[malecce]

L'euro scrivilo &euro ; con il ; attaccato alla o.

si, però il formato euro online lo ricavo così:
<%=FormatCurrency(R1("netto"), 2, -2, -2, -2)%>
non lo scrivo direttamente come testo ma esce fuori automaticamente, infatti online è perfetto mentre quando si spedisce la posta risulta come punto interrogativo così come le lettere accenntate.

Esempio: Città= Citt?font>
prezzo : € 200 = ? 200

Ciao

[malecce]

Ciao , volevo verificare se con la doppia Variabile di Sessione la stringa fosse esatta:

Ecco:

<%@LANGUAGE="VBSCRIPT"%>
<%
' *** Set a Session Variable Based on Value of URL Parameter
' *** UltraSuite Server Behavior - 4104 - version 1.0
' *** Created by Jag S. Sidhu - www.ultrasuite.com
Session("codice") = Request.QueryString("codice")
%>
<%
' *** Set a Session Variable Based on Value of URL Parameter
' *** UltraSuite Server Behavior - 4104 - version 1.0
' *** Created by Jag S. Sidhu - www.ultrasuite.com
Session("Data_inse") = Request.QueryString("Data_inse")
%>
<%
'Set xml = Server.CreateObject("Microsoft.XMLHTTP")
' Oppure, per la versione 3.0 di XMLHTTP, usare:
Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")
' Apri la connessione remota
xml.Open "GET", "http://www.advmarea.com/ordineNew2clienteris.asp?codice="& Session("codice")&data_inse = Session("data_inse"), False
' Spedisci la richiesta
xml.Send
Dim miaMail
Set miaMail = CreateObject("CDO.Message")
miaMail.From = "info@advmarea.com"
miaMail.To = (Recordset1.Fields.Item("email1").Value)
miaMail.Subject = "spedizione ordine cumulativo"
miaMail.HTMLBody = 0
miaMail.HTMLBody = xml.responseText
miaMail.Send
Set miaMail = Nothing
Set xml = Nothing
%>

[Roby_72]

Originariamente inviato da malecce
Ciao , volevo verificare se con la doppia Variabile di Sessione la stringa fosse esatta:

Ecco:

<%@LANGUAGE="VBSCRIPT"%>
<%
' *** Set a Session Variable Based on Value of URL Parameter
' *** UltraSuite Server Behavior - 4104 - version 1.0
' *** Created by Jag S. Sidhu - www.ultrasuite.com
Session("codice") = Request.QueryString("codice")
%>
<%
' *** Set a Session Variable Based on Value of URL Parameter
' *** UltraSuite Server Behavior - 4104 - version 1.0
' *** Created by Jag S. Sidhu - www.ultrasuite.com
Session("Data_inse") = Request.QueryString("Data_inse")
%>
<%
'Set xml = Server.CreateObject("Microsoft.XMLHTTP")
' Oppure, per la versione 3.0 di XMLHTTP, usare:
Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")
' Apri la connessione remota
xml.Open "GET", "http://www.advmarea.com/ordineNew2clienteris.asp?codice="& Session("codice")&"&data_inse ="& Session("data_inse"), False
' Spedisci la richiesta
xml.Send
Dim miaMail
Set miaMail = CreateObject("CDO.Message")
miaMail.From = "info@advmarea.com"
miaMail.To = (Recordset1.Fields.Item("email1").Value)
miaMail.Subject = "spedizione ordine cumulativo"
miaMail.HTMLBody = 0
miaMail.HTMLBody = xml.responseText
miaMail.Send
Set miaMail = Nothing
Set xml = Nothing
%>

No... :quipy:

Roby