02/07/2002, 14:43
|
| | | Fecha de Ingreso: junio-2002
Mensajes: 37
Antigüedad: 22 años, 10 meses Puntos: 0 | |
| De Yuri para ALEX
<%@ Language=VBScript %>
<%
Response.Expires = 60
Response.ExpiresAbsolute = Now()-1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"
%>
<%
'Conexion a la base de datos'
strCon = "driver={SQL Server};server=VECTRA;uid=sa;pwd=;database=Base&qu ot;
set conn = Server.CreateObject("ADODB.Connection")
conn.open(strCon)
%>
<%
fechaini= Cdate(Request("fechaini"))
fechafin= Cdate(Request("fechafin"))
fechaini = Day(fechaini) & "-" & Month(fechaini) & "-" & Year(fechaini)
fechafin = Day(fechafin) & "-" & Month(fechafin) & "-" & Year(fechafin)
%>
<!--#include file="includes/query1.asp"-->
<HTML>
<HEAD>
<style>
.vic {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 9px;
font-style: normal;
color: #003366;
}
</style>
<TITLE>Grafica1.asp</TITLE>
</HEAD>
<BODY bgcolor=99CCFF>
<table align="center" border=1 width="100%" class="vic">
<th>Meaning</th>
<th>Cantidad</th>
</tr>
<%
Do While Not Rs.EoF
%>
<tr>
<td><%=RS("MEANING")%>&n bsp;</td>
<td><%=RS("CANTIDAD")%>& nbsp;</td>
<td><%=Day(RS("DATE_COMPLETED") ) & "-" & Month(RS("DATE_COMPLETED")) & "-" & Year(RS("DATE_COMPLETED"))%>&nbsp ;</td>
</tr>
<%
RS.MoveNext
Loop
'Cerramos el sistema de conexion
Conn.Close
'Rs.Close
Set Rs = Nothing
%>
</table>
<br><br>
<div align="center"><a href=JavaScript:history.go();>Actualizar</a></div>
<div align="center"><a href="Status.asp">Ver grafica</a></div>
<div><a href="Principal.html"><= Regresar</a></div>
</BODY>
|