replace con Function Personal(body)

**Partisan75** · 26-11-2011, 18:15

Ciao ragazzi, sto impazzendo!

Sto cercando di personalizzare un invio newsletter con i tag speciali, cioè se trova ad esempio {nome} sositutire con il nome preso dal DB.

Sono riuscito ad aggiungere qualche altro tag speciali dalla stessa tabella chiamata USERS come da codice sotto e fin qui tutto ok:

codice:

<%
Function Personal(body)
  If NOT rsUser.EOF Then
  
Body = (Replace(body, "{nome}", CStr(rsUser.Fields.Item("USE_FIRST").Value), 1, -1, 1))
Body = (Replace(body, "{cognome}", CStr(rsUser.Fields.Item("USE_LAST").Value), 1, -1, 1))
Body = (Replace(body, "{email}", CStr(rsUser.Fields.Item("USE_EMAIL").Value), 1, -1, 1))
Else
 Personal = Body
  End If
End Function
%>

ma se cerco di prendere un altro tag peciale da una'altra tabella chiamata NEWSLETTER non mi funziona piu.

E questa è la continuazione del codice che praticamente è il copro della newsletter da inviare:

codice:

<body>
<%=Personal(rsNewsletter.Fields.Item("NLE_BODY").Value)%>
</body>

Cosa mi consigliate di fare? posso aggiungere un'altra Function Personal(body)?
Grazie in anticipo.

**Partisan75** · 27-11-2011, 10:42

ragazzi mi sono reso conto che il problemna è da un'altra parte e cioè nel codice sotto:

codice:

ReplaceList = "{prodotto};(rsNewsletter.Fields.Item('NLE_PRODOTTO').Value)|{codice_sconto};USE_CODICE_SCONTO@_rec_@|{nome};USE_FIRST@_rec_@|{cognome};USE_LAST@_rec_@|{email};USE_EMAIL@_rec_@|{mittente};nSender@_form_@|{rispondia};nSenderMail@_form_@|{sitoweb};nWebSite@_form_@|{homepage};nHomePage@_form_@|{linkiscrizione};nSubscribeLink@_form_@|{linkrimozione};nUnsubscribeLink@_form_@"
	sendAllFilesInFolder = ""
	sendAllFilesType = 0
	UploadStatus = ""
	NumFile = 0

se metto come sotto ad esempio mi sostituisce il tag {prodotto} non con quello che c'è scritto nella cella del DB ma con questo (rsNewsletter.Fields.Item('NLE_PRODOTTO').Value)

codice:

"{prodotto};(rsNewsletter.Fields.Item('NLE_PRODOTTO').Value)

Dove sbaglio?
grazie in anticipo.

P.S.:
questa è la parte diconnesisone alla tabella NEWSLETTER da dove prendere il valore:

codice:

<%
Set rsNewsletter = Server.CreateObject("ADODB.Recordset")
rsNewsletter.ActiveConnection = MM_connIWNewsletter_STRING
rsNewsletter.Source = "SELECT * FROM NEWSLETTER WHERE NLE_ID = " + Replace(rsNewsletter__MMColParam, "'", "''") + ""
rsNewsletter.CursorType = 0
rsNewsletter.CursorLocation = 2
rsNewsletter.LockType = 1
rsNewsletter.Open()
%>

**optime** · 27-11-2011, 11:41

il codice che richiama la funzione e la funzione fanno due cose diverse. per questo non funzionano.

cosa vuoi fare esattamente? fa' un esempio

**cavicchiandrea** · 27-11-2011, 11:53

Originariamente inviato da Partisan75
ragazzi mi sono reso conto che il problemna è da un'altra parte e cioè nel codice sotto:

codice:

ReplaceList = "{prodotto};(rsNewsletter.Fields.Item('NLE_PRODOTTO').Value)|{codice_sconto};USE_CODICE_SCONTO@_rec_@|{nome};USE_FIRST@_rec_@|{cognome};USE_LAST@_rec_@|{email};USE_EMAIL@_rec_@|{mittente};nSender@_form_@|{rispondia};nSenderMail@_form_@|{sitoweb};nWebSite@_form_@|{homepage};nHomePage@_form_@|{linkiscrizione};nSubscribeLink@_form_@|{linkrimozione};nUnsubscribeLink@_form_@"
	sendAllFilesInFolder = ""
	sendAllFilesType = 0
	UploadStatus = ""
	NumFile = 0

se metto come sotto ad esempio mi sostituisce il tag {prodotto} non con quello che c'è scritto nella cella del DB ma con questo (rsNewsletter.Fields.Item('NLE_PRODOTTO').Value)

codice:

"{prodotto};(rsNewsletter.Fields.Item('NLE_PRODOTTO').Value)

Dove sbaglio?
grazie in anticipo.

Sicuro che sia comprensibile?
Analizziamo:
Pezzo di codice asp (probabilmente di una newsletter sconosciuta) avente una sintassi "particolare" {.....} mai vista (ma non essendo un esperto in newsletter potrebbe essere corretta) tu vuoi modificarla inserendoci un dato prelevato da una tabella dove non si capisce come lo "incastri" e chiedi dove sbagli!!!
Forse è il caso che posti tutto lo script se vuoi sperare in un aiuto, per il primo post l'ho letto 4 volte (ho chiesto l'aiuto a casa) e ancora brancolo nel buoi

P.S. Una regola assoluta rileggi sempre prima, se la richiesta non è comprensibile molti rinunciano e tu hai solo perso tempo.

**optime** · 27-11-2011, 12:18

la mia idea è che voglia fare delle semplici Replace

**Partisan75** · 27-11-2011, 17:22

avete ragione, scusatemi. Non posto tutta la pagina perche supera il limite consentito e poi spiego:

codice:

<%
Dim rsNewsletter__MMColParam
rsNewsletter__MMColParam = "0"
If (Request.QueryString("iNewsletter") <> "") Then 
  rsNewsletter__MMColParam = Request.QueryString("iNewsletter")
End If
%>
<%
Set rsNewsletter = Server.CreateObject("ADODB.Recordset")
rsNewsletter.ActiveConnection = MM_connIWNewsletter_STRING
rsNewsletter.Source = "SELECT * FROM NEWSLETTER WHERE NLE_ID = " + Replace(rsNewsletter__MMColParam, "'", "''") + ""
rsNewsletter.CursorType = 0
rsNewsletter.CursorLocation = 2
rsNewsletter.LockType = 1
rsNewsletter.Open()
NLE_PRODOTTO = rsNewsletter("NLE_PRODOTTO") 
%>

<%
Dim rsGroups__iNewsletter
rsGroups__iNewsletter = "0"
If (Request.QueryString("iNewsletter") <> "") Then 
  rsGroups__iNewsletter = Request.QueryString("iNewsletter")
End If
%>
<%
Dim rsGroups
Dim rsGroups_numRows

Set rsGroups = Server.CreateObject("ADODB.Recordset")
rsGroups.ActiveConnection = MM_connIWNewsletter_STRING
rsGroups.Source = "SELECT GRO_ID, GRO_NAME, (SELECT COUNT(*) FROM USERS WHERE USE_GROUP = GRO_ID AND USE_ACCESS = 'Utente' AND USE_APPROVED = 1 AND USE_ACTIVE = 1) AS USE_COUNT, (SELECT COUNT (*) FROM NLE_GRO WHERE NG_GROUP = GRO_ID AND NG_NEWSLETTER = " + Replace(rsGroups__iNewsletter, "'", "''") + ") AS NLE_COUNT  FROM GROUPS  ORDER BY GRO_NAME ASC"
rsGroups.CursorType = 0
rsGroups.CursorLocation = 2
rsGroups.LockType = 1
rsGroups.Open()

