Ciao a tutti, avevo scritto questo post qualche giorno fà, ma senza risultato, provo a rispiegarmi meglio...non si sà mai...
Da una form invio ad una pag web (sendjetN.asp) un parametro (order_ID), questo mi serve per effettuare una query, estrarre dei valori, attribuirli a delle variabili ed inviare questi dati via email ( attraverso Persits.Mailsender ).
Fino a qui nessun problema, la mail viene inviata correttamente. Il problema è che con response.redirect devo inviare ad un'altra pag (sendjet2.asp) lo stesso parametro (order_ID), effettuare di nuovo la query, estrarre i valori e inviare un'altra email, ovviamente ad utente diverso.
La seconda pag. non viene per niente chiamata e la seconda email non viene inviata!
Scrivo il codice della prima pag. (sendjetN.asp):

<%@LANGUAGE="VBSCRIPT"%>


<% 'richiamo il parametro inviato dalla pag. precedente
Dim Rorder__val
Rorder__val = "-1"
If (Request("order_ID") <> "") Then
Rorder__val = Request("order_ID")
End If

%>
<%
Dim Rorder
Dim Rorder_numRows

Set Rorder = Server.CreateObject("ADODB.Recordset")
Rorder.ActiveConnection = MM_conncartweaver_STRING
Rorder.Source = "SELECT * FROM cwq_OrderDetails WHERE tbl_orders.order_ID='" + Replace(Rorder__val, "'", "''") + "'"
Rorder.CursorType = 0
Rorder.CursorLocation = 2
Rorder.LockType = 1
Rorder.Open()

Rorder_numRows = 0
%>
<%
Dim strCognome
Dim strNome
Dim strEmail
Dim strEmailBody
Dim strEmailA
Dim strOrdine

Dim strOS
Dim strUrlAsp
Dim strIP
Dim strDominio
Dim strForm
Dim strServer
Dim strOggetto

strOrdine = (Rorder.Fields.Item("order_ID").Value)
strNome = (Rorder.Fields.Item("cst_FirstName").Value)
strCognome= (Rorder.Fields.Item("cst_LastName").Value)
strEmail= (Rorder.Fields.Item("cst_Email").Value)
strEmailA = "info@blabla.it"
strOggetto="Ordine prodotti"

strEmailBody = strEmailBody & "DATI CLIENTE"&"
"&"Cliente:" &"" &strNome& "" &strCognome&"
Ordine:"&strOrdine&"

"

Set mail = Server.CreateObject("Persits.Mailsender")
mail.Host = "mail.arpanet.it"
mail.From = strEmail
mail.FromName = strCognome '"Modulo di richiesta informazioni"
mail.AddAddress strEmailA
mail.Subject = strOggetto
mail.Body = strEmailBody
mail.Ishtml = True
mail.Send
Set mail = nothing
%>
<% ' Ridireziona
Response.Redirect ("sendjet2.asp?order_ID=" &Rorder__val)
%>
<% ' chiudo la connessione
Rorder.Close()
Set Rorder = Nothing
%>

Nella seconda pag. (sendjet2.asp) richiamo il valore così:

<%
Dim Rorder1_val
Rorder1_val = "-1"
If (Request("order_ID") <> "") Then
Rorder1_val = Request("order_ID")
End If
%>
E il resto è uguale cambia il destinatario e il redirect finale perchè và ad una pagina di conferma

Qualcuno capisce come mai non è corretto?