<%Response.Expires=0%>
<!-- #INCLUDE VIRTUAL="/easy4web/ad_functions/const_inc.asp"-->
<!-- #INCLUDE VIRTUAL="/easy4web/ad_functions/func_inc.asp"-->
<!-- #INCLUDE VIRTUAL="/easy4web/st_seiten/initialisierung_seiten_inc.asp"-->
<%
'*** Daten abfüllen
tmpid = Request("id")
If tmpid <> "" Then
'*** Datensatz suchen und vorhandene Daten anzeigen
	const_Conn_DB_e4w.Open const_DB_Connectionstring_e4w
	strSQL = "SELECT T_E4W_ST_NEWSLETTER_INHALTE.*, T_E4W_ST_NEWSLETTER_TEMPLATE.* "
	strSQL = strSQL & "FROM T_E4W_ST_NEWSLETTER_INHALTE INNER JOIN T_E4W_ST_NEWSLETTER_TEMPLATE ON T_E4W_ST_NEWSLETTER_INHALTE.NLI_NLT_ID = T_E4W_ST_NEWSLETTER_TEMPLATE.NLT_ID "
	strSQL = strSQL & "WHERE T_E4W_ST_NEWSLETTER_INHALTE.NLI_ID=" & tmpid & ";"
	
	Set RS = const_Conn_DB_e4w.Execute(strSQL)
	If Not RS.EOF Then
		'Newsletter zusammenführen Template und Content
		strNLT_Content = RS("NLT_Content")
		strNLI_Content = RS("NLI_Content")
		
		strNewsletter = Replace(strNLT_Content, "[E4W Content]", strNLI_Content)
		strNewsletter = Replace(strNewsletter, "[E4W HTML Link]", "")
		
		Response.Write strNewsletter
	End If
	RS.Close
	Set RS = Nothing
	const_Conn_DB_e4w.Close
End If%>