rsGroups_numRows = 0
%>
<%
  	server.ScriptTimeout = 540000
	Dim RG_altVal, RG_columns, RG_Cong, RG_dbValues, RG_dbValuesTmp, RG_delim, RG_editCmd, RG_editQuery, RG_editQueryTmp, RG_emptyVal, RG_Ext, RG_Extensions, RG_fields, RG_FieldValueTmp, RG_FileDel, RG_FileExt, RG_formVal, RG_FS, RG_i, RG_L, RG_Len, RG_Max, RG_Name, RG_New, RG_newName, RG_Num, RG_Path, RG_Rec, RG_ret, RG_Save, RG_tableValues, RG_tableValuesTmp, RG_tst, FileMatch
	Dim RG_Connection, RG_editColumn, RG_recordId, Form, editAction, editRedirectUrl, RG_Files, RG_formName, UploadType, ParamVal, ParamList, MaxFieldNumber, TmpVal, x, y, Key, ProgressBar, RG_typeArray, RG_z, UploadStatus, NumFile, RG_MailParameter
	Dim OnLoadStart,ProgressMail,RG_BodyText,BodyFromFile,ImagesList,FilesList,StrSql,ReplaceList,sendAllFilesInFolder,sendAllFilesType,Rs,Parametri,SendMailID,Risposta,Cong,TotalMail,NumMail,TimeStart,Mailer,MailPar_1,MailPar_2,MailPar_3,MailPar_4,MailPar_5,FromName,FromMail, ReplyName, ReplyMail, ToName, ToMail, CcList, BccList, ReturnReceipt, MailFormat, Priority, MailObject, Message,Cc,Bcc,Comando,Conn,Fs,TempFolder,TempFileName,retStr,Risp,IsMailSend,newPage,ListToReplace,valori,ListFile,Folder,File,ListImage,UploadID,StatusFile,NewFileName,VerLen,VerExt,ItemCounter,Ris,FileToDelete,separ,ThisPage,tmpFile,LineaFile
	Dim tmpField_Name(), tmpValue_Name(), tmpField_Size(), tmpValue_Size(), QtyRecord, ParamVal_AdvMail, TotalFileSize, NoSendFileExceed, UploadMailError, valueToRedirectSend, MaxFieldNumberAdv, newPassword

	OnLoadStart = "0"
	if OnLoadStart = "0" then
		Set Form = New ASPForm
		UploadID = Form.NewUploadID
	end if
	ProgressBar = ""
	ProgressMail = "ProgrMail-std.asp"
	editRedirectUrl = "newsletter_update.asp"
	RG_Files = "@_@_@0@_@_@ @_@_@ @_@_@../../"
	RG_formName = "form1"
	
	If strMailComponent = "cdo" Then
	RG_MailParameter = "3@@@_@@@_@@@@_start_@cStr(strMailServer)@_end_@@@@_@@@_@@@25@@@_@@@_@@@@@@_@@@_@@@ @@@_@@@_@@@ @@@_@@@_@@@@_start_@cStr(strSender)@_end_@@@@_@@@_@@@@_start_@cStr(strSenderMail)@_end_@@@@_@@@_@@@ @@@_@@@_@@@ @@@_@@@_@@@USE_EMAIL@_rec_@@@@_@@@_@@@USE_EMAIL@_rec_@@@@_@@@_@@@ @@@_@@@_@@@ @@@_@@@_@@@ @@@_@@@_@@@1@@@_@@@_@@@2@@@_@@@_@@@@_start_@(rsNewsletter.Fields.Item(@_''_@NLE_SUBJECT@_''_@).Value)@_end_@@@@_@@@_@@@0@@@_@@@_@@@1@@@_@@@_@@@ @@@_@@@_@@@1@@@_@@@_@@@-1@@@_@@@_@@@iso-8859-1;28591;Western European (ISO)@@@_@@@_@@@iGroup|iNewsletter@@@_@@@_@@@@@@_@@@_@@@1@@@_@@@_@@@post@@@_@@@_@@@0@@@_@@@_@@@ @@@_@@@_@@@0@@@_@@@_@@@ @@@_@@@_@@@1@@@_@@@_@@@d@@@_@@@_@@@" & strPublicPath & "/_sendlog/@@@_@@@_@@@0"
	Else
	RG_MailParameter = "2@@@_@@@_@@@ @@@_@@@_@@@ @@@_@@@_@@@ @@@_@@@_@@@ @@@_@@@_@@@ @@@_@@@_@@@@_start_@cStr(strSender)@_end_@@@@_@@@_@@@@_start_@cStr(strSenderMail)@_end_@@@@_@@@_@@@ @@@_@@@_@@@ @@@_@@@_@@@USE_EMAIL@_rec_@@@@_@@@_@@@USE_EMAIL@_rec_@@@@_@@@_@@@ @@@_@@@_@@@ @@@_@@@_@@@ @@@_@@@_@@@1@@@_@@@_@@@2@@@_@@@_@@@@_start_@(rsNewsletter.Fields.Item(@_''_@NLE_SUBJECT@_''_@).Value)@_end_@@@@_@@@_@@@0@@@_@@@_@@@1@@@_@@@_@@@ @@@_@@@_@@@1@@@_@@@_@@@-1@@@_@@@_@@@iso-8859-1;28591;Western European (ISO)@@@_@@@_@@@iGroup|iNewsletter@@@_@@@_@@@@@@_@@@_@@@1@@@_@@@_@@@post@@@_@@@_@@@0@@@_@@@_@@@ @@@_@@@_@@@0@@@_@@@_@@@ @@@_@@@_@@@1@@@_@@@_@@@d@@@_@@@_@@@" & strPublicPath & "/_sendlog/@@@_@@@_@@@0"
	End If
	
	RG_BodyText = "@_start_@(rsNewsletter.Fields.Item(@_''_@NLE_BODY@_''_@).Value)@_end_@"
	BodyFromFile = ""
	UploadType = "AdvancedMail"
	ImagesList = ""
	FilesList = ""
	RG_Connection = MM_connIWNewsletter_STRING

	ReplaceList = "{prodotto};NLE_PRODOTTO |{codice_sconto};USE_CODICE_SCONTO@_rec_@ |{nome};USE_FIRST@_rec_@|{cognome};USE_LAST@_rec_@|{email};USE_EMAIL@_rec_@|{mittente};nSender@_form_@|{rispondia};nSenderMail@_form_@|{sitoweb};nWebSite@_form_@|{homepage};nHomePage@_form_@|{linkiscrizione};nSubscribeLink@_form_@|{linkrimozione};nUnsubscribeLink@_form_@"
	sendAllFilesInFolder = ""
	sendAllFilesType = 0
	UploadStatus = ""
	NumFile = 0

