Ver Mensaje Individual
  #1 (permalink)  
Antiguo 19/07/2003, 01:34
Avatar de GUAPOBEN
GUAPOBEN
 
Fecha de Ingreso: noviembre-2002
Ubicación: Mexico DF
Mensajes: 204
Antigüedad: 22 años, 5 meses
Puntos: 1
Exclamación Formato en Vista de Datos

Quetal actualmente tengouna pagina que me muestra datos perome los muestra en una tabla pero de la siguiente forma:

Fecha Afiliación Folio Comercio Asignado a:
1/12/02 122222 111 Locos Juanito

Pero lo que yo quiero es que lo haga con formato algo asi:

Fecha : 1/12/02
Afiliación: 122222
Folio : 111
Comercio: Locos
Asignado a: Juanito.

Como le puedo hacer, mi codigo es el siguiente.

<html>
<head>
<style>
<!--//A:link {text-decoration: none;}A:visited {text-decoration: none;}//-->
</style>
<title>Ver Comercios</title>
<style fprolloverstyle>A:hover {color: #FFCC00; font-weight: bold}
</style>
</head>
<body link="#333399" vlink="#333399" alink="#333399">





<p>&nbsp;</p>
<p align="center"><b><i><font color="#333399" size="6">Comercios por Fecha&nbsp;</font><font size="4" color="#333399"><br>
</font></i></b></p>
<%
Dim oConn,strSQL, objRS

Set oConn = Server.CreateObject("ADODB.Connection")

oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("MiBase.mdb"))

strSQL = "SELECT TOP 3 * FROM Comercio ORDER BY Fecha DESC"
Set objRS = oConn.Execute(strSQL)

%>
<div align="center">
<center>
<TABLE BORDER=1 CELLSPACING=1 CELLPADDING=1 width="742">
<TR><TD width="97" align="center" bgcolor="#333399">
<font color="#FFFFFF"><b>Fecha</b></font></TD>
<TD width="141" align="center" bgcolor="#333399">
<font color="#FFFFFF"><b>Afiliación</b></font></TD>
<TD width="120" align="center" bgcolor="#333399">
<font color="#FFFFFF"><b>Folio</b></font></TD>
<TD width="189" align="center" bgcolor="#333399">
<font color="#FFFFFF"><b>Comercio</b></font></TD>
<TD width="192" align="center" bgcolor="#333399">
<font color="#FFFFFF"><b>Asignado a: </b></font></TD> </TR>
<%

while (not objRS.Eof)
Response.Write("<tr><td>&nbsp;" & objRS("Fecha") & "</td><td>&nbsp;" & objRS("Afiliacion") & "</td><td>&nbsp;" & objRS("Folio") &"&nbsp;</td><td>&nbsp;" & objRS("Comercio") &"&nbsp;</td><td>&nbsp;" & objRS("Instalador") &"&nbsp;</td></tr>")
objRS.MoveNext
wend

oConn.Close
set objRS = nothing
set oConn = nothing

%>
</table>
</center>
</div>
</body>
</html>

Me pueden ayudar Mil GRACIAS
__________________
Guapo Ben
Servidor y Amigo :adios: