<% madrid=Request.QueryString("madrid") Dim Valor On Error Resume Next Set Cn = Server.CreateObject ("ADODB.Connection") Set Rs= Server.CreateObject ("ADODB.Recordset") Cn.Open "driver=SQL Server;server=lwdg484.servidoresdns.net;uid=qqx111;pwd=Estragon1;database=qqx111" strSQL = "SELECT * FROM MADRID_ACTIVIDADES where madrid='"&madrid&"' AND idioma='es'" Set Rs=Cn.Execute(strSQL) If Err.Description <>"" Then Response.Write " Error en Base de Datos:" & Err.Description & "" End if %> Hostal Madrid <%=Rs("nombre_actividad")%> "> <%=Rs("nombre_actividad")%> ">

Tarifas

<%=Rs("tarifa")%>

<%=Rs("nombre_actividad")%>

" alt="">
<%=Rs("descripcion")%>

Reservar <%=Rs("nombre_actividad")%>

<%=Rs("caracteristicas1")%>
<%=Rs("caracteristicas2")%>

Desde el hostal Madrid La Plata se coordina esta actividad.-

<%Rs.close() Cn.close() Set Rs = Nothing Set Cn= Nothing%>