inviare parametro con response.redirect

[darlette]

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?

[Roby_72]

1) Il response.redorect va dopo la chiusira di eventuali oggetti:

Set mail = nothing 
' chiudo la connessione 
Rorder.Close() 
Set Rorder = Nothing 
' Ridireziona 
Response.Redirect ("sendjet2.asp?order_ID=" &Rorder__val) 
%>

2) Nella pagina sendjet2.asp ci va o no?
Se ci va metti in cima alla stessa, dopo aver recuperato order_id:

response.write(Rorder__val):response.end

e vedi cosa ti scrive a video.

Roby

[darlette]

Una pagina bianca e il numero (che poi è un campo testo) dell'ordine.
quindi il parametro lo passa!
e perchè non invia l'email secondo te?

[Roby_72]

Avrai sbagliato qualcos'altro.
Controlla tutte le informazioni necessarie all'email se ci sono, soprattutto mittente e destinatario.

Roby

[darlette]

Ti scrivo il codice della seconda pag lo sto guardando da un'ora, ma non ho trovato niente

<%@LANGUAGE="VBSCRIPT"%>

<%
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 strOrder

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

strOrder = (Rorder.Fields.Item("order_ID").Value)
strNome = (Rorder.Fields.Item("cst_FirstName").Value)
strCognome= (Rorder.Fields.Item("cst_LastName").Value)
strEmail= "info@blabla.it"
strEmailA = (Rorder.Fields.Item("cst_Email").Value)
strRedirect = "conferma.htm"

strOggetto="Ordine prodotti Cosvical"
strDominio = Request.ServerVariables("HTTP_HOST")
strIP = Request.ServerVariables("REMOTE_ADDR")
strForm = Request.ServerVariables("HTTP_REFERER")
strOS= Request.ServerVariables("HTTP_USER_AGENT")
strServer = Request.ServerVariables("SERVER_SOFTWARE")
strUrlAsp = Request.ServerVariables("URL")

strEmailBody = strEmailBody & "Gentile cliente,"&"
"&" nel ringraziarla per l'acquisto da lei effettuato presso Cosvical,"&"
"&" le ricordiamo i suoi dati inseriti al momento dell'ordine:"&"
"&""&"Nome:"&"" &strNome& "

"
strEmailBody = strEmailBody & "Cosvical provvederà ad inviarle i prodotti ordinati non appena riceverà il bonifico."
strEmailBody = strEmailBody & "============================================= ====
"
strEmailBody = strEmailBody & "Nome banca:......................................
"
strEmailBody = strEmailBody & "Indirizzo banca: ................................
"
strEmailBody = strEmailBody & "CAB: ....." &" " & "ABI: ..................
"
strEmailBody = strEmailBody & "C/C: ............................................
"
strEmailBody = strEmailBody & "============================================= ====
"

Set mail = Server.CreateObject("Persits.Mailsender")
mail.Host = "mail.arpanet.it"
mail.From = strEmail
mail.FromName = "Mio nome" '"Modulo di richiesta informazioni"
mail.AddAddress strEmailA
mail.Subject = strOggetto
mail.Body = strEmailBody
mail.Ishtml = True
mail.Send
Set mail = nothing
%>

<% Rorder.Close()
Set Rorder = Nothing
%>
<% Response.Redirect strRedirect %>

Se metto la stringa di codice che mi hai suggerito tu, mi compare appunto una pagina bianca e l'ordine altrimenti non mi segnala nessun errore e dice : impossibile visualizzare la pagina.

[Roby_72]

Invece di questo

<% Response.Redirect strRedirect %>

metti

<% Response.End %>

Roby

[darlette]

Ho scritto come mi hai consigliato, ma ancora niente, il fatto è che non mi dà neanche l'errore, semplicemente impossibile visualizzare la pag. mentre se scrivo
<% response.write(Rorder_val):response.end %>
compare il num di ordine che poi è il parametro passato e con il quale si effettua la query

[Roby_72]

Sei in locale? Usi XP?
Prova con un altro browser.

Roby

[darlette]

Ciao Roby,
sono tornata a lavoro..purtroppo però ancora non "funziona"..cmq non sono in locale, se vuoi dare un'occhiata:
http://www.cosvical.it/default.asp
E' un sito che vende prodotti tipici, è ancora in costruzione, se vuoi puoi ordinare un prodotto registrandoti con un nome fittizio, basta che l'email sia funzionante. Le email che devo inviare sono quelle di conferma di richiesta ordine, purtroppo viene inviata solo la prima, quella all'azienda, mentre non viene inviata quella che deve arrivare all'utente con l'ordine effettuato e gli estremi per il pagamento.
Hai qualche altro suggerimento in merito?

[Roby_72]

Non mi si apre il sito...

Roby