
17/11/2005, 06:08
|
(Desactivado) | | Fecha de Ingreso: agosto-2002
Mensajes: 1.458
Antigüedad: 22 años, 8 meses Puntos: 0 | |
#include FILE="adovbs.inc" perdon por la ignorancia para que sirve este include ? lo veo en muchos codigos , me podrían explicar ? #include FILE="adovbs.inc
gracias
<%@ LANGUAGE="VBSCRIPT" %>
'Incluimos el archivo adovbs.inc <!-- #include FILE="adovbs.inc" -->
<HTML>
<HEAD>
<TITLE>Document Title</TITLE>
</HEAD>
<BODY>
<%
'lo primero es crear la conexion con la tabla de nuestra base de datos
SET OBJDBCONNECTION = SERVER.CREATEOBJECT("ADODB.CONNECTION")
OBJDBCONNECTION.OPEN "Ejemplo"
SQLQUERY = "SELECT * FROM SECCION"
SET RSTABLA = OBJDBCONNECTION.EXECUTE(SQLQUERY)
'Ahora creamos la tabla donde se desplegaran las secciones que existen en nuestra tabla
%>
<TABLE>
<%
'Ahora agregamos nuestros datos a la tabla dinamica
'Checa que no sea fin de archivo
DO WHILE NOT RSTABLA.EOF %>
<TR>
<TD>
<!--Desplegamos la fotografia de la seccion y hacemos el link a la siguiente pagina pasando el ID
de la seccion para que siguiente pagina nos muestre las postales correspondientes a esa
seccion, con lo cual la liga quedaria algo asi seccion.asp?id=1 o el numero correspondiente al
ID de ese registro el cual debe de estar incluido en la tabla postales en el campo seccion y asi
vamos a lograr filtrar solo las postales de esa seccion -->
<AHREF="seccion.asp?idSeccion=<%=RSTABLA("ID")%>"> <IMG SRC="<%= RSTABLA("FOTOGRAFIA")%>" border=0></A>
</TD>
<TD>
<!--Despliega el nombre de la seccion-->
<%= RSTABLA("SECCION")%>
</TD>
</TR>
<%
'Se mueve al siguiente registro
RSTABLA.MOVENEXT
'Se regresa hasta el Do While
LOOP
%>
</TABLE> |