<%
'Recibo las variables
spain			=	""
url				=	""
num_param		=	0

'Oculto la celda de acceso al default
If InStr(texto_definitivo,"style=""font-size:11px;"" id=""link_default""")>0 Then
	texto_definitivo		=	replace(texto_definitivo,"style=""font-size:11px;"" id=""link_default""","style=""font-size:11px;display:none;"" id=""link_default""")
Else If InStr(texto_definitivo,"id=""link_default""")>0 Then
	texto_definitivo		=	replace(texto_definitivo,"id=""link_default""","style=""display:none;"" id=""link_default""")
End If
End If

'Recibo todos los parametros enviados por GET
For each param In Request.QueryString 
	Select Case param:
		Case "email_origin"			:	email_origin 		= 	request.Querystring ("email_origin")
		Case "cnt"					:	spain				=	"/spain"
		Case "email"				:	email				=	request.Querystring ("email")
		Case "idcliente"			:	idcliente			=	request.Querystring ("idcliente")
		Case "nombre_cliente"		:	nombre_cliente		=	request.Querystring ("nombre_cliente")	
		Case "created"				:	created				= 	request.Querystring ("created")
		Case "updated"				:	updated				= 	request.Querystring ("updated")
		Case "date_expire"			:	date_expire			= 	request.Querystring ("date_expire")
		Case "date_purchase"		:	date_purchase		= 	request.Querystring ("date_purchase")
		Case "date_registration"	:	date_registration	= 	request.Querystring ("date_registration")
		Case "fin_servicios"		:	fin_servicios		= 	request.Querystring ("fin_servicios")
		Case "full_name"		 	:	full_name			= 	request.Querystring ("full_name")
		Case "last_name"			:	last_name			= 	request.Querystring ("last_name")
		Case "on_email"				:	on_email			= 	request.Querystring ("on_email")
		Case "on_phone"				:	on_phone			= 	request.Querystring ("on_phone")
		Case "postal_code"			:	postal_code			= 	request.Querystring ("postal_code")
		Case "salutation"			:	salutation			= 	request.Querystring ("salutation")
		Case "send_information"		:	send_information	= 	request.Querystring ("send_information")	
		Case "title"				:	title				= 	request.Querystring ("title")	
		Case "activation_code"		:	activation_code		= 	request.Querystring ("activation_code")	
		Case "nombre_producto"		:	nombre_producto		= 	request.Querystring ("nombre_producto")	
		Case "enlace_descarga"		:	enlace_descarga		= 	request.Querystring ("enlace_descarga")
		Case "id_product"			:	id_product			= 	request.Querystring ("id_product")
		Case "cod_pais"				:	cod_pais			= 	request.Querystring ("cod_pais")
		Case "linkshare"			:	linkshare			= 	request.Querystring ("linkshare")
		Case "emailshare"			:	emailshare			= 	request.Querystring ("emailshare")
		Case "facebookshare"		:	facebookshare		= 	request.Querystring ("facebookshare")
		Case "facebookshare2"		:	facebookshare2		= 	request.Querystring ("facebookshare2")
		Case "twittershare"			:	twittershare		= 	request.Querystring ("twittershare")
		Case "email_contacto_soporte":	email_contacto_soporte		= 	request.Querystring ("email_contacto_soporte")
	End Select
Next

If Instr(email_origin,"/") Then
	url			=	email_origin
	url2		=	email_origin
Else
	url			=	spain & "/emailhtml/" & email_origin & "/" & email_origin & ".htm"
	url2		=	spain & "/emailhtml/" & email_origin & "/" & email_origin & ".html"
End If

'response.Write(url)
'response.Write(request.Querystring ("title"))

'Abro el archivo origen y lo guardo en texto
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

If objFSO.FileExists(Server.MapPath(url)) then 
	Set objFile = objFSO.OpenTextFile(Server.MapPath(url),1)
Else If objFSO.FileExists(Server.MapPath(url2)) then 
	Set objFile = objFSO.OpenTextFile(Server.MapPath(url2),1)
End If
End If

If Not objFile.AtEndOfStream Then
	texto = CStr(objFile.ReadAll)
End If

'Array de comparaciones
texto_definitivo		=	texto

Dim array_condiciones(1,44)

array_condiciones(0,0)	=	"<rn:merge type=""text"" tbl=""2"" field_id=""100004"" field_name=""contacts.email"">Email Address</rn:merge>"
array_condiciones(1,0)	=	server.HTMLEncode(email)

array_condiciones(0,1)	=	"<rn:merge type=""text"" tbl=""2"" field_id=""100004"" field_name=""contacts.email"">Email</rn:merge>"
array_condiciones(1,1)	=	server.HTMLEncode(email)

