
29/03/2007, 04:31
|
| | Fecha de Ingreso: marzo-2007
Mensajes: 49
Antigüedad: 18 años, 1 mes Puntos: 0 | |
Re: Ayudita¡¡ Haber, tengo esto y kiero k me muestre un texto que es de tipo meno, puesto que en acces si es tipo texto es solo de 255 caracteres y yo necesitaba mas y lo otro k se tiene k mostrar es una imagen de fhotoshop. las dos cosas almacenadas en la base de datos.
<%@LANGUAGE="VBSCRIPT"%>
<html>
<head>
<title>Alta de Empleados</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<p align="center"><B><font size="6">ENTRADA </font></B></p>
<%@ LANGUAGE="VBSCRIPT" %>
<HTML>
<HEAD>
<title>Lectura de la base de datos</title>
</HEAD>
<body>
<H4><B>Listado de Empleados</B></H4>
<%
' Creamos la conexión con la base de datos
set cn = Server.CreateObject("ADODB.connection")
' Abrimos la conexión con la base de datos, pasándole el DSN
cn.Open "DSN=BDWeb"
' Creamos un objeto recorset
set rs = Server.CreateObject("ADODB.Recordset")
' Creamos la consulta para seleccionar los registros a recuperar.
sql = "Select * FROM Contacto"
'Abrimos el objeto recordset pasándole la consulta y la conexión.
rs.Open sql, cn, 1, 1
' Recorremos el recordset para visualizar los datos de sus registros.
rs.MoveFirst
for each elem in rs.fields
Response.write ("<td>" & elem.name & "</td>")
next
' Cerramos el objeto Recordset y liberamos la memoria del objeto Recordset
rs.Close
Set rs = Nothing
'cerramos la conexión y liberamos la memoria del objeto conexión
cn.close
Set cn = Nothing
%>
</BODY>
</HTML> |