if OnLoadStart = "-1" then
	StrSql = "SELECT USERS.* FROM USERS INNER JOIN GROUPS ON USERS.USE_GROUP = GROUPS.GRO_ID WHERE (((USERS.USE_ACCESS)='Utente') AND ((USERS.USE_APPROVED)=1) AND ((USERS.USE_ACTIVE)=1) AND ((GROUPS.GRO_ID) In (" & UploadFormRequest("iGroup") & ")))"
	Set Rs = Server.CreateObject("ADODB.RecordSet")
	BodyFromDynamicPage = ""
	IsMailSend = SendMail()
	Set RS = nothing
	response.write(getRedirectForMail(IsMailSend))
	response.end
else
	if len(Request.QueryString("UploadID"))>0 then
		Form.UploadID = Request.QueryString("UploadID")
	end if
	
	if (Request.QueryString <> "") Then
 		editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) & "?" & Request.QueryString & "&UploadID=" & UploadID
	else
	 	editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) & "?UploadID=" & UploadID	
	End If
	
	Const fsCompletted  = 0
	If Form.State = fsCompletted Then 
		StrSql = "SELECT USERS.* FROM USERS INNER JOIN GROUPS ON USERS.USE_GROUP = GROUPS.GRO_ID WHERE (((USERS.USE_ACCESS)='Utente') AND ((USERS.USE_APPROVED)=1) AND ((USERS.USE_ACTIVE)=1) AND ((GROUPS.GRO_ID) In (" & UploadFormRequest("iGroup") & ")))"
		if UploadFormRequest("DW_Form_Name") = "form1" then
			if Form.State = 0 then
				verifyUserExists()
				if RG_Files <> "" then
					setExtraData()
					setParamVal()
					setParamVal_AdvMail()
					Form.Files.Save
				end if
				Set Rs = Server.CreateObject("ADODB.RecordSet")
				BodyFromDynamicPage = ""
				IsMailSend = SendMail()
				Set RS = nothing
				response.write(getRedirectForMail(IsMailSend))
				response.end
			End If
		End If
	ElseIf Form.State > 10 then
		response.write "
