02/07/2002, 14:45
|
| | | Fecha de Ingreso: junio-2002
Mensajes: 37
Antigüedad: 22 años, 10 meses Puntos: 0 | |
| Re: De Yuri para ALEX
<%
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 |