<%@LANGUAGE="VBSCRIPT"%> <% Dim ofertas__MMColParam ofertas__MMColParam = "1" If (Request("MM_EmptyValue") <> "") Then ofertas__MMColParam = Request("MM_EmptyValue") End If %> <% Dim ofertas Dim ofertas_cmd Dim ofertas_numRows Set ofertas_cmd = Server.CreateObject ("ADODB.Command") ofertas_cmd.ActiveConnection = MM_acityapart_STRING ofertas_cmd.CommandText = "SELECT * FROM pisos WHERE oferta = ?" ofertas_cmd.Prepared = true ofertas_cmd.Parameters.Append ofertas_cmd.CreateParameter("param1", 5, 1, -1, ofertas__MMColParam) ' adDouble Set ofertas = ofertas_cmd.Execute ofertas_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 ofertas_numRows = ofertas_numRows + Repeat1__numRows %> <% Function seleccionatipo(tipo) Select case tipo case "1" seleccionatipo="estudiantes" case "2" seleccionatipo="turismo" case "3" seleccionatipo="empresas" end select end function %> A city apart: Ofertas

A continuacin dispone de una seleccin de nuestras mejores ofertas de alquiler de apartamentos.

estudiantes,
turismo y
alquiler
<% While ((Repeat1__numRows <> 0) AND (NOT ofertas.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 ofertas.MoveNext() Wend %>
 
<%=(ofertas.Fields.Item(" src="fotos/fotosth/<%=(ofertas.Fields.Item("imagen1").Value)%>" style="margin: 0px 10px 5px 0px;">
turismo.gif">
"><%=(ofertas.Fields.Item("referencia").Value)%> <%=(ofertas.Fields.Item("descripcionbreve").Value)%>
.asp?codigo=<%=(ofertas.Fields.Item("codigo").Value)%>">[+informacin]
<% ofertas.Close() Set ofertas = Nothing %>