<%@ Language=VBScript %> <% Dim params, strFileLocation, cadena params = "&" strFileLocation = Request.ServerVariables ("PATH_INFO") For each var in Request.QueryString params = params & var & "=" & Request.QueryString (var) & "&" Next if Instr(strFileLocation, "interactivos") > 0 then cadena = "interactivo=1" else cadena = "interactivo=0" end if params = params & cadena %>