Buon giorno a tutti,
eccomi rientrata dalle ferie ed ho subito un altro problema:
Da una form invio un parametro ad una pag web, tramite questo parametro effettuo una query, e i risultati li invio tramite email.
Fino a qui non ho problema, l'email viene inviata correttamente. Il fatto è che questa pag deve inviare con redirect, lo stesso parametro ad un'altra pag e fare la stessa cosa solo che inviare l'email ad un altro utente.
Forse nn sono stata molto chiara, ma scrivendo il cod magari si capisce un pò meglio!
<% ' Richiamo il parametro inviato dal modulo della pag. precedente
Dim Rorder_val
Rorder__val = "-1"
If (Request("order_ID") <> "") Then
Rorder__val = Request("order_ID")
End If
%>
<% ' Apro la connessione ed effettuo la query
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
%>
<% ' dichiaro le variabili da inviare
Dim strCognome
Dim strNome
Dim strEmail
Dim strOrdine
Dim strOggetto
Dim strEmailA
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@blablabla.it"
strRedirect = "sendjet2.asp?order_ID="&Rorder.Fields.Item("order_ID").Value 'invio il parametro all'altra pag.
strOggetto="Ordine prodotti Cosvical"
strEmailBody = strEmailBody & "DATI CLIENTE"&"<br>"&"Cliente:" &" " &strNome& " " &strCognome&" <br>Email:"&" "&strEmail&"<br>Ordine:"&" "&strOrdine&"<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
Response.Redirect strRedirect
%>
<%
Rorder.Close()
Set Rorder = Nothing ' Chiudo la connessione
%>
Questa email come scrivevo prima viene inviata, ma nn va alla pag. sendjet2.asp
Nella seconda pag il cod è pressocchè uguale, richiamo il parametro allo stesso modo ma cambia il destinatario.
Sapreste dirmi qual è il problema? Cosa sbaglio?