array_condiciones(0,2)	=	"$contacts.email"
array_condiciones(1,2)	=	server.HTMLEncode(email)

array_condiciones(0,3)	=	"<rn:merge type=""text"" tbl=""2"" field_id=""23"" field_name=""contacts.c$customer_id"">customer_id</rn:merge>"
array_condiciones(1,3)	=	server.HTMLEncode(idcliente)

array_condiciones(0,4)	=	"$contacts.c$customer_id"
array_condiciones(1,4)	=	server.HTMLEncode(idcliente)

array_condiciones(0,5)	=	"<rn:merge field_name=""contacts.first_name"" type=""text"">First Name</rn:merge>"
array_condiciones(1,5)	=	server.HTMLEncode(nombre_cliente)

array_condiciones(0,6)	=	"$contacts.first_name"
array_condiciones(1,6)	=	server.HTMLEncode(nombre_cliente)

array_condiciones(0,7)	=	"<rn:merge field_name=""contacts.created"" type=""text"">Date Created</rn:merge>"
array_condiciones(1,7)	=	server.HTMLEncode(created)

array_condiciones(0,8)	=	"<rn:merge field_name=""contacts.updated"" type=""text"">Date Last Updated</rn:merge>"
array_condiciones(1,8)	=	server.HTMLEncode(updated)

array_condiciones(0,9)	=	"<rn:merge field_name=""contacts.c$date_expire"" type=""text"">date_expire</rn:merge>"
array_condiciones(1,9)	=	server.HTMLEncode(date_expire)

array_condiciones(0,10)	=	"<rn:merge field_name=""contacts.c$date_purchase"" type=""text"">date_purchase</rn:merge>"
array_condiciones(1,10)	=	server.HTMLEncode(date_purchase)

array_condiciones(0,11)	=	"<rn:merge field_name=""contacts.c$date_registration"" type=""text"">date_registration</rn:merge>"
array_condiciones(1,11)	=	server.HTMLEncode(date_registration)

array_condiciones(0,12)	=	"<rn:merge field_name=""contacts.c$fecha_fin_servicios"" type=""text"">fecha_fin_servicios</rn:merge>"
array_condiciones(1,12)	=	server.HTMLEncode(fin_servicios)

array_condiciones(0,13)	=	"<rn:merge field_name=""contacts.full_name"" type=""text"">Full Name</rn:merge>"
array_condiciones(1,13)	=	server.HTMLEncode(full_name)

array_condiciones(0,14)	=	"<rn:merge field_name=""contacts.last_name"" type=""text"">Last Name</rn:merge>"
array_condiciones(1,14)	=	server.HTMLEncode(last_name)

array_condiciones(0,15)	=	"<rn:merge field_name=""contacts.c$on_contact_email"" type=""text"">ON contact email</rn:merge>"
array_condiciones(1,15)	=	server.HTMLEncode(on_email)

array_condiciones(0,16)	=	"<rn:merge field_name=""contacts.c$on_phone"" type=""text"">ON phone</rn:merge>"
array_condiciones(1,16)	=	server.HTMLEncode(on_phone)

array_condiciones(0,17)	=	"<rn:merge field_name=""contacts.postal_code"" type=""text"">Postal Code</rn:merge>"
array_condiciones(1,17)	=	server.HTMLEncode(postal_code)

array_condiciones(0,18)	=	"<rn:merge field_name=""contacts.c$salutation"" type=""text"">salutation</rn:merge>"
array_condiciones(1,18)	=	server.HTMLEncode(salutation)

array_condiciones(0,19)	=	"$contacts.c$salutation"
array_condiciones(1,19)	=	server.HTMLEncode(salutation)

array_condiciones(0,20)	=	"<rn:merge field_name=""contacts.c$send_information"" type=""text"">Send Information</rn:merge>"
array_condiciones(1,20)	=	server.HTMLEncode(send_information)

array_condiciones(0,21)	=	"<rn:merge field_name=""contacts.title"" type=""text"">Title</rn:merge>"
array_condiciones(1,21)	=	server.HTMLEncode(title)

array_condiciones(0,22)	=	"$contacts.title"
array_condiciones(1,22)	=	server.HTMLEncode(title)

array_condiciones(0,23)	=	"%%CLIENTID%%"
array_condiciones(1,23)	=	server.HTMLEncode(idcliente)

array_condiciones(0,24)	=	"%%EMAIL%%"
array_condiciones(1,24)	=	server.HTMLEncode(email)

