<%@ LANGUAGE="VBSCRIPT" %> <% set objconn = Server.CreateObject("ADODB.Connection") objConn.ConnectionString = "DSN=revistaaquatic.com.aquatic" objconn.Open set rs = Server.CreateObject("ADODB.Recordset") dim sql, n sql="select * from accesos where PAGINA='comite'" rs.Open sql,objconn,2,2 n=rs("N")+1 rs("N")=n rs.Update rs.Close %> Revista AquaTIC: Comité Científico
Comité Científico

El Comité Científico de la Revista AquaTIC está formado por prestigiosos profesionales e investigadores de reconociento internacional.


<% sql= "select comite.TITULO, comite.NOMBRE, comite.APELLIDOS, comite.INSTITUCION, comite.POBLACION, paises.NOMBRE as PAIS from comite, paises where comite.PAIS=paises.COD order by comite.APELLIDOS" rs.Open sql,objconn do while not rs.EOF%> <% rs.movenext loop rs.close %>

  <%=rs("TITULO")%> <%=rs("NOMBRE")%> <%=rs("APELLIDOS")%>

<%=rs("INSTITUCION")%><% if rs("POBLACION")<>"" then %>, <%=rs("POBLACION")%><% end if %> (<%=rs("PAIS")%>)

<% set rs=nothing objConn.Close set objconn=nothing %>