<%@ Language=VBScript %> <% Option Explicit Response.Expires = 0 'On Error Resume Next Dim dbPath dbPath = "e:\web\deficitdeat\htdocs\encuestas\encuestas.mdb" 'dbPath = "C:\Inetpub\wwwroot\test\encuestas\encuestas.mdb" Public Function CreateConnection(DBase) Set CreateConnection = Server.CreateObject("ADODB.Connection") CreateConnection.ConnectionTimeout = 0 CreateConnection.CommandTimeout = 0 CreateConnection.Open "Driver={Microsoft Access Driver (*.mdb)};" &_ "DBQ=" & DBase & ";" &_ "UID=Admin;" &_ "PWD=;" End Function Public Sub execQuery(query,rstRecords) Dim linkConnect Set linkConnect = CreateConnection(dbPath) rstRecords.Open query,linkConnect,3,3 End Sub Public Sub execCommand(query) Dim LinkConnect Set LinkConnect = CreateConnection(dbPath) LinkConnect.Execute(query) End Sub Dim strSQL Dim rs Set rs = Server.CreateObject("ADODB.Recordset") Dim educativo,familiar,farmacologico,social,TDAHadolescentesyadultos,otro strSQL = "SELECT * FROM encuesta WHERE id_encuesta = 2 AND id_opcion = 'educativo'" execQuery strSQL,rs educativo = rs.RecordCount rs.Close strSQL = "SELECT * FROM encuesta WHERE id_encuesta = 2 AND id_opcion = 'familiar'" execQuery strSQL,rs familiar = rs.RecordCount rs.Close strSQL = "SELECT * FROM encuesta WHERE id_encuesta = 2 AND id_opcion = 'farmacologico'" execQuery strSQL,rs farmacologico = rs.RecordCount rs.Close strSQL = "SELECT * FROM encuesta WHERE id_encuesta = 2 AND id_opcion = 'social'" execQuery strSQL,rs social = rs.RecordCount rs.Close strSQL = "SELECT * FROM encuesta WHERE id_encuesta = 2 AND id_opcion = 'TDAHadolescentesyadultos'" execQuery strSQL,rs TDAHadolescentesyadultos = rs.RecordCount rs.Close strSQL = "SELECT * FROM encuesta WHERE id_encuesta = 2 AND id_opcion = 'otro'" execQuery strSQL,rs otro = rs.RecordCount rs.Close Set rs = Nothing 'Obtener el mayor, máximo 250 pixels Dim mayor mayor = educativo If familiar > mayor Then mayor = familiar If farmacologico > mayor Then mayor = farmacologico If social > mayor Then mayor = social If TDAHadolescentesyadultos > mayor Then mayor = TDAHadolescentesyadultos If otro > mayor Then mayor = otro %> AMDAHTA

En nuestro próximo congreso prefieres un énfasis en lo:
Total: <%=educativo + familiar + farmacologico + social + TDAHadolescentesyadultos + otro%>  
Educativo: <%=educativo%>
Familiar: <%=familiar%>
Farmacológico: <%=farmacologico%>
Social: <%=social%>
TDAH Adolescentes y adultos: <%=TDAHadolescentesyadultos%>
Otro: <%=otro%>

Cerrar ventana