ANTES QUE NADA AGRADEZCO LA ATENCION Y TE ANEXO LOS ARCHIVOS, LO QUE REALMENTE QUIERO ES HACER UNA BUSQUEDA PONIENDO DOS VARIABLES FECHA y VOLTAJE O VOLTAJE Y ATT SELECCIONANDOLOS A AMBOS DESDE UN COMBO A CADA UNO PARA PODER HACER LAS COMBINACIONES NECESARIOS
SIN MAS RECIBE SALUDOS
archivo Novedades.asp
<td><p align="center"> </p>
<p align="center"><font color="#FFFFFF" face="tahoma">Seleccione una opción
para Iniciar la Busqueda</font></p>
<FORM METHOD="POST" ACTION="Busqueda_novedades1.asp?region=RTS">
<div align="center">
<table width="75%" border="0">
<tr>
<td width="20%"><div align="center"> <em><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><font color="#FFFF00">
<label>
<input name="OpcBuscar" type="radio" value="att" checked>
Area</label>
</font></font></em></div></td>
<td width="20%"><div align="center"> <em><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><font color="#FFFF00">
<label>
<input type="radio" name="OpcBuscar" value="voltaje">
Voltaje Líneas </label>
</font></font></em></div></td>
<td width="20%"><div align="center"> <em><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><font color="#FFFF00">
<label>
<input type="radio" name="OpcBuscar" value="fecha">
Fecha</label>
(DD-MM-AAAA) </font></font></em></div></td>
</tr>
<tr>
<td height="45" colspan="3"><div align="center">
<input type="text" name="valor" size="20">
<input type="submit" value="Ejecutar" name="submit">
</div></td>
Busqueda_novedades1.asp
<HTML>
<HEAD>
<TITLE>Lectura de registros de una tabla</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></HEAD>
<BODY bgcolor="#024c69">
<h1>
<div align="center"><font color="#FFFFFF" size="4" face="Verdana">Resultado
de la Busqueda</font></div>
</h1>
<div align="left"><br>
<br>
<%
Valor=Request.Form("valor")
NombreRegion=Request.Querystring("region")
Criterio = Request.Form("OpcBuscar")
Dim oConn ' Declaro la variable
set oConn=Server.CreateObject("ADODB.Connection")
oConn.Open "DSN=Reportes"
sSQL="Select * From TablaPrincipal WHERE " & Criterio & " = '" & valor & "' Order By att"
'Ejecutamos la orden
set RS = oConn.Execute(sSQL)
%>
</div>
<div align="center">
<table width="981" align="left" bordercolor="#FFFFFF">
<tr bordercolor="#FFFFFF" bgcolor="#0000FF">
<th width="53"><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif">Area</font></th>
<th width="59"><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif">Fecha</font></th>
<th width="53"><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif">Hora</font></th>
<th width="69"><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif">Duración</font></th>
<th width="57"><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif">Equipo</font></th>
<th width="68"><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif">Eq1</font></th>
<th width="176"><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif">Descripción de la Falla</font></th>
<th width="175"><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif">Causa / Solución</font></th>
<th width="98"><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif">Protecciones Operadas</font>
<th width="69"><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif">Carga Afectada</font>
<th width="56"><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif">Voltaje</font>
<font size="2" face="Verdana, Arial, Helvetica, sans-serif">
</font></tr>
<%
'Mostramos los registros
Do While Not RS.Eof
%>
<tr valign="top" bgcolor="#2563AD">
<td width="53" height="39"><font color="#FFFFFF" size="1" face="tahoma"><%=RS("att")%></font></td>
<td width="59"><div align="center"><font color="#FFFFFF" size="1" face="tahoma"><%=RS("fecha")%></font></div></td>
<td width="53"><div align="center"><font color="#FFFFFF" size="1" face="tahoma"><%=RS("hora")%></font></div></td>
<td width="69"><div align="center"><font color="#FFFFFF" size="1" face="tahoma"><%=RS("duracion")%></font></div></td>
<td width="57"><div align="center"><font color="#FFFFFF" size="1" face="tahoma"><%=RS("equipo")%></font></div></td>
<td width="68"><div align="center"><font color="#FFFFFF" size="1" face="tahoma"><%=RS("eq1")%></font></div></td>
<td width="176"><div align="left"><font color="#FFFFFF" size="1" face="tahoma"><%=RS("descripcion")%></font></div></td>
<td width="175"><p><font color="#FFFFFF" size="1" face="tahoma"><%=RS("causa_solucion")%></font></p>
<td width="98"><div align="center"><font color="#FFFFFF" size="1" face="tahoma"><%=RS("protecciones operadas")%></font></div></td>
<td width="69"><div align="center"><font color="#FFFFFF" size="1"><font face="tahoma"><%=RS("carga_afectada")%></font></font></div></td>
<td width="56"><div align="center"><font color="#FFFFFF" size="1"><font face="tahoma"><%=RS("voltaje")%></font></font></div></td>
</tr>
<tr>
<td><%RS.MoveNext
Loop
'Cerramos el sistema de conexion
oConn.Close
%>