 
			
				17/11/2005, 06:08
			
			
			     |  
      |    (Desactivado)   |    |    Fecha de Ingreso: agosto-2002  
						Mensajes: 1.458
					  Antigüedad: 23 años, 2 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>           |