Hola a todos
he estado intentando crear un resumen sobre los datos de mis pedidos para q queden como un resumen y no me muestre todos los datos que un vendedor ingresa, aqui les muestro una imagen de ejemplo:
para lograrlo, estoy utilizando este codigo
Código:
<%
codigox = "Pendiente"
set mertbaglan = Server.CreateObject("ADODB.Connection")
mertbaglan.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("pedidos.mdb"))
set mertgaleri = server.createobject("adodb.recordset")
IdMensaje = Request.QueryString("act")
usuario = Trim(Request.Cookies("brunettcliente")("usuario"))
galeriSirala = 1
tablo = "Select distinct ref, color from detalle WHERE xcodigo='"&codigox&"'"
Titulo = "Linea Dama"
mertgaleri.pagesize = 12000
mertgaleri.open tablo,mertbaglan,1,3
If mertgaleri.EOF Then
%>
<center>No has Agregado ningun producto!</center>
<%Else
if request.QueryString("s")="" or request.querystring("s")=0 then
s=1
else
s=request.QueryString("s")
end if
mertgaleri.AbsolutePage = s
ref = mertgaleri("ref")
%>
<%=mertgaleri("ref")%> - <%=mertgaleri("color")%>:
<%
set rs2 = Server.CreateObject("ADODB.Connection")
rs2.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("pedidos.mdb"))
set rs2 = server.createobject("adodb.recordset")
' otra consulta ya sin registros repetidos
SQL = "Select * from detalle where ref = "& CInt(mertgaleri("ref")) &""
rs2.Open SQL, oConn,3,1
T27 = 0
T28 = 0
T29 = 0
T30 = 0
do while not rs2.eof
T27 = T27 + rs2("27")
T28 = T28 + rs2("28")
T29 = T29 + rs2("29")
T30 = T30 + rs2("30")
rs2.Movenext
loop
%>
<%=T27%> - <%=T28%> - <%=T29%> - <%=T30%><br />
<%
end if
%>
pero cuando lo intento abrir me sale el error:
Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A005E)
Uso no válido de Null: 'CInt'
/asp/mhl/xxxx.asp, línea 41
alguien que me pueda ayudar, please!!
Gracias a todos!