Ahora, cuando un cliente quiere ver las promociones que tengo, le aparece un listado simple, con la tipica informacion. Ref, tipo de vivienda, nombre promocion, lugar, hab, bañ, metros y precios.
Y cuando apretas a ref, se amplia la informacion de esta, con una descripcion, 3 fotos ...
El que estoy intentando es que en la primera lista, se vea.
un pequeña foto, ref, descripcion, precio desde, nombre promocion ... Tipo Fotocasa.
En fin me vuelvo loco, porque no me funciona.
Os adjunto el codigo que estoy remodelando, a ver que me sugeris, ke montones de cosas le faltan.
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>GRUP 90 - Promociones</title>
<script language="Javascript">
function intercambia(imagen)
{
document.grande.src=imagen.src
}
</script>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="grup90.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
background-color: #D5EAFD;
}
.Estilo1 {color: #666666}
-->
</style>
<script language="JavaScript">
<!--
function OpenWindow(url, alto, ancho, name, parms,centrada,xSup,ySup)
{
var winParms ="height=" + alto + ",width=" + ancho;
var left=10;
var top=10;
if (centrada=="yes")
{
left = Math.floor( (screen.width - ancho) / 2);
top = Math.floor( (screen.height - alto) / 2);
}
else
if(xSup&& ySup)
{
left=xSup;
top=ySup;
}
winParms = ",top=" + top + ",left=" + left + ",height=" + alto + ",width=" + ancho;
if (parms)
{
winParms += "," + parms;
}
var win = window.open(url, name, winParms);
if (parseInt(navigator.appVersion) >= 4) { win.window.focus(); }
return win;
}
//-->
</script>
</head><%
dim Conn
dim objRS
id=Request.Querystring("id")
Set Conn = Server.CreateObject("ADODB.Connection")
DSNtest="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtest=dsntest & "DBQ=" & Server.MapPath("/Data/1867.mdb")
Conn.Open DSNtest
DIm zona(16)
zona(0)="Indifferent"
zona(1)="01 Costa Brava"
zona(2)="02 Costa Maresme"
zona(3)="03 Costa Dorada"
zona(4)="04 Costa Azahar"
zona(5)="05 Costa Valencia"
zona(6)="06 Costa Blanca"
zona(7)="07 Costa Calida"
zona(
="08 Costa Almeria"zona(9)="09 Costa Granada"
zona(10)="10 Costa del Sol"
zona(11)="11 Costa de la Luz"
zona(12)="12 Costa de Huelva"
zona(13)="13 Baleares"
zona(14)="14 Canarias"
zona(15)="15 Pirineos"
rzona=request.QueryString ("frmzona")
if rzona="" then rzona=request.Form("frmzona")
if(rzona>16) then rzona=0
SQLC="SELECT * FROM 1867_UN WHERE IdPromocion>1 AND Situacion2='"&zona(cint(rzona))&"' ORDER BY IdPoblacion"
'response.Write (sql)
'response.Write "<br>sql2"& sql2
'response.Write "<br>"& sqlc
function capitalize(str)
If Len(Trim(str))>0 Then
prts = split(str, " ")
for each item in prts
if len(trim(item)) > 0 then
capitalize = capitalize & " " & Ucase(left(item, 1)) & lcase(right(item, len(item)-1))
end if
next
capitalize = trim(capitalize)
Else
capitalize = str
End IF
end function
%>
<body>
<form name="consulta" action="index.asp" method="post">
<input type="hidden" name="frmzona" value="<%= cint(rzona)%>">
<input type="hidden" name="frmaccion" value="nada">
<table width="772" height="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#D5EAFD">
<tr>
<td width="20" rowspan="3"><table width="20" height="100%" border="0" cellpadding="0" cellspacing="0" background="motiuesq.gif">
<tr>
<td> </td>
</tr>
</table></td>
<td width="732" height="100" valign="top" bgcolor="#FFFFFF"><table width="733" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td width="732"><img src="caps.jpg" width="732" height="58"></td>
</tr>
<tr>
<td><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="732" height="42">
<param name="movie" value="menu_inmobiliaria.swf">
<param name="quality" value="high">
<embed src="menu_inmobiliaria.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="732" height="42"></embed>
</object></td>
</tr>
</table></td>
<td width="20" rowspan="3" background="img_web/motiudret.gif"> </td>
</tr>
<tr>
<td width="732" height="670" valign="top" bgcolor="#FFFFFF"><div align="center">
<table width="99%" border="0" cellpadding="4" cellspacing="2">
<tr>
<td colspan="2"><img src="images/img_promociones.gif" width="709" height="56"></td>
</tr>
<tr>
<td></td>
<td colspan="1"></td>
<colspan="3"><%
gris=false
set objRS=Conn.Execute(SQLC)
%>
<table width="100%" border="1" cellpadding="3" cellspacing="0" bordercolor="#FFFFFF">
<%Do Until objRS.EOF = True%>
<tr bgcolor="#98B3D5" class="unnamed1"><%
response.Write ("<td align=""center""> <a style=""color: rgb(255, 0, 0);"" href=""javascript:;"" onclick=""OpenWindow('detalles.asp?id="&objRS("IdPiso")&"','550','500','piso','scrollbars=yes','yes','yes','')"">"&objRS("Expediente")&"</a>")
if(objRS("Nuevo")=1) then
response.Write (" N ")
else
response.Write (" ")
End If
response.write("</td>")
idpro=objRS("IdPromocion")
idpro=cstr(idpro)
idpro=replace(idpro,",",".")
sqlpromo="SELECT Descripcion FROM 1867_PR WHERE IdPromocion="&idpro
'response.Write ("<td>"&sqlpromo&"</td>")
%></tr>
<tr bgcolor="#98B3D5" class="unnamed1">
<td rowspan="3"><%if(objRS("Foto1")="") then%>
<%else
img="../../../../Data/"&objRS("Foto1")%>
<div align="center"><img src="<%=img%>" border="1"></div>
<%end if%></td>
<td colspan="1">
<font color="#557691" face="Arial" size="3"><b><%=objRSCas("Cabecera")%> </b></font>
</td>
</tr>
<tr bgcolor="#98B3D5" class="unnamed1"><%
response.Write
idpob=objRS("IdPoblacion")
idpob=cstr(idpob)
idpob=replace(idpob,",",".")
sqlpromo="SELECT NombrePoblación FROM 1867_Población WHERE IdPoblación="&idpob
set rsPromo=Conn.Execute(sqlpromo)
response.Write ("<td>"&rsPromo("NombrePoblación")&"</td>")
%></tr>
<tr bgcolor="#98B3D5" class="unnamed1"><%
response.Write ("<td align=""right""><acronym title="""& FormatNumber(objRS("PrecioPts")) &" Pts"">"& FormatNumber(objRS("PrecioEur")) &"€</acronym></td>")
%>
<tr bgcolor="#98B3D5" class="unnamed1">
<td></td>
<td>
<font color="#557691" face="Arial" size="3"></font>
<%=objRSCas("Descripcion")%>
</td>
</tr>
</td>
</table>
<tr>
<td width="732" valign="bottom" bgcolor="#FFFFFF"><img src="base.gif" width="732" height="18" border="0" usemap="#Map">
<map name="Map">
<area shape="rect" coords="611,4,699,41" href="mailto:[email protected]">
</map> </td>
</tr>
</table>
</form>
</body>
</html>
<%
objRS.Close
Set objRS = Nothing
Set objRSTipo = Nothing
Conn.Close
Set Conn= Nothing
%>
