cdonts e invio record

[massimozito]

Buongiorno posto di seguito il codice del mio invio con cdonts di una mail con record access il problema è che per quanto riguarda la parte "articolo" vi sono più codici articolo e avrei bisogno di mostrarli tutti quanti invece viene spedito solo il primo codice soluzioni per un'area ripetuta??o se il caso avere lo stesso script in cdosys in quanto sul mio server girano tutti e due correttamente

<%
Dim objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.From = "info@edar.it" ' Mittente - indirizzo del negozio
objCDO.To = "magazzino@edar.it" ' Destinatario - indirizzo del cliente
objCDO.BCC = "massimozito@alice.it" 'Copia Carbone nascosta - indirizzo del negozio, per conoscenza
objCDO.Subject = "Ordine Web"'oggetto
objCDO.Body = "Ordine Web Effettuato con successo" & VbCrLf &_
"Ordine N. " & Recordset1("OrdiniID") & VbCrLf &_
"Articolo Codice:" & Recordset1("Articolo") & VbCrLf &_
"Descrizione: " & Recordset1("Descri") & VbCrLf &_
"Quantità: " & Recordset1("Quantita") & VbCrLf &_
"Cliente: " & Recordset1("UID") & VbCrLf &_
"Grazie"
objCDO.Send() 'send mail
Set objCDO = Nothing 'chiude e libera le risorse
%>

Grazie

[Vincent.Zeno]

peccato usare ancora CDONTS, è considerato obsoleto dalle stessa MS

il problema comunque non sta li (nella mail) ma in quello che estrai e poi stampi.

potresti preparare prima tutto,
o effettuare il ciclo di estrazione mentre costruisci il corpo.

io opterei per le prima, la vedo più pratica

[massimozito]

Beh ma cosa vuoi dire non capisco bene il recordset mi stampa tutto quanto infatti ho inserito la variabile sessione ordini id ecco quello che fa il record mi spieghi meglio come dovrei fare?in quanto inserendo il numero ordine mi viene stampato ma la mail mi riporta solo il primo campo utile


<%
Dim Recordset1
Dim Recordset1_cmd
Dim Recordset1_numRows

Set Recordset1_cmd = Server.CreateObject ("ADODB.Command")
Recordset1_cmd.ActiveConnection = MM_Edar_STRING
Recordset1_cmd.CommandText = "SELECT * FROM Ordinecliente WHERE OrdiniID = ?"
Recordset1_cmd.Prepared = true
Recordset1_cmd.Parameters.Append Recordset1_cmd.CreateParameter("param1", 5, 1, -1, Recordset1__MMColParam) ' adDouble

Set Recordset1 = Recordset1_cmd.Execute
Recordset1_numRows = 0
%>

[Vincent.Zeno]

invece di stampare "Ordine N. " & Recordset1("OrdiniID") & VbCrLf &_ blabla

stampa come fai nella pagina (qui non fai vede come)

[massimozito]

non capisco bene cosa vuoi postato?in che senso dovrei stampare nella pagina?quello è il body del messaggio che dovrei inserire al posto di quello?

[Vincent.Zeno]

il recordset mi stampa tutto quanto

bene, fai vedere come stampi (response.write o quel che è)

[massimozito]

questo è tutto quello che c'è prima del recordset inserito sulla pagina:

<%
' *** Logout the current user.
MM_Logout = CStr(Request.ServerVariables("URL")) & "?MM_Logoutnow=1"
If (CStr(Request("MM_Logoutnow")) = "1") Then
Session.Contents.Remove("MM_Username")
Session.Contents.Remove("MM_UserAuthorization")
MM_logoutRedirectPage = "http://www.edar.it/default.asp"
' redirect with URL parameters (remove the "MM_Logoutnow" query param).
if (MM_logoutRedirectPage = "") Then MM_logoutRedirectPage = CStr(Request.ServerVariables("URL"))
If (InStr(1, UC_redirectPage, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
MM_newQS = "?"
For Each Item In Request.QueryString
If (Item <> "MM_Logoutnow") Then
If (Len(MM_newQS) > 1) Then MM_newQS = MM_newQS & "&"
MM_newQS = MM_newQS & Item & "=" & Server.URLencode(Request.QueryString(Item))
End If
Next
if (Len(MM_newQS) > 1) Then MM_logoutRedirectPage = MM_logoutRedirectPage & MM_newQS
End If
Response.Redirect(MM_logoutRedirectPage)
End If
%>
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers=""
MM_authFailedURL="nonautorizzato.asp"
MM_grantAccess=false
If Session("MM_Username") <> "" Then
If (true Or CStr(Session("MM_UserAuthorization"))="") Or _
(InStr(1,MM_authorizedUsers,Session("MM_UserAuthor ization"))>=1) Then
MM_grantAccess = true
End If
End If
If Not MM_grantAccess Then
MM_qsChar = "?"
If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"
MM_referrer = Request.ServerVariables("URL")
if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
Response.Redirect(MM_authFailedURL)
End If
%>

<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
If (Session("OrdiniID") <> "") Then
Recordset1__MMColParam = Session("OrdiniID")
End If
%>

dimmi se è giusto ho hai bisogno di altro

[Vincent.Zeno]

forse mi sbaglio ma non mi sembra che qui tu stia ancora stampando qualcosa

l'unica cosa interessante è Recordset1__MMColParam = Session("OrdiniID")
ma ancora non la vedo stampata

nella pagina "normale", dove stampi le cose, non hai altro?


EDIT: ricorda per favore di usare sempre il tag CODE per postare codice, grazie

[massimozito]

Beh non ho altro questa è la parte asp di tutta la pagina il record viene cmq estrapolato in base alla sessione OrdiniID in quando lo va a prendere da un carrello e-commerce che popola il record sulla pagina precedente poi non ho altro l'unico problema è che mi viene fatto vedere solo il prima codice dell'ordine mi seriverebbe solo nella mail una cosa tipo record ripetuto tipo:

Ordine N. : X

Articolo:
Descrizione:
Quantita:

Articolo:
Descrizione:
Quantita:

ecc...



<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
' *** Logout the current user.
MM_Logout = CStr(Request.ServerVariables("URL")) & "?MM_Logoutnow=1"
If (CStr(Request("MM_Logoutnow")) = "1") Then
Session.Contents.Remove("MM_Username")
Session.Contents.Remove("MM_UserAuthorization")
MM_logoutRedirectPage = "http://www.edar.it/default.asp"
' redirect with URL parameters (remove the "MM_Logoutnow" query param).
if (MM_logoutRedirectPage = "") Then MM_logoutRedirectPage = CStr(Request.ServerVariables("URL"))
If (InStr(1, UC_redirectPage, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
MM_newQS = "?"
For Each Item In Request.QueryString
If (Item <> "MM_Logoutnow") Then
If (Len(MM_newQS) > 1) Then MM_newQS = MM_newQS & "&"
MM_newQS = MM_newQS & Item & "=" & Server.URLencode(Request.QueryString(Item))
End If
Next
if (Len(MM_newQS) > 1) Then MM_logoutRedirectPage = MM_logoutRedirectPage & MM_newQS
End If
Response.Redirect(MM_logoutRedirectPage)
End If
%>
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers=""
MM_authFailedURL="nonautorizzato.asp"
MM_grantAccess=false
If Session("MM_Username") <> "" Then
If (true Or CStr(Session("MM_UserAuthorization"))="") Or _
(InStr(1,MM_authorizedUsers,Session("MM_UserAuthor ization"))>=1) Then
MM_grantAccess = true
End If
End If
If Not MM_grantAccess Then
MM_qsChar = "?"
If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"
MM_referrer = Request.ServerVariables("URL")
if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
Response.Redirect(MM_authFailedURL)
End If
%>

<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
If (Session("OrdiniID") <> "") Then
Recordset1__MMColParam = Session("OrdiniID")
End If
%>
<%
Dim Recordset1
Dim Recordset1_cmd
Dim Recordset1_numRows

Set Recordset1_cmd = Server.CreateObject ("ADODB.Command")
Recordset1_cmd.ActiveConnection = MM_Edar_STRING
Recordset1_cmd.CommandText = "SELECT * FROM Ordinecliente WHERE OrdiniID = ?"
Recordset1_cmd.Prepared = true
Recordset1_cmd.Parameters.Append Recordset1_cmd.CreateParameter("param1", 5, 1, -1, Recordset1__MMColParam) ' adDouble

Set Recordset1 = Recordset1_cmd.Execute
Recordset1_numRows = 0
%>
<%
Dim objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.From = "info@edar.it" ' Mittente - indirizzo del negozio
objCDO.To = "magazzino@edar.it" ' Destinatario - indirizzo del cliente
objCDO.BCC = "massimozito@alice.it" 'Copia Carbone nascosta - indirizzo del negozio, per conoscenza
objCDO.Subject = "Ordine Web"'oggetto
objCDO.Body = "Ordine Web Effettuato con successo" & VbCrLf &_
"Ordine N. " & Recordset1("OrdiniID") & VbCrLf &_
"Articolo Codice:" & Recordset1("Articolo") & VbCrLf &_
"Descrizione: " & Recordset1("Descri") & VbCrLf &_
"Quantità: " & Recordset1("Quantita") & VbCrLf &_
"Cliente: " & Recordset1("UID") & VbCrLf &_
"Grazie"
objCDO.Send() 'send mail
Set objCDO = Nothing 'chiude e libera le risorse
%>

[Vincent.Zeno]

hai una pagina che ti stampa già il riassunto?
se si vai vedere come