
06/05/2008, 14:06
|
| | Fecha de Ingreso: febrero-2008
Mensajes: 10
Antigüedad: 17 años, 2 meses Puntos: 0 | |
Re: Conexion a la BD Voy a separar el codigo en dos, ya que es muy grande y no lo puedo pegar de una....
Primera Parte:
<html>
<head>
<% ' FP_ASP -- ASP generado automáticamente por un componente de FrontPage. No lo modifique.
FP_CharSet = "windows-1252"
FP_CodePage = 1252 %>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Meses</title>
</head>
<%
Meses=request.Form("Meses")
STORE=request.Form("STORE")
%>
<body>
<div align="center">
<center>
<div align="center">
<center>
<div align="center">
<center>
<form BOTID="4" METHOD="POST" action="T_espera.asp">
<input type="hidden" name="fpdbr_4_PagingMove" value=" |< ">
<table BORDER="0" width="770">
<tr>
<td width="41" align="center" bgcolor="#FFECD9">
<font face="Arial" size="2"><b>MES</b></font></td>
<td width="160" align="center" bgcolor="#FFECD9"><nobr>
<!--webbot bot="DatabaseRegionStart" s-columnnames="Meses,Num" s-columntypes="202,5" s-dataconnection="ATP" b-tableformat="FALSE" b-menuformat="TRUE" s-menuchoice="Meses" s-menuvalue="Meses" b-tableborder="TRUE" b-tableexpand="TRUE" b-tableheader="TRUE" b-listlabels="TRUE" b-listseparator="TRUE" i-listformat="0" b-makeform="FALSE" s-recordsource="Mes" s-displaycolumns="Meses" s-criteria s-order s-sql="SELECT * FROM Mes" b-procedure="FALSE" clientside suggestedext="asp" s-defaultfields s-norecordsfound="Ningún registro devuelto." i-maxrecords="256" i-groupsize="0" botid="5" u-dblib="../_fpclass/fpdblib.inc" u-dbrgn1="../_fpclass/fpdbrgn1.inc" u-dbrgn2="../_fpclass/fpdbrgn2.inc" preview=" <span style="color: rgb(0,0,0); background-color: rgb(255,255,0)">Base de datos</span> " b-InForm="TRUE" b-UseDotNET="FALSE" CurrentExt sa-InputTypes b-DataGridFormat="FALSE" b-DGridAlternate="TRUE" sa-CritTypes b-WasTableFormat="FALSE" b-ReplaceDatabaseRegion="FALSE" startspan --><!--#include file="../_fpclass/fpdblib.inc"-->
<% if 0 then %>
<SCRIPT Language="JavaScript">
document.write("<div style='background: yellow; color: black;'>El componente Resultados de base de datos de esta página no puede mostrar el contenido de la base de datos. La página debe tener un nombre de archivo que termine en '.asp', y el Web debe encontrarse en un servidor que admita páginas Active Server.</div>");
</SCRIPT>
<% end if %>
<%
fp_sQry="SELECT * FROM Mes"
fp_sDefault=""
fp_sNoRecords="Ningún registro devuelto."
fp_sDataConn="ATP"
fp_iMaxRecords=256
fp_iCommandType=1
fp_iPageSize=0
fp_fTableFormat=False
fp_fMenuFormat=True
fp_sMenuChoice="Meses"
fp_sMenuValue="Meses"
fp_sColTypes="&Meses=202&Num=5&"
fp_iDisplayCols=1
fp_fCustomQuery=False
BOTID=5
fp_iRegion=BOTID
%>
<!--webbot bot="DatabaseRegionStart" endspan --><select NAME="Meses" SIZE="1">
<!--webbot bot="AspInclude" clientside u-incfile="../_fpclass/fpdbrgn1.inc" startspan --><!--#include file="../_fpclass/fpdbrgn1.inc"-->
<!--webbot bot="AspInclude" endspan -->
<option><%=FP_FieldHTML(fp_rs,"Meses")%></option>
<!--webbot bot="AspInclude" clientside u-incfile="../_fpclass/fpdbrgn2.inc" startspan --><!--#include file="../_fpclass/fpdbrgn2.inc"-->
<!--webbot bot="AspInclude" endspan -->
</select><!--webbot bot="DatabaseRegionEnd" b-tableformat="FALSE" b-menuformat="TRUE" u-dbrgn2="../_fpclass/fpdbrgn2.inc" i-groupsize="0" clientside preview=" <span style="color: rgb(0,0,0); background-color: rgb(255,255,0)">Resultados</span> " startspan --><!--webbot bot="DatabaseRegionEnd" endspan --></nobr></td>
<td width="115" align="center" bgcolor="#FFECD9">
<font face="Arial" size="2"><b>AÑO</b></font></td>
<td width="114" align="center" bgcolor="#FFECD9"><nobr>
<!--webbot bot="DatabaseRegionStart" s-columnnames="ano" s-columntypes="202" s-dataconnection="ATP" b-tableformat="FALSE" b-menuformat="TRUE" s-menuchoice="ano" s-menuvalue="ano" b-tableborder="TRUE" b-tableexpand="TRUE" b-tableheader="TRUE" b-listlabels="TRUE" b-listseparator="TRUE" i-listformat="0" b-makeform="FALSE" s-recordsource s-displaycolumns="ano" s-criteria s-order s-sql="SELECT distinct ano FROM T01_FINAL ORDER BY ANO DESC" b-procedure="FALSE" clientside suggestedext="asp" s-defaultfields s-norecordsfound="Ningún registro devuelto." i-maxrecords="256" i-groupsize="0" botid="6" u-dblib="../_fpclass/fpdblib.inc" u-dbrgn1="../_fpclass/fpdbrgn1.inc" u-dbrgn2="../_fpclass/fpdbrgn2.inc" preview=" <span style="color: rgb(0,0,0); background-color: rgb(255,255,0)">Base de datos</span> " b-InForm="TRUE" b-UseDotNET="FALSE" CurrentExt sa-InputTypes b-DataGridFormat="FALSE" b-DGridAlternate="TRUE" sa-CritTypes b-WasTableFormat="FALSE" startspan --><!--#include file="../_fpclass/fpdblib.inc"-->
<% if 0 then %>
<SCRIPT Language="JavaScript">
document.write("<div style='background: yellow; color: black;'>El componente Resultados de base de datos de esta página no puede mostrar el contenido de la base de datos. La página debe tener un nombre de archivo que termine en '.asp', y el Web debe encontrarse en un servidor que admita páginas Active Server.</div>");
</SCRIPT>
<% end if %>
<%
fp_sQry="SELECT distinct ano FROM T01_FINAL ORDER BY ANO DESC"
fp_sDefault=""
fp_sNoRecords="Ningún registro devuelto."
fp_sDataConn="ATP"
fp_iMaxRecords=256
fp_iCommandType=1
fp_iPageSize=0
fp_fTableFormat=False
fp_fMenuFormat=True
fp_sMenuChoice="ano"
fp_sMenuValue="ano"
fp_sColTypes="&ano=202&"
fp_iDisplayCols=1
fp_fCustomQuery=True
BOTID=6
fp_iRegion=BOTID
%>
<!--webbot bot="DatabaseRegionStart" endspan --><select NAME="ano" SIZE="1">
<!--webbot bot="AspInclude" clientside u-incfile="../_fpclass/fpdbrgn1.inc" startspan --><!--#include file="../_fpclass/fpdbrgn1.inc"-->
<!--webbot bot="AspInclude" endspan -->
<option><%=FP_FieldHTML(fp_rs,"ano")%></option>
<!--webbot bot="AspInclude" clientside u-incfile="../_fpclass/fpdbrgn2.inc" startspan --><!--#include file="../_fpclass/fpdbrgn2.inc"-->
<!--webbot bot="AspInclude" endspan -->
</select><!--webbot bot="DatabaseRegionEnd" b-tableformat="FALSE" b-menuformat="TRUE" u-dbrgn2="../_fpclass/fpdbrgn2.inc" i-groupsize="0" clientside preview=" <span style="color: rgb(0,0,0); background-color: rgb(255,255,0)">Resultados</span> " startspan --><!--webbot bot="DatabaseRegionEnd" endspan --></nobr></td>
<td align="center" bgcolor="#FFECD9"><b>
<font face="Arial" size="2">CAC</font></b></td>
<td align="center" bgcolor="#FFECD9"><nobr>
<!--webbot bot="DatabaseRegionStart" s-columnnames="STORE" s-columntypes="202" s-dataconnection="ATP" b-tableformat="FALSE" b-menuformat="TRUE" s-menuchoice="STORE" s-menuvalue="STORE" b-tableborder="TRUE" b-tableexpand="TRUE" b-tableheader="TRUE" b-listlabels="TRUE" b-listseparator="TRUE" i-listformat="0" b-makeform="FALSE" s-recordsource s-displaycolumns="STORE" s-criteria s-order s-sql="SELECT distinct STORE FROM T01_FINAL ORDER BY STORE" b-procedure="FALSE" clientside suggestedext="asp" s-defaultfields s-norecordsfound="Ningún registro devuelto." i-maxrecords="0" i-groupsize="0" botid="7" u-dblib="../_fpclass/fpdblib.inc" u-dbrgn1="../_fpclass/fpdbrgn1.inc" u-dbrgn2="../_fpclass/fpdbrgn2.inc" preview=" <span style="color: rgb(0,0,0); background-color: rgb(255,255,0)">Base de datos</span> " startspan --><!--#include file="../_fpclass/fpdblib.inc"-->
<% if 0 then %>
<SCRIPT Language="JavaScript">
document.write("<div style='background: yellow; color: black;'>El componente Resultados de base de datos de esta página no puede mostrar el contenido de la base de datos. La página debe tener un nombre de archivo que termine en '.asp', y el Web debe encontrarse en un servidor que admita páginas Active Server.</div>");
</SCRIPT>
<% end if %>
<%
fp_sQry="SELECT distinct STORE FROM T01_FINAL ORDER BY STORE"
fp_sDefault=""
fp_sNoRecords="Ningún registro devuelto."
fp_sDataConn="ATP"
fp_iMaxRecords=0
fp_iCommandType=1
fp_iPageSize=0
fp_fTableFormat=False
fp_fMenuFormat=True
fp_sMenuChoice="STORE"
fp_sMenuValue="STORE"
fp_sColTypes="&STORE=202&"
fp_iDisplayCols=1
fp_fCustomQuery=True
BOTID=7
fp_iRegion=BOTID
%>
<!--webbot bot="DatabaseRegionStart" endspan --><select NAME="STORE" SIZE="1">
<!--webbot bot="AspInclude" clientside u-incfile="../_fpclass/fpdbrgn1.inc" startspan --><!--#include file="../_fpclass/fpdbrgn1.inc"-->
<!--webbot bot="AspInclude" endspan -->
<option><%=FP_FieldHTML(fp_rs,"STORE")%></option>
<!--webbot bot="AspInclude" clientside u-incfile="../_fpclass/fpdbrgn2.inc" startspan --><!--#include file="../_fpclass/fpdbrgn2.inc"-->
<!--webbot bot="AspInclude" endspan -->
</select><!--webbot bot="DatabaseRegionEnd" b-tableformat="FALSE" b-menuformat="TRUE" u-dbrgn2="../_fpclass/fpdbrgn2.inc" i-groupsize="0" clientside preview=" <span style="color: rgb(0,0,0); background-color: rgb(255,255,0)">Resultados</span> " startspan --><!--webbot bot="DatabaseRegionEnd" endspan --></nobr></td>
<td align="center" bgcolor="#D7EBFF">
<input TYPE="submit" value="CONSULTAR"></td>
</tr>
</table>
</form> |