<%@ LANGUAGE="VBSCRIPT" CODEPAGE="1252" %>
<%
Response.Status="301 Moved Permanently"
Response.AddHeader "Location", "http://www.worthymed.com/es/odontologia.asp"
%>
<%
'Variables de idioma a definir
idioma = 1
%>
Implantes dentales
<%
'dim i ,t
i = 1 // Idioma
t = 301 // Tratamiento
origen="LS" // ORIGEN
%>
<%
'Dim oGeoIP,strErrMsg
'Dim strIP,strCountryName,strCountryCode
Set oGeoIP = New CountryLookup
oGeoIP.GeoIPDataBase = Server.MapPath("../mt_uni/GeoIP.dat")
If oGeoIP.ErrNum(strErrMsg) <> 0 Then
Response.Write(strErrMsg)
Response.End
Else
strIP = request.ServerVariables("REMOTE_ADDR")
strCountryName = oGeoIP.lookupCountryName(strIP)
strCountryCode = oGeoIP.lookupCountryCode(strIP)
'response.write strip & " " & strCountryCode & " " & strCountryName
'response.end
End If
Set oGeoIP = Nothing
If "Argentina" = strCountryName Then
%>
<%
End If
%>
<%
url = Request.ServerVariables("HTTP_REFERER")
medio = Request.QueryString("med")
keyword = Request.QueryString("key")
utm_source = Request.QueryString("utm_source")
campaign = Request.QueryString("utm_campaign")
inicio_url = Request.Cookies("Inicio") ("entrada")
inicio_medio = Request.Cookies("Inicio") ("med")
inicio_keyword = Request.Cookies("Inicio") ("key")
inicio_source = Request.Cookies("Inicio") ("source")
inicio_campaign = Request.Cookies("Inicio") ("campaign")
if inicio_url = "" then
if url = "" then
Response.Cookies("Inicio") ("entrada")= "DIRECTO"
else
Response.Cookies("Inicio") ("entrada")= url
end if
else
Request.Cookies("Inicio") ("entrada")
end if
if inicio_medio = "" then
if medio = "" then
Response.Cookies("Inicio") ("med")= "ORGANICO"
else
Response.Cookies("Inicio") ("med")= medio
end if
else
Request.Cookies("Inicio") ("med")
end if
if inicio_keyword = "" then
if keyword = "" then
Response.Cookies("Inicio") ("key")= "NN"
else
Response.Cookies("Inicio") ("key")= keyword
end if
else
Request.Cookies("Inicio") ("key")
end if
if inicio_source = "" then
if utm_source = "" then
Response.Cookies("Inicio") ("source")= "ORGANICO"
else
Response.Cookies("Inicio") ("source")= utm_source
end if
else
Request.Cookies("Inicio") ("source")
end if
if inicio_campaign = "" then
if campaign = "" then
Response.Cookies("Inicio") ("campaign")= "NN"
else
Response.Cookies("Inicio") ("campaign")= campaign
end if
else
Request.Cookies("Inicio") ("campaign")
end if
%>
<%
'codigos de espec
'1 = plastica
'2 = capilar
'3 = pene
'4 = dermatologia
'5 = fertilizacion asistida
'6 = dental
'7 = bariatrica
'8 = buttocks
espec = "1"
med = Request.Cookies("Inicio") ("med")
key = Request.Cookies("Inicio") ("key")
url = Request.ServerVariables("HTTP_REFERER")
pag = Request.ServerVariables("URL")
utm_source = Request.Cookies("Inicio") ("source")
campaign = Request.Cookies("Inicio") ("campaign")
if med = "" then
if utm_source = "" then
Response.Cookies("Tracking") ("medio")= "organico"
else
Response.Cookies("Tracking") ("medio")= utm_source
end if
if campaign = "" then
Response.Cookies("Tracking") ("key")= "NN"
else
Response.Cookies("Tracking") ("key")= campaign
end if
Response.Cookies("Tracking") ("espec")= espec
Response.Cookies("Tracking") ("pag")= pag
medio = Request.Cookies("Tracking") ("medio")
key = Request.Cookies("Tracking") ("key")
espec = Request.Cookies("Tracking") ("espec")
If url = "" then
Response.Cookies("Tracking") ("url")= "directo"
Else
Response.Cookies("Tracking") ("url")= url
End if
url = Request.Cookies("Tracking") ("url")
pag = Request.Cookies("Tracking") ("pag")
Else
Response.Cookies("Tracking") ("medio")= med
Response.Cookies("Tracking") ("key")= key
Response.Cookies("Tracking") ("espec")= espec
Response.Cookies("Tracking") ("url")= url
Response.Cookies("Tracking") ("pag")= pag
medio = Request.Cookies("Tracking") ("medio")
key = Request.Cookies("Tracking") ("key")
espec = Request.Cookies("Tracking") ("espec")
url = Request.Cookies("Tracking") ("url")
pag = Request.Cookies("Tracking") ("pag")
End if
%>
<%
'Se fija que la cookie exista, sino genera otra.
if Request.Cookies("Plenitas") ("Estado")="True" then
Comollego = Request.Cookies("Plenitas") ("Referido")
Else
Response.Cookies("Plenitas") ("Estado")="True"
Response.Cookies("Plenitas") ("Referido")= "N"
Comollego = Request.Cookies("Plenitas") ("Referido")
End if
%>
Ya no tiene que postergar su salud dental y apariencia.
Plenitas le ofrece los tratamientos convencionales de odontologia (caries, tratamiento de conducto) a los que se agregan otros procedi-mientos cosméticos como implantes dentales y prótesis removibles.
