..:::Madrid Easy

<%@LANGUAGE="VBSCRIPT"%> <% Set oRS = Server.CreateObject("ADODB.Recordset") Set oRS2 = Server.CreateObject("ADODB.Recordset") Set oRS3 = Server.CreateObject("ADODB.Recordset") Set oRS4 = Server.CreateObject("ADODB.Recordset") Set oConn = Server.CreateObject("ADODB.connection") oConn.ConnectionString = "DSN=madrideasy.com.mm_strmme_string" oConn.Open oRS.ActiveConnection = oConn oRS2.ActiveConnection = oConn oRS3.ActiveConnection = oConn oRS4.ActiveConnection = oConn aux = request("id_idioma") + 0 aux2 = session("id_idioma") + 0 If aux = 0 Then If aux2 = 0 Then session("id_idioma") = 1 Else session("id_idioma") = request("id_idioma") End If sSelect1 = "SELECT * FROM IDIOMAS WHERE id_idioma="&session("id_idioma")&"" sSelect2 = "SELECT id_idioma, gif FROM IDIOMAS" sSelect3 = "SELECT tipo_via, nombre_via, numero, bloque, escalera, piso, puerta, zona, amueblado, foto1 FROM PISOS WHERE destacado=1" oRS.Source = sSelect1 oRS.Open() oRS2.Source = sSelect2 oRS2.Open() oRS3.Source = sSelect3 oRS3.Open() varaux1=oRS("textomenu6") varaux2=oRS("selecciona") %> ..:::Madrid Easy

<% While Not oRS2.EOF If oRS2("gif") <> "images/" Then %> ">

" border=0 width="21" height="20"> <% End If oRS2.MoveNext Wend %>

<%=oRS("buscatupiso")%>

<%=varaux1%>

')" onMouseOut="boxOff(this)" height="20">

<%=oRS("menu6")%>

')" onMouseOut="boxOff(this)" bgcolor="#cfd797" height="20">

<%=oRS("llegarmadrid")%>

<%=oRS("moversemadrid")%>

		<%=oRS("avion")%>

		Barajas

		<%=oRS("autobuslargo")%>

		<%=oRS("companias")%> <%=oRS("estaciones")%>

		<%=oRS("trenlargo")%>

		RENFE <%=oRS("estaciones")%>

		<%=oRS("coche")%>

		<%=oRS("carreterasnacionales")%> <%=oRS("alquilercoches")%>

	<%=oRS("metro")%>

	<%=oRS("metromadrid")%>

	<%=oRS("autobusurbano")%>

	E.M.T.

	<%=oRS("trencercanias")%>

	<%=oRS("cercanias")%>

	<%=oRS("teletaxi")%>

	<%=oRS("teletaxi")%>

<% oRS.Close() oRS2.Close() oRS3.Close() oConn.Close() %>