<Font Color=red>Some form error.
Error code: " & Form.State & "
Error List:
0  Form was successfully processed. 
1  Request method is NOT post 
2  Zero length request (there are no data in a source form) 
3  Form is in a middle of process. 
5  Initial form state 
11  Boundary of multipart/form-data is not specified. 
12  Unknown source form (Content-type must be multipart/form-data) 
15  Client was disconnected before upload was completted.
16  Unexpected error from Request.BinaryRead method (ASP error).
</Font>
"
	End If
End If 

function GetFolderName(str):  GetFolderName = Ris : end function  
%>





</script>

<table width="100%" border="0" cellpadding="0" cellspacing="0" class="box"> 
  <tr> 
    <td align="left" valign="top"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td width="1" align="left" class="box-header">[img]../themes/<%= strTheme %>/box-header-left.jpg[/img]</td>
        <td width="100%" class="box-header">Newsletter &rsaquo; Invia </td>
        <td width="1" align="right" class="box-header">[img]../themes/<%= strTheme %>/box-header-right.jpg[/img]</td>
      </tr>
    </table></td>
  </tr> 
  <tr> 
    <td align="left" valign="top" class="box-main"><form onkeypress="return dwz_HandleEnter(event,'form1')" action="<%=editAction%>" method="post" enctype="multipart/form-data" name="form1" id="form1" onSubmit="return ProgressBar()">
      <table  border="0" align="center" cellpadding="0" cellspacing="1" class="content">
        <tr>
          <td width="80" align="right"></td>
          <td></td>
        </tr>
        <tr>
          <td align="right">Titolo:</td>
          <td nowrap><%=(rsNewsletter.Fields.Item("NLE_TITLE").Value)%></td>
        </tr>
        <tr>
          <td align="right">Oggetto:</td>
          <td nowrap><span class="evidence"><%=(rsNewsletter.Fields.Item("NLE_SUBJECT").Value)%></span></td>
        </tr>
        <tr>
          <td align="right" valign="top">*Gruppi:</td>
          <td valign="top"><select name="iGroup" size="5" multiple id="iGroup">
            <%
While (NOT rsGroups.EOF)
%>
            <option value="<%=(rsGroups.Fields.Item("GRO_ID").Value)%>" <% If (rsGroups.Fields.Item("NLE_COUNT").Value) > 0 Then Response.Write("style=""color:#CCC""") %>><%=(rsGroups.Fields.Item("GRO_NAME").Value)%> - <%=(rsGroups.Fields.Item("USE_COUNT").Value)%> utenti attivi</option>
            <%
  rsGroups.MoveNext()
Wend
If (rsGroups.CursorType > 0) Then
  rsGroups.MoveFirst
Else
  rsGroups.Requery
