Tema: Ayudita¡¡
Ver Mensaje Individual
  #7 (permalink)  
Antiguo 29/03/2007, 04:31
asarte82
 
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>