<% iberpisos=false If instr(Request.ServerVariables("HTTP_HOST"),"iberpisos.es") > 0 then iberpisos=true end if %> iberpisos.ico" /> <% CharSetPagina = "utf-8" Response.ContentType = "text/html;charset=" & CharSetPagina set conexion = Server.CreateObject("ADODB.Connection") 'conexion.Open "Driver={SQL Server};Server=SQLCLUSTER3\SQL2005;Database=FidelizacionRedaccion;Trusted_Connection=Yes;" Conexion.Open "Provider=SQLNCLI;Data Source=192.168.36.47;Initial Catalog=FidelizacionRedaccion;User Id=sa;Password=mS_pX97l" Provincia = request("Provincia") Edicion = request("Edicion") if Provincia = "" then provincia = null end if if Edicion = "" then edicion = "0" end if Set Cmd = Server.CreateObject("ADODB.Command") Cmd.ActiveConnection = Conexion Cmd.CommandType = adCmdStoredProc Cmd.CommandText = "BoletinMostrar" Cmd.Parameters.Append Cmd.CreateParameter("Provincia", adVarchar, , 255, Provincia) Cmd.Parameters.Append Cmd.CreateParameter("Edicion", adVarchar, , 255, Edicion) Set RecordSet = Server.CreateObject("ADODB.Recordset") RecordSet.CursorLocation = adUseClient RecordSet.LockType = adLockBatchOptimistic RecordSet.CursorType = adOpenStatic 'adOpenForwardOnly Set RecordSet.Source = Cmd RecordSet.Open Do While Not RecordSet.Eof cbody = cbody & RecordSet("cbody") RecordSet.MoveNext Loop if len(cbody) > 0 then inicio = instr(cbody,"") + 8 longitud = final - inicio tabla_pincha_aqui = mid(cbody,inicio, longitud) cbody = replace (cbody, tabla_pincha_aqui, "") if iberpisos = true then response.write replace(replace(replace(replace(replace(replace(replace(cbody,"tucasa.com","iberpisos.es"), "tucasa", "iberpisos"),"pieazul","pieazulIberpisos"), "TucasaPress", "Iberpisos"), " es un dominio propiedad de Grupo dtm S.L", ""), "cabecera.gif","cabeceraIberpisos.gif"), "UA-432843-1", "UA-13064011-1") else response.write cbody end if else response.redirect Dominio end if %>