%@LANGUAGE="VBSCRIPT"%>
<%
set Paises = Server.CreateObject("ADODB.Recordset")
Paises.ActiveConnection = MM_dbflasef_STRING
Paises.Source = "SELECT * FROM PAISES"
Paises.CursorType = 0
Paises.CursorLocation = 2
Paises.LockType = 3
Paises.Open()
Paises_numRows = 0
%>
<%
set Tipos = Server.CreateObject("ADODB.Recordset")
Tipos.ActiveConnection = MM_dbflasef_STRING
Tipos.Source = "SELECT * FROM TIPOS"
Tipos.CursorType = 0
Tipos.CursorLocation = 2
Tipos.LockType = 3
Tipos.Open()
Tipos_numRows = 0
%>
<%
set Calidad = Server.CreateObject("ADODB.Recordset")
Calidad.ActiveConnection = MM_dbflasef_STRING
Calidad.Source = "SELECT * FROM En_Calidad_de"
Calidad.CursorType = 0
Calidad.CursorLocation = 2
Calidad.LockType = 3
Calidad.Open()
Calidad_numRows = 0
%>
<%
set Temas = Server.CreateObject("ADODB.Recordset")
Temas.ActiveConnection = MM_dbflasef_STRING
Temas.Source = "SELECT * FROM Temas"
Temas.CursorType = 0
Temas.CursorLocation = 2
Temas.LockType = 3
Temas.Open()
Temas_numRows = 0
%>
<%
set Titulos = Server.CreateObject("ADODB.Recordset")
Titulos.ActiveConnection = MM_dbflasef_STRING
Titulos.Source = "SELECT * FROM Titulos_de_Trabajos"
Titulos.CursorType = 0
Titulos.CursorLocation = 2
Titulos.LockType = 3
Titulos.Open()
Titulos_numRows = 0
%>
<%
set Invitados = Server.CreateObject("ADODB.Recordset")
Invitados.ActiveConnection = MM_dbflasef_STRING
Invitados.Source = "SELECT * FROM Apellidos"
Invitados.CursorType = 0
Invitados.CursorLocation = 2
Invitados.LockType = 3
Invitados.Open()
Invitados_numRows = 0
%>
principal.gif
<%
Paises.Close()
%>
<%
Tipos.Close()
%>
<%
Calidad.Close()
%>
<%
Temas.Close()
%>
<%
Titulos.Close()
%>
<%
Invitados.Close()
%>