Ciao a tutti,
ho un problema che non mi fa andare avanti col lavoro.
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"%>
<!--#include file="Connections/conncartweaver.asp" -->
<% '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 = "[email protected]"
strOggetto="Ordine prodotti"
strEmailBody = strEmailBody & "DATI CLIENTE"&"<br>"&"Cliente:" &" " &strNome& " " &strCognome&" <br>Ordine:"&strOrdine&"<br><br>"
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
%>
La seconda pag. non viene chiamata, viene inviata solo questa email, se c'è qualcuno disposto ad aiutarmi scrivo anche il cod dell'altra pag. (sendjet2.asp)
ho un problema che non mi fa andare avanti col lavoro.
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"%>
<!--#include file="Connections/conncartweaver.asp" -->
<% '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 = "[email protected]"
strOggetto="Ordine prodotti"
strEmailBody = strEmailBody & "DATI CLIENTE"&"<br>"&"Cliente:" &" " &strNome& " " &strCognome&" <br>Ordine:"&strOrdine&"<br><br>"
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
%>
La seconda pag. non viene chiamata, viene inviata solo questa email, se c'è qualcuno disposto ad aiutarmi scrivo anche il cod dell'altra pag. (sendjet2.asp)
