<% Dim MyConn Dim rslist Dim MySQL Dim rcount rcount = 0 Set MyConn = Server.CreateObject("ADODB.Connection") //MdbFilePath = Server.MapPath("../db/pisdb.mdb") MdbFilePath = "f:\Webs\memorias_2006\ponencias\talleres\congreso.mdb" MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";" MySQL = "SELECT * FROM congreso WHERE congreso.taller=6 ORDER by orden" Set rslist = MyConn.Execute(MySQL) %>



I Taller de Desarrollo Endógeno,Investigación Participativa y Extensionismo Agrario

No.
 Autor Título -> Resumen de una hoja Res. Ampliado
<% do while not rslist.EOF IF RCount Mod 2 = 0 THEN Response.Write(""& vbCrLf ) ELSE Response.Write(""& vbCrLf ) END IF Response.Write(""& vbCrLf ) Response.Write(""& vbCrLf ) IF rslist.Fields("rc") THEN Response.Write(""& vbCrLf ) ELSE Response.Write(""& vbCrLf ) END IF IF rslist.Fields("rl") THEN Response.Write(""& vbCrLf ) ELSE Response.Write(""& vbCrLf ) END IF Response.Write(""& vbCrLf ) rslist.MoveNext rcount = rcount + 1 loop rslist.Close Set rslist = Nothing MyConn.Close Set MyConn = Nothing %>
"&rslist.Fields("codigo")&"" &rslist.Fields("autor")&""&rslist.Fields("titulo")&""&""&rslist.Fields("titulo")&""&""&""&"