<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\temp\CURSOSINTRA2012.mdb")) set rs=createobject("ADODB.Recordset") SQL = "SELECT COUNT(*) as [numero1] FROM tallerL where grupo = 'Grupo1'" Set rs1 = Conn.Execute(SQL) SQL = "SELECT COUNT(*) as [numero2] FROM tallerL where grupo = 'Grupo2'" Set rs2 = Conn.Execute(SQL) SQL = "SELECT COUNT(*) as [numero3] FROM tallerL where grupo = 'Grupo3'" Set rs3 = Conn.Execute(SQL) 'RS.Close %>
Curso Teórico Práctico de Iniciación en Laparoscopía
(SELECCIONE UNO DE LOS GRUPOS)
Grupo 1: <%if (15-(rs1("numero1"))> 0 ) then%> <%End If%> Teórico: 09.00 a 10.20 Práctico: 10.20 a 11.20 <%if (15-(rs1("numero1"))< 1 ) then%> Actualmente sin Vacantes disponibles. <%else%> Vacantes Disponibles: <%response.write 15-(rs1("numero1"))%> <%End If%>
Grupo 2: <%if (15-(rs2("numero2"))>0 ) then%> <%End If%> Teórico: 09.00 a 10.20 Práctico: 11.40 a 12.40 <%if (15-(rs2("numero2"))< 1 ) then%> Actualmente sin Vacantes disponibles. <%else%>Vacantes Disponibles: <%response.write 15-(rs2("numero2"))%> <%End If%>
Grupo 3: <%if (15-(rs3("numero3"))>0 ) then%> <%End If%> Teórico: 09.00 a 10.20 Práctico: 13.00 a 14.00 <%if (15-(rs3("numero3"))< 1 ) then%> Actualmente sin Vacantes disponibles. <%else%>Vacantes Disponibles: <%response.write 15-(rs3("numero3"))%> <%End If%>
   
 Apellido:
 Nombre:
 Especialidad:
 Email:

   Nro.