array_condiciones(0,25)	=	"%%NAME%%"
array_condiciones(1,25)	=	server.HTMLEncode(nombre_cliente)

array_condiciones(0,26)	=	"%%SURNAME%%"
array_condiciones(1,26)	=	server.HTMLEncode(last_name)

array_condiciones(0,27)	=	"@@CLIENTID@@"
array_condiciones(1,27)	=	server.HTMLEncode(idcliente)

array_condiciones(0,28)	=	"@@EMAIL@@"
array_condiciones(1,28)	=	server.HTMLEncode(email)

array_condiciones(0,29)	=	"$contacts.c$rtgtcustomerid"

array_condiciones(1,29)	=	server.HTMLEncode(idcliente)

array_condiciones(0,30)	=	"%%ACTIVATION%%"
array_condiciones(1,30)	=	server.HTMLEncode(activation_code)

array_condiciones(0,31)	=	"^~#{Downloads^~#{"
array_condiciones(1,31)	=	server.HTMLEncode(enlace_descarga)

array_condiciones(0,32)	=	"^~#{Idcliente^~#{"
array_condiciones(1,32)	=	server.HTMLEncode(idcliente)

array_condiciones(0,33)	=	"^~#{Idactivacion^~#{"
array_condiciones(1,33)	=	server.HTMLEncode(activation_code)

array_condiciones(0,34)	=	"^~#{Descripcion^~#{"
array_condiciones(1,34)	=	server.HTMLEncode(nombre_producto)

array_condiciones(0,35)	=	"%%ACTIVATIONCODE%%"
array_condiciones(1,35)	=	server.HTMLEncode(activation_code)

array_condiciones(0,36)	=	"%%PRODUCTID%%"
array_condiciones(1,36)	=	server.HTMLEncode(id_product)

array_condiciones(0,37)	=	"^~#{CodPais^~#{"
array_condiciones(1,37)	=	server.HTMLEncode(cod_pais)

array_condiciones(0,38)	=	"^~#{Email^~#{"
array_condiciones(1,38)	=	server.HTMLEncode(email)

array_condiciones(0,39)	=	"{{ email_share_link }}"
array_condiciones(1,39)	=	server.HTMLEncode(linkshare)

array_condiciones(0,40)	=	"{{ email_share_link }}"
array_condiciones(1,40)	=	server.HTMLEncode(emailshare)

array_condiciones(0,41)	=	"{{ facebook_share_link }}"
array_condiciones(1,41)	=	server.HTMLEncode(facebookshare)

array_condiciones(0,42)	=	"*|URL:FACEBOOKSHARELINK|*"
array_condiciones(1,42)	=	server.HTMLEncode(facebookshare2)

array_condiciones(0,43)	=	"{{ twitter_share_link }}"
array_condiciones(1,43)	=	server.HTMLEncode(twittershare)

array_condiciones(0,44)	=	"%%EMAIL_DE_CONTACTO_DE_SOPORTE%%"
array_condiciones(1,44)	=	server.HTMLEncode(email_contacto_soporte)



'Recorro el array y hago los replace
For i = 0 to 44
	texto_definitivo	=	replace(texto_definitivo, array_condiciones(0,i), array_condiciones(1,i))
Next

'Añado las funciones js necesarias
js_default				=	"<script>window.onload=function(){document.getElementById('link_default').innerHTML='';}</script>"
texto_definitivo		=	replace(texto_definitivo,"</head>",js_default & "</head>")

'Código Google Analytics
'Abro el archivo origen y lo guardo en texto
'Set objFSO_google = Server.CreateObject("Scripting.FileSystemObject")
'Set objFile_google = objFSO_google.OpenTextFile(Server.MapPath("/emailhtml/default-creator/g_analitycs.html"),1)

'If Not objFile_google.AtEndOfStream Then
'	script_analitycs = CStr(objFile_google.ReadAll)
'End If

'texto_definitivo		=	replace(texto_definitivo,"</head>",script_analitycs & "</head>")

'objFile_google.Close

'Código Tag Manager
'Abro el archivo origen y lo guardo en texto
Set objFSO_tag = Server.CreateObject("Scripting.FileSystemObject")
Set objFile_tag = objFSO_tag.OpenTextFile(Server.MapPath("/emailhtml/default-creator/tag_manager.html"),1)

If Not objFile_tag.AtEndOfStream Then
	script_tag = CStr(objFile_tag.ReadAll)
End If

texto_definitivo		=	replace(texto_definitivo,"</body>",script_tag & "</body>")

objFile_tag.Close


'Muestro el archivo y cierro el objeto
Response.Write(texto_definitivo)
objFile.Close


%>