<%@ LANGUAGE="VBSCRIPT" CODEPAGE="1252" %> <% Response.Status="301 Moved Permanently" Response.AddHeader "Location", "http://www.worthymed.com/es/destino-argentina.asp" %> <% ' Reemplazado por el include de arriba ' intCodLang = Request.QueryString("lang") ' intCodLang = Left(Request.QueryString("lang"),1) ' ' Select case cint(0 & intCodLang) ' Case 0: Session("pCodLang") = 2 ' Case 1: Session("pCodLang") = 1 ' Case 2: Session("pCodLang") = 2 ' Case 3: Session("pCodLang") = 3 ' Case 4: Session("pCodLang") = 4 ' End Select ' Set objConn = Server.CreateObject("ADODB.Connection") ' objConn.ConnectionString = SESSION("ConnectionString") ' Set objRec = Server.CreateObject("ADODB.RecordSet") ' objConn.Open Session("ConnectionString") %> <% if Session("pCodLang") = 1 then Response.Write "Cirugia Plastica en Buenos Aires - Turismo Medico en Argentina" end if if Session("pCodLang") = 2 then Response.Write "Plastic Surgery Buenos Aires - Health Tourism in Argentina" end if if Session("pCodLang") = 3 then Response.Write "Plenitas - Tourisme santé en l'Argentine" 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 %>
<% Select Case (Session("pCodLang")) Case 1: %> <% Case 2: %> <% Case 3: %> <% Case 4: %> <% End Select %>
<% Select Case (Session("pCodLang")) Case 1: %> <% Case 2: %> <% Case 3: %> <% Case 4: %> <% End Select %>
Argentina  |  Buenos Aires
<% Select Case (Session("pCodLang")) Case 1:%><% Case 2:%><% Case 3:%><% Case 4:%><% End Select %>
 
<% Select Case (Session("pCodLang")) Case 1: %> <% Case 2: %> <% Case 3: %> <% Case 4: %> <% End Select %>
<% Select Case (Session("pCodLang")) Case 1: %> <% Case 2: %> <% Case 3: %> <% Case 4: %> <% End Select %>