05/08/2005, 14:40
|
| | | Fecha de Ingreso: julio-2005
Mensajes: 128
Antigüedad: 19 años, 9 meses Puntos: 0 | |
| <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="../Connections/ConFactura.asp" -->
<!--#include file="../Connections/ConD84.asp" -->
<%
'selecciono el rs que va a recorrer la tabla de facturas
Dim rs, sqlr
Dim rs2,sqlr2
Dim cmdUpDate, sqlUp
Set cmdUpDate = Server.CreateObject("ADODB.Command")
Set rs = Server.CreateObject("ADODB.Recordset")
Set rs2 = Server.CreateObject("ADODB.Recordset")
sqlr= "SELECT Articulo FROM FacturaP WHERE Bandera='" & 0 & "'"
rs.Open sqlr, MM_ConFactura_STRING
dim miTabla
miTabla = rs.GetRows
rs.Close
set rs = nothing
MM_ConFactura_STRING.Close
set MM_ConFactura_STRING = nothing
if isarray(mitabla) then
response.write(uBound(mitabla,2))
end if
response.end
%> |