End If
%>
          </select></td>
          </tr>
        <tr>
          <td align="right"></td>
          <td>CTRL + Click per selezione multipla </td>
        </tr>
        <tr>
          <td align="right"></td>
          <td><input name="Submit" type="submit" class="button" onclick="WAValidateRQ(document.form1.iGroup,'* Selezionare almeno un Gruppo',document.form1.iGroup,0,true,'select');WAAlertErrors('','',false,false);return document.MM_returnValue" value="Invia adesso!">
            <input name="iNewsletter" type="hidden" id="iNewsletter" value="<%=(rsNewsletter.Fields.Item("NLE_ID").Value)%>">
            <input name="nSubject" type="hidden" id="nSubject" value="<%=(rsNewsletter.Fields.Item("NLE_SUBJECT").Value)%>">
            <input name="nSender" type="hidden" id="nSender" value="<%= strSender %>" />
            <input name="nSenderMail" type="hidden" id="nSenderMail" value="<%= strSenderMail %>" />
            <input name="nWebSite" type="hidden" id="nWebSite" value="<%= strWebSite %>" />
            <input name="nHomePage" type="hidden" id="nHomePage" value="<%= strHomePage %>" />
            <input name="nSubscribeLink" type="hidden" id="nSubscribeLink" value="<%= strSubscribeLink %>" />
            <input name="nUnsubscribeLink" type="hidden" id="nUnsubscribeLink" value="<%=strUnsubscribeLink %>" /></td>
        </tr>
      </table>
      <input type="hidden" name="DW_Form_Name" value="form1">
</form></td>
  </tr>
  <tr>
    <td align="left" valign="top"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td width="1" align="left" class="box-bottom">[img]../themes/<%= strTheme %>/box-bottom-left.jpg[/img]</td>
        <td width="100%" class="box-bottom">[img]../images/shim.gif[/img]</td>
        <td width="1" align="right" class="box-bottom">[img]../themes/<%= strTheme %>/box-bottom-right.jpg[/img]</td>
      </tr>
    </table></td>
  </tr>
</table>

Ho praticamente già aggiunto un TAG SPECIALE quello in verde e funziona, questo tag praticmetne viene sostituito con il valore della cella del DB corrispondente, e fin qui ci siamo.

Ora vorrei aggiungere un altro TAG SPECIALE che però prende il valore da un'altra tabella del DB cioè NEWSLETTER.

SCOPO: ho preparato delle newsletter con il codice tutto uguale ma cambiano solo delle parti tipo il prodotto... quidni invece di creare 200 newsletter diverse ho messo al posto destinato al prodotto il tag {prodotto} il quale di volta in volta deve richiamare il contenuto della cella sullo stesso rigo, quidni stesso ID...

Quelle in rosso sono solo delle mie modifiche ma non va. Quella verde invece mi funziona perche ho copiato lo stetto modo delle altre già precedenti...ma sulla stessa tabella!
Grazie ancora ragazzi.

**optime** · 27-11-2011, 19:58

scusa, ma non fai prima a farti delle semplici replace?

Body=Replace(Body, TAG, Valore)

10 tag, 10 valori, 10 replace. e ci metti quello che ti pare senza impazzire.

that easy!

**Partisan75** · 27-11-2011, 21:12

Grzie Optime ma ci sto provando già senza risultati.
La pagina che ho postato è inc_page.asp richiamata nella pagina INVIA.asp dove c'è già il seguente replace:

codice:

<%
Function Personal(body)
  If NOT rsUser.EOF Then
Body = (Replace(body, "{prodotto}", CStr(rsNewsletter.Fields.Item("NLE_PRODOTTO").Value), 1, -1, 1))
Body = (Replace(body, "{nome}", CStr(rsUser.Fields.Item("USE_FIRST").Value), 1, -1, 1))
Body = (Replace(body, "{cognome}", CStr(rsUser.Fields.Item("USE_LAST").Value), 1, -1, 1))
Body = (Replace(body, "{email}", CStr(rsUser.Fields.Item("USE_EMAIL").Value), 1, -1, 1))
Personal = Body
  Else
Personal = Body
  End If
End Function
%>

Questo mi funziona se apro la newsletter in anteprima ma se la devo inviare non mi funziona.
La curiosità, almeno per me, è che se apro l'anteprima si vedono gli altri TAG SPECIALI così come l'inserisco, cioè non li trasforma ancora, ad esempio {codice_sconto} rimane così com'è, mentre il TAG PRODOTTO me lo trasforma già e lo fa correttamente.

Però poi al momento dell'invio non funziona infatti ricevo la mail con la situazione sopra inversa cioè il TAG {codice_sconto} viene sostituito dal valore giusto del campo mentre il TAG {prodotto} viene sostituito dalla semplice scritta NLE_PRODOTTO ( presa da qui:

codice:

ReplaceList = "{prodotto};NLE_PRODOTTO | ....

Quidni a me interessa cambiare qusto NLE_PRODOTTO nel modo corretto per fargli capire che deve prendere il valore da qui

codice:

<%
Set rsNewsletter = Server.CreateObject("ADODB.Recordset")
rsNewsletter.ActiveConnection = MM_connIWNewsletter_STRING
rsNewsletter.Source = "SELECT * FROM NEWSLETTER WHERE NLE_ID = " + Replace(rsNewsletter__MMColParam, "'", "''") + ""
rsNewsletter.CursorType = 0
rsNewsletter.CursorLocation = 2
rsNewsletter.LockType = 1
rsNewsletter.Open()
NLE_PRODOTTO = rsNewsletter("NLE_PRODOTTO") 
%>

Grazie ancora ragazzi!

**optime** · 28-11-2011, 00:52

guarda, è inutile che ti incaponisci, come puoi vedere da solo la variabile ReplaceList non viene presa in considerazione nella funzione Personal(body), quindi è perfettamente inutile lavorarla. fa' tutto nella funzione e amen.

**Partisan75** · 28-11-2011, 08:31

Ho rifatto altre prove ma purtroppo non è così. Infatti se levo dalla pagina inc_...asp la parte in rosso che riguarda il codice sconto nella mail che ricevo non mi viene sostituito ma rimane {codice_sconto} nonostante nella funzione sia rimasta!

codice:

	ReplaceList = "{prodotto};NLE_PRODOTTO |{codice_sconto};USE_CODICE_SCONTO@_rec_@ |{nome};USE_FIRST@_rec_@|{cognome};USE_LAST@_rec_@|{email};USE_EMAIL@_rec_@|{mittente};nSender@_form_@|{rispondia};nSenderMail@_form_@|{sitoweb};nWebSite@_form_@|{homepage};nHomePage@_form_@|{linkiscrizione};nSubscribeLink@_form_@|{linkrimozione};nUnsubscribeLink@_form_@"
	sendAllFilesInFolder = ""
	sendAllFilesType = 0
	UploadStatus = ""
	NumFile = 0

codice:

<%
Function Personal(body)
  If NOT rsUser.EOF Then
'Body = (Replace(body, "{prodotto}", CStr(rsNewsletter.Fields.Item("NLE_PRODOTTO").Value), 1, -1, 1)) 
Body = (Replace(body, "{codice_sconto}", CStr(rsUser.Fields.Item("USE_CODICE_SCONTO").Value), 1, -1, 1))
Body = (Replace(body, "{nome}", CStr(rsUser.Fields.Item("USE_FIRST").Value), 1, -1, 1))
Body = (Replace(body, "{cognome}", CStr(rsUser.Fields.Item("USE_LAST").Value), 1, -1, 1))
Body = (Replace(body, "{email}", CStr(rsUser.Fields.Item("USE_EMAIL").Value), 1, -1, 1))
  Else
	Personal = Body
  End If
End Function
%>

Mentre se levo dalla funzione sopra la parte del {prodotto} (in verde) e la lascio nella replacelist (parte in arancione) nella mail che ricevo il TAG {prodotto} viene sostituito con "NLE_PRODOTTO" ... la cosa sarebbe esatta ma invece della scritta "NLE_PRODOTTO" avrei bisogno del suo valore nella tabella DB.
Grazie ancora

Discussione: replace con Function Personal(body)

Strumenti discussione

Ricerca discussione

Visualizza

replace con Function Personal(body)

Permessi di invio