De Yuri para ALEX

BlancaYuri · #1 (**permalink**) 02/07/2002, 14:43

<%@ 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)
%>



<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>

BlancaYuri · #2 (**permalink**) 02/07/2002, 14:45

<%
Response.Expires = 60
Response.ExpiresAbsolute = Now()-1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"
%>
<%
Dim SQL, conn, rs, fechaini, fechafin
'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)
%>

<HTML>
<HEAD>
<style>
.vic {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 9px;
font-style: normal;
color: #003366;
}
</style>
<TITLE>Query1.asp</TITLE>
</HEAD>
<%
set rs = Server.CreateObject("ADODB.Recordset")
' Llenamos la tabla Status '
'---------------------------'
'SQL="Delete * from Status
SQL="insert into Status (Select MEANING, count(*) From P1_ORDENES_COMPLETADAS) where DATE_COMPLETED between '"& fechaini &"' and '"& fechafin &"' group by MEANING, order by MEANING)"""
'SQL="Insert into STATUS ("& MEANING &") values ('" & Completed &"')"
rs.open SQL, conn
if not rs.eof then
MEANING = rs("MEANING")
end if
rs.close
rs.nothing
SQL.close
SQL.nothing
Conn.close
Conn.nothing
%>
<%
Randomize
Valor1=Int(MEANING * 100) +1
Valor2=Int(QUANTITY * 100) +1
%>

<FONT FACE=Arial SIZE=2 COLOR=#000000><B>Resultados</B></FONT><BR>

<TABLE BGCOLOR=#000000 WIDTH=760px BORDER=0 CELLPADDING=0 CELLSPACING=0 HEIGHT=4px>
<TR>
<TD ALIGN=RIGHT WIDTH=100px><FONT FACE=Arial SIZE=2 COLOR=#FFFFFF><B>Mercado</B></FONT></TD>
<TD WIDTH=2px></TD>
<TD ALIGN=LEFT WIDHT=200px><IMG SRC=../cuadro_azul.gif WIDTH=<% =valor1 %>px HEIGHT=4px><img src=../cuadro_rojo.gif width=<%=100 - Valor1 %>px height=4px</TD>
<TD ALIGN=LEFT WIDHT=200px><FONT FACE=Arial SIZ

BlancaYuri · #3 (**permalink**) 02/07/2002, 14:48

<TD ALIGN=LEFT WIDHT=200px><FONT FACE=Arial SIZE=2 COLOR=#FFFFFF><B><%valor1%>%</B></FONT></TD>
<TD WIDTH=2px></TD>
<TD WIDTH=520px> </TD>
</TR>
</TABLE>

<TABLE BGCOLOR=#000000 WIDTH=760px BORDER=0 CELLPADDING=0 CELLSPACING=0 HEIGHT=4px>
<TR>
<TD ALIGN=RIGHT WIDTH=100px><FONT FACE=Arial SIZE=2 COLOR=#FFFFFF><B>Cantidad</B></FONT></TD>
<TD WIDTH=2px></TD>
<TD ALIGN=LEFT WIDHT=200px><IMG SRC=../cuadro_rojo.gif WIDTH=<% = Valor2 %>px HEIGHT=4px><img src=../cuadro_azul.gif width==<% =100 - valor2 %><px heigth=4px>/TD>
<TD ALIGN=LEFT WIDHT=200px><FONT FACE=Arial SIZE=2 COLOR=#FFFFFF><B><% Valor2 %>%</B></FONT></TD>
<TD WIDTH=2px></TD>
<TD WIDTH=520px> </TD>
</TR>
</TABLE>