06/12/2003, 23:39
|
 | | | Fecha de Ingreso: diciembre-2001
Mensajes: 449
Antigüedad: 23 años, 4 meses Puntos: 2 | |
| mostrar resultados de una base en un formulario
hola hay un codigo que quiero modificar la base es de acces me muestra todo bien solamente que cuando se muestra la parte de comentarios es amenudo grande y abarca mucho espacio en la pagina se sige por eso quiero poner un textareapara que almasene el contenido de la base que es un memo para que quepan muchos caracteres.
el codigo original es:
<html>
<head>
<title>pagina de prueba</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<%
Dim DB, TBL
Set DB = Server.CreateObject("ADODB.Connection")
Set TBL = Server.CreateObject("ADODB.RecordSet")
DB.Mode = adModeReadWrite
DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath("afiliados.mdb"))
TBL.Open "Afiliados" ,DB ,1 ,2
While NOT TBL.EOF
Response.Write("<b>Nombre :</b> " & TBL("Nombre") & "<br>")
Response.Write("<b>Empresa :</b> " & TBL("Empresa") & "<br>")
Response.Write("<b>Correo :</b> " & TBL("Correo") & "<br>")
Response.Write("<b>Requisitos :</b> " & TBL("Requisitos") & "<br><br><hr>")
TBL.MoveNext
Wend
TBL.Close
DB.Close
Set DB = Nothing
Set TBL = Nothing
%>
</body>
</html>
funciona bien quiero incrementarle algo como:
<textarea name="comentario" rows="10" cols="40">Contenido base....</textarea>
que mas omenos quede asi
<html>
<head>
<title>pagina de prueba</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<%
Dim DB, TBL
Set DB = Server.CreateObject("ADODB.Connection")
Set TBL = Server.CreateObject("ADODB.RecordSet")
DB.Mode = adModeReadWrite
DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath("afiliados.mdb"))
TBL.Open "Afiliados" ,DB ,1 ,2
While NOT TBL.EOF
Response.Write("<b>Nombre :</b> " & TBL("Nombre") & "<br>")
Response.Write("<b>Empresa :</b> " & TBL("Empresa") & "<br>")
Response.Write("<b>Correo :</b> " & TBL("Correo") & "<br>")
Response.Write("<b>Requisitos :</b> " & TBL("Requisitos") & "<br>
<textarea name="comentario" rows="10" cols="40">Response.Write("<b>Requisitos :</b> " & TBL("Requisitos") & "<br></textarea>
<br><hr>")
TBL.MoveNext
Wend
TBL.Close
DB.Close
Set DB = Nothing
Set TBL = Nothing
%>
</body>
</html>
pero no funciona que tengo que hacer??
les agrasesco |