pagina fecha_solicitud.asp: En esta pagina se muestra un formulario a través del cual el usuario por medio de un list/menú escoge el tipo de informe (Poryecto, O/M o Factibilidad) y a través de dos calendarios el usuario escoge dos fechas las cuales van hacer el rango para mostrar el informe.
Código: En esta página no hay problema, la muestro para ser más especifica.
<form name="form1" method="post" action="gener_solicitud.asp">
<p align="center"></p>
<table cellspacing=0 cellpadding=2 width=466 border=0>
<td width="468" valign=top class="frame" ><fieldset>
<legend><span class="Estilo33">>></span><span class="Estilo25">Datos del Usuario</span><span class="Estilo33">>></span></legend>
<table cellspacing=0 cellpadding=2 width=460 border=0>
<tbody>
<tr>
<td colspan="3" class=prompt><div align="center">
<p><strong><span class="Estilo18">Introduzca el rango de fechas.</span> </strong></p>
</div></td>
</tr>
<tr>
<td colspan="3" class=prompt align="center"><table width="454" border="0">
<tr>
<td width="205"><div align="right"><span class="Estilo18">Tipo de Solicitud</span></div></td>
<td width="239">
<select name="ipo" id="Tipo">
<option>Elegir uno...</option>
<option>Proyecto</option>
<option>O/M</option>
<option>Factibilidad</option>
</select>
</td>
</tr>
</table></td>
</tr>
<tr>
<td height="22" colspan="4" class=prompt>
<table width="452" border="0">
<tr>
<td width="221"><div align="right">
<input type="text" name="Frango1" id="Frango1" />
<input name="button" type="button" id="lanzador" value="..." />
</div></td>
<td width="195"><div align="right">
<input type="text" name="Frango2" id="Frango2" />
<input name="button2" type="button" id="lanzador1" value="..." />
</div></td>
<td width="22"> </td>
</tr>
</table></td></tr>
<script type="text/javascript">
Calendar.setup({
inputField : "Frango1", // id del campo de texto
ifFormat : "%d/%m/%Y", // formato de la fecha que se escriba en el campo de texto
button : "lanzador" // el id del botón que lanzará el calendario
});
</script>
<script type="text/javascript">
Calendar.setup({
inputField : "Frango2", // id del campo de texto
ifFormat : "%d/%m/%Y", // formato de la fecha que se escriba en el campo de texto
button : "lanzador1" // el id del botón que lanzará el calendario
});
</script>
<tr>
<td colspan="3" class=prompt align="center"><input name="Submit" type="submit" class="Estilo18" value="Editar"></td>
</tr>
<tr>
<td height="22" colspan="4" class=prompt><div align="right"></div>
<div align="right"></div>
<div align="right"></div></td>
</tr>
</tbody>
</table>
</fieldset></td>
</table>
</form>
Por otra parte existe la página gener_solicitud.asp que es la que recibe los tres valores antes mencionados (2 fechas y el tipo de informe). De acuerdo al tipo de informe especificado en fecha_solicitud.asp la página gener_solicitud a través de if muestra el que correponde a dicho tipo.
La pagina gener_solicitud no muestra nada, ni siquiera un error nada mas muestra una pantalla en blanco.
Código:
<body>
<%
Dim Conex86,strSQL86,array_texto,array_t
Tipo=Request.form("Tipo")
Frango1=Request.form("Frango1")
Frango2=Request.form("Frango2")
array_texto=split(Frango1,"/",-1,1)
Fpe=array_texto(1)+"/"+array_texto(0)+"/"+array_texto(2)
array_t=split(Frango2,"/",-1,1)
Fpo=array_t(1)+"/"+array_t(0)+"/"+array_t(2)
'Conexión a base de datos
Set Conex86 = Server.CreateObject("ADODB.Connection")
Conex86.Open strcon
%>
<%
'informe tipo proyecto
If (Tipo="Proyecto") then
strSQL86 = "SELECT * FROM solproy where Fecha between #"&Fpe&"# and #"&Fpo&"#"
Set objRS37= Conex86.Execute(strSQL86)
%>
<table width="672" border="0">
<tr>
<td width="298"><img src="images/Logotipo_EDC.GIF" width="298" height="71" /></td>
<td width="171"> </td>
<td width="195"><div align="right"><img src="images/logo_sicorp1.gif" width="85" height="67" /></div></td>
</tr>
</table>
<table align="left" cellspacing="2" cellpadding="2" border="0" width="680">
<tr>
<td colspan="10"> </td>
</tr>
<tr>
<td colspan="10"><div align="center" class="Estilo2">INFORME DE SOLICITUDES DE PROYECTO PARA EL GRUPO DE PLANIFICACIÓN DE LA RED DE DISTRIBUCIÓN ELECTRICA REGIÓN GUARENAS-GUATIRE.</div></td>
</tr>
<tr>
<td colspan="10"><hr></td>
</tr>
<tr>
<td width="21" align="center"><div class="Estilo7">Id</div></td>
<td width="45" align="center"><div class="Estilo7">Fecha Entrada</div></td>
<td width="37" align="center"><div class="Estilo7">N° Aviso</div></td>
<td width="52" align="center"><div class="Estilo7">N° Proyecto</div></td>
<td width="49" align="center"><div class="Estilo7">Fecha Inicial</div></td>
<td width="44" align="center"><div class="Estilo7">Fecha Final</div></td>
<td width="54" align="left"><div class="Estilo7">Nombre Proyecto</div></td>
<td width="72" align="left"><div class="Estilo7">Dirección</div></td>
<td width="250" align="left"><div class="Estilo7">Requerimientos</div></td>
</tr>
<%
while (not objRS37.eof)
Response.Write("<tr><td class=""Estilo3"">" & objRS37("Id") & "</td><td class=""Estilo3"">" & objRS37("Fecha") & "</td><td class=""Estilo3"">" & objRS37("Aviso") & "</td><td class=""Estilo3"">" & objRS37("Proyecto") & "</td><td class=""Estilo3"">" & objRS37("Fpi") & "</td><td class=""Estilo3"">" & objRS37("Fpf") & "</td><td class=""Estilo3"">" & objRS37("Nproyecto") & "</td><td class=""Estilo3"">" & objRS37("Direccion") & "</td><td class=""Estilo3"">" & objRS37("Requerimiento") & "</td></tr>")
objRS37.MoveNext
wend
%>
<tr>
<td colspan="10"><hr></td>
</tr>
</table>
<%
'informe tipo O/M
elseIf (Tipo="O/M") then
strSQL86 = "SELECT * FROM solis where Fecha between #"&Fpe&"# and #"&Fpo&"#"
Set objRS37= Conex86.Execute(strSQL86)
%>
<table width="672" border="0">
<tr>
<td width="298"><img src="images/Logotipo_EDC.GIF" width="298" height="71" /></td>
<td width="171"> </td>
<td width="195"><div align="right"><img src="images/logo_sicorp1.gif" width="85" height="67" /></div></td>
</tr>
</table>
<table align="left" cellspacing="2" cellpadding="2" border="0" width="680">
<tr>
<td colspan="10"> </td>
</tr>
<tr>
<td colspan="10"><div align="center" class="Estilo2">INFORME DE SOLICITUDES DE O/M PARA EL GRUPO DE PLANIFICACIÓN DE LA RED DE DISTRIBUCIÓN ELECTRICA REGIÓN GUARENAS-GUATIRE.</div></td>
</tr>
<tr>
<td colspan="10"><hr></td>
</tr>
<tr>
<td width="35" align="center"><div class="Estilo7">Id</div></td>
<td width="51" align="center"><div class="Estilo7">Fecha Entrada</div></td>
<td width="65" align="center"><div class="Estilo7">Nombre Proyecto</div></td>
<td width="165" align="left"><div class="Estilo7">Dirección</div></td>
<td width="332" align="left"><div class="Estilo7">Observaciones</div></td>
</tr>
<%
while (not objRS37.eof)
Response.Write("<tr><td class=""Estilo3"">" & objRS37("Id") & "</td><td class=""Estilo3"">" & objRS37("Fecha") & "</td><td class=""Estilo3"">" & objRS37("Nproyecto") & "</td><td class=""Estilo3"">" & objRS37("Direccion") & "</td><td class=""Estilo3"">" & objRS37("Requerimiento") & "</td></tr>")
objRS37.MoveNext
wend
%>
<tr>
<td colspan="10"><hr></td>
</tr>
</table>
<%
'informe tipo factibilidad
elseIf (Tipo="Factibilidad") then
strSQL86 = "SELECT * FROM solcom where Fecha between #"&Fpe&"# and #"&Fpo&"#"
Set objRS37= Conex86.Execute(strSQL86)
%>
...........(aui va un código igual a los 2 anteriores, pero no lo coloco porque me sale que el texto es muy largo)
%>
<tr>
<td colspan="10"><hr></td>
</tr>
</table>
<%end if%>
<%
Conex86.Close
set strSQL86 = nothing
set objRS37 = nothing
%>
</body>
Nota: se que mi problema es que tengo código asp dentro de código asp, pero especificamente no se donde esta el problema.
.Gracias