22/05/2003, 10:45
| ||||
| ||||
| Sobre contador de registros Hola amigos... Tengo una página ASP q me devuelve el contenido de una base de datos referente a alquileres y ventas de una inmobiliaria.... mi pregunta es: Como puedo hacer para q esa misma página me muestre el numero total de registros q se han encontrado??? Espero haberme explicado... En fin, espero ansioso vuestra ayuda. Ciao!!!
__________________ "El Universo simpre quiere que ganemos" |
|
22/05/2003, 10:49
| ||||
| ||||
| Response.Write("Se encontraron " & rs.Recordcount & " registros") Salu2,
__________________ "El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera." -- Ernest Hemingway |
|
22/05/2003, 13:49
| ||||
| ||||
| El codigo es este... <% 'Par_metros de entrada 'prov=PROVINCIA, inmob=LOGIN on error resume next dim sProv, sLogin, SQL dim sTelefono1, sNombre dim fg1,bg1,fg2,bg2,temp set oConn=Server.CreateObject("ADODB.Connection") set oConn2=Server.CreateObject("ADODB.Connection") set rs=Server.CreateObject("ADODB.Recordset") set rs2=Server.CreateObject("ADODB.Recordset") fg1="#000000" fg2="#000000" bg1="#ffffff" bg2="#f6c800" Response.Write("<html><body bgcolor=""#336699"">"&vbCrLf) sProv=Request.QueryString("prov") 'sLogin=Request.QueryString("inmob") sParte=Request.QueryString("parte") sLugar=Request.Form("lugar") sClase=Request.QueryString("clase") SQL="SELECT LOGIN, DESCRIPCION, PRECIO, TIPO, REF, LUGAR, FOTO" SQL = SQL & " FROM " & sProv & " WHERE VIGENCIA=1 AND TIPO='"&sClase&"' ORDER BY PRECIO;" 'Response.Write("SQL="&SQL&"<br>") set oConn=Server.CreateObject("ADODB.Connection") set rs=Server.CreateObject("ADODB.Recordset") select case sParte case "alquileres": oConn.Open "DSN=granada2000.net.alquileres" titulo=" DE ALQUILER" case "ventas" oConn.Open "DSN=granada2000.net.ventas" titulo=" EN VENTA" case "promociones" oConn.Open "DSN=granada2000.net.promo" titulo=" EN PROMOCIÓN" end select Response.Write("<center><br><br><font face=""arial"" size=""6"" color=""#ff0000"">") Response.Write(sumas(sClase)&titulo&"</font><br><br>"&vbCrLf) Response.Write("<table border=0 bgcolor=#ffffff cellspacing=0 width=""600align=""center"">"&vbCrLf) Response.Write("<font face=""Arial"" color=#000000><caption><b>") select case sParte case "alquileres": Response.Write(" ALQUILERES EN TODAS LAS INMOBILIARIAS</b></caption></font>"&vbCrLf) case "ventas": Response.Write(" VENTAS EN TODAS LAS INMOBILIARIAS</b></caption></font>"&vbCrLf) case "promociones": Response.Write(" PROMOCIONES EN TODAS LAS INMOBILIARIAS</b></caption></font>"&vbCrLf) end select rs.Open SQL, oConn if rs.EOF or rs.BOF then escribe("</table><br><br>") escribe("<font color=white face=helvetica size=4>No se han encontrado ofertas.<br>") Response.End end if escribe("<thead><tr bgcolor=""#FF3333"">") Response.Write("<th bordercolor=#000000><font size=2 face=""Arial"" color=#000000>Imagen</font></th>"&vbCrLf) Response.Write("<th bordercolor=#000000><font size=2 face=""Arial"" color=#000000>Descripción</font></th>"&vbCrLf) Response.Write("<th bordercolor=#000000><font size=2 face=""Arial"" color=#000000>Lugar</font></th>"&vbCrLf) Response.Write("<th bordercolor=#000000><font size=2 face=""Arial"" color=#000000>Precio</font></th>"&vbCrLf) Response.Write("<th bordercolor=#000000><font size=2 face=""Arial"" color=#000000>Inmobiliaria</font></th>"&vbCrLf) Response.Write("</tr></thead><tbody>") do until rs.EOF sFoto=rs.Fields("FOTO") escribe("<tr valign=top bgcolor="&bg1&">") escribe("<td bordercolor=#c0c0c0>") if len(sFoto) then escribe("<a href=""images/fotosofertas/"&sFoto&"""><img width=""40"" border=0 src=""camera.gif""></a>") end if escribe("</td>") escribe("<td bordercolor=#c0c0c0>") escribe("<font size=2 face=""Arial"" color="&fg1&">"&rs.Fields("DESCRIPCION")) if len(rs.Fields("REF")) then Response.Write(" REF."&rs.Fields("REF")&vbCrLf) Response.Write("</font></td>") Response.Write("<td bordercolor=#c0c0c0 align=center>") Response.Write("<font size=2 face=""Arial"" color="&fg1&">") Response.Write(rs.Fields("LUGAR")&"</font></td>"&vbCrLf) Response.Write("<td bordercolor=#c0c0c0 align=right>") Response.Write("<font size=2 face=""Arial"" color="&fg1&">") Response.Write(formatnumber(rs.Fields("PRECIO"),0) &"€.<br>") Response.Write("<td bordercolor=#c0c0c0 align=center valign=center>") 'mira inmobliaria oConn2.Open "DSN=granada2000.net.inmo" SQL="SELECT LOGIN, LOGOTIPO FROM "&sPRov&" WHERE LOGIN='"&rs.Fields("LOGIN")&"';" rs2.Open SQL, oConn2 sLogo=rs2.Fields("LOGOTIPO") sLogin=rs2.Fields("LOGIN") escribe("<a href=""intro.asp?prov="&sProv&"&parte="&sParte&"&i nmob="&sLogin&""" target=""_blank"" >") escribe("<img width=""50"" height=""28"" border=""0"" src=""images/logotipos/"&sLogo&"""></a>") escribe("</td></tr>") rs2.Close oConn2.Close 'pasa al siguiente rs.Movenext 'intercambia colores temp=fg2 fg2=fg1 fg1=temp temp=bg2 bg2=bg1 bg1=temp loop Response.Write("</body></html>"&vbCrLf) sub escribe (cadena) Response.Write(cadena & vbCrLf) end sub function sumas(cadena) select case right(ucase(cadena),1) case "A","E","I","O","U","G" cadena=cadena & "S" case else cadena=cadena & "ES" end select sumas=cadena end function %> Como lo puedo insertar y dnd? Asias!
__________________ "El Universo simpre quiere que ganemos" |
|
22/05/2003, 14:02
| ||||
| ||||
| <%totalregistros=rs.recordcount%> Puede estar en cualquier parte, siempre y cuando tengas abierta la conexion, es decir: <% oConn.Open "DSN=granada2000.net.alquileres" ' codigo ' codigo totalregistros=rs.recordcount rs.close %> |
