Error: Invalid use of Null: 'CSng'

21/09/2004 - 16:38 por Jeronimo Lorenzo | Informe spam

Hola gente, hace un dia que no puedo solucionar este error, les pido por
favor su ayuda.
La funcion que les voy a transcribir al final me la ayudo a armarla Matias
Iacono de esta lista (yo no soy experto aclaro). Ocure que andaba todo bien
hasta que yo en la linea 10 edite agregando & " - Comentarios: " al
contenido de la linea ya existente, y a partir de ahi me sale este error:

Microsoft VBScript runtime error '800a005e'

Invalid use of Null: 'CSng'

/default.asp, line 12

Luego borre lo que agregue y igual sigue el error, mi BD es Access aclaro.
Como puedo solucionar esto ???

Gracias miles !!!
JL

function ShowItemsInCart()
Dim Key
Dim aParameters ' as Variant (Array)
Dim sTotal, sShipping
dim strResultado

1 sTotal = 0
2 For Each Key in dictCart
3 aParameters = GetItemParameters(Key)
4 'Codigo cambiado... Lo que hago aca es pasar todo a una variable
separando con -
5 'cada elemento, y con doble // cada linea... o sea que cada producto
quedaria algo asi:
6 'LLAVE;PARAMETRO1;LLAVE DEL CARRO;PARAMETRO2;NUMERO;; SIGUIENTE PRODUCTO
7 if len(trim(strResultado)) = 0 then
8 strResultado = aParameters(1) & " - Cantidad: " & dictCart(Key)
9 else
10 strResultado = strResultado & " *** " & aParameters(1) & " - Cantidad: "
&dictCart(Key)
11 end if
12 sTotal = sTotal + (dictCart(Key) * CSng(aParameters(2)))
13 Next
14 'Aplico la funcio Replace para que los insumos seleccionados se vean de
a uno por renglón
15 ShowItemsInCart = Replace(strResultado,"*** ",vbCrLf)
16 'Si quieres obtener esta parte tendrias que transformar a sTOTAL en
global
17 'y podrias accederla desde cualquier lado
18 If sTotal <> 0 Then
19 sShipping = 7.5
20 Else
21 sShipping = 0
22 End If
23 sTotal = sTotal + sShipping
24 End function

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Matias Iacono

21/09/2004 - 17:04 | Informe spam

Hola Jeronimo... postea la funcion dictCart o el objeto... no recuerdo
que es...

Aparentemente la llave que se le pasa no existe.

Saludos

Matias Iacono
Microsoft MVP

"Jeronimo Lorenzo" wrote in message
news:eOfZOl%
Mostrar la cita
bien
Mostrar la cita
PRODUCTO
Mostrar la cita
"
Mostrar la cita
de
Mostrar la cita

Responder a este mensaje

#2 Jeronimo Lorenzo

21/09/2004 - 17:09 | Informe spam

Matias, gracias de verdad, estoy perdido :(

Aqui va toda la pagina default.asp (perdon), y te agradezco publicamente tu
buena voluntad como siempre.

Saludos !!! JL

<%@Language = "VBScript"%>



<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#CCCCFF" leftmargin=0 topmargin=0>
<%
'Log de la visita con fecha, hora, IP y dominio
Dim fecha,hora,ip,dominio,url

'tomo el instante de entrada.
fecha = date
hora = time
'con esta variable de servidor, consigo la direccion IP de donde vino el
visitante y demas datos
ip = Request.ServerVariables("REMOTE_HOST")
dominio = Request.ServerVariables("HTTP_HOST")
url = Request.ServerVariables("HTTP_REFERER") 'Me dice la URL del link
proviene el visitante

'Agregamos el nuevo dato.
DB.Execute "INSERT INTO log_visita_index (fecha,hora,ip,dominio,url) VALUES
('"&fecha&"','"&hora&"','"&ip&"','"&dominio&"','"&url&"')"

'Cerramos y limpiamos los objetos.
'RS.Close
%> <%
Sub AddItemToCart(iItemID, iItemCount)
If dictCart.Exists(iItemID) Then
dictCart(iItemID) = dictCart(iItemID) + iItemCount
Else
dictCart.Add iItemID, iItemCount
End If
End Sub

Sub RemoveItemFromCart(iItemID, iItemCount)
If dictCart.Exists(iItemID) Then
If dictCart(iItemID) <= iItemCount Then
dictCart.Remove iItemID
Else
dictCart(iItemID) = dictCart(iItemID) - iItemCount
End If
Else
Response.Write "Couldn't find any of that item your cart.<BR><BR>" &
vbCrLf
End If
End Sub

function ShowItemsInCart()
Dim Key
Dim aParameters ' as Variant (Array)
Dim sTotal, sShipping
dim strResultado

sTotal = 0
For Each Key in dictCart
aParameters = GetItemParameters(Key)

'Codigo cambiado... Lo que hago aca es pasar todo a una variable separando
con -
'cada elemento, y con doble // cada linea... o sea que cada producto
quedaria algo asi:
'LLAVE;PARAMETRO1;LLAVE DEL CARRO;PARAMETRO2;NUMERO;; SIGUIENTE PRODUCTO

if len(trim(strResultado)) = 0 then
strResultado = aParameters(1) & " - Cantidad: " & dictCart(Key)
else
strResultado = strResultado & " *** " & aParameters(1) & " - Cantidad: "
&dictCart(Key)
end if
sTotal = sTotal + (dictCart(Key) * CSng(aParameters(2)))
Next

'Aplico la funcio Replace para que los insumos seleccionados se vean de a
uno por renglón
ShowItemsInCart = Replace(strResultado,"*** ",vbCrLf)

'Si quieres obtener esta parte tendrias que transformar a sTOTAL en global
'y podrias accederla desde cualquier lado
If sTotal <> 0 Then
sShipping = 7.5
Else
sShipping = 0
End If
sTotal = sTotal + sShipping

End function
%>
<table width="600" border="0" cellspacing="0" cellpadding="0">
<tr align="left" valign="bottom">
<td><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"
codebase="http://download.macromedia.com/pub/...swflash.ca
b#version=4,0,2,0" width="150" height="100">
<param name=movie value="http://www.torrana.com.ar/images/lo...">
<param name=quality value=high>
<embed src="http://www.torrana.com.ar/images/logo.swf" quality=high
pluginspage="http://www.macromedia.com/shockwave...i?P1_Prod_
Version=ShockwaveFlash" type="application/x-shockwave-flash" width="150"
height="100">
</embed>
</object>
<td width="600" align="left" valign="top"
colspan="2">          &nbs
p;            &n
bsp;            
            &nbs
p;            &n
bsp;            
            &nbs
p;    <img
src="http://www.torrana.com.ar/images/argxx.gif" width="85"
height="142"></td>
</tr>
</table>
<br>
<br>
<table width="600" border="0" cellspacing="0" cellpadding="0">
<tr bgcolor="#000000">
<td height="6" colspan="2"><b><font color="#FFFFFF" face="Verdana,
Arial, Helvetica, sans-serif" size="2"> Torrana
S.A. - Insumos Médicos Hospitalarios
<br> Importaciones     Exportaciones &nbs
p;   Venta en toda la Argentina</font></b></td>
</tr>

<td width="600" align="left" valign="top" colspan="2">
<p> </p>
<p><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><br>
 <img src="http://www.torrana.com.ar/images/ch....gif"
width="10" height="10"> <a
href="http://www.torrana.com.ar/search_it...>Buscar
por nombre de insumo</a>  <img
src="http://www.torrana.com.ar/images/ch....gif" width="10"
height="10"> <a
href="http://www.torrana.com.ar/browse_it...>Buscar
insumos por categorías</a>  <img
src="http://www.torrana.com.ar/images/ch....gif" width="10"
height="10"> <a
href="http://www.torrana.com.ar/default.a...ot;>Ver
su pedido</a></font></p>
<p><font face="Verdana, Arial, Helvetica, sans-serif"
size="2"> <img src="http://www.torrana.com.ar/images/ch....gif"
width="10" height="10"> <a
href="http://www.torrana.com.ar/quienes.h...gt;Quienes
somos</a>  <img
src="http://www.torrana.com.ar/images/ch....gif" width="10"
height="10"> <a
href="http://www.torrana.com.ar/contacto....bsp;&n
bsp;<img src="http://www.torrana.com.ar/images/ch....gif" width="10"
height="10"> <a
href="http://www.torrana.com.ar/admin.asp...inistrador
</a>  <img
src="http://www.torrana.com.ar/images/ch....gif" width="10"
height="10"> <a
href="http://www.torrana.com.ar/default.a...t></
p>

<%

'Estos comandos eran para abrir la BD sin usar el archivo conx.inc
'Set Conn = Server.CreateObject("ADODB.Connection")
'Set Rs = Server.CreateObject("ADODB.Recordset")

'Conn.Open "DBQ=" & Server.Mappath("items.mdb") & ";Driver={Microsoft Access
Driver (*.mdb)};"

SQL = "SELECT ProductNum, Name, Price, ImageURL FROM Items"

rs.Open SQL, DB
rs.MoveFirst

Function GetItemParameters(iItemID)

rs.close
'Set Conn = Server.CreateObject("ADODB.Connection")
'Set Rs = Server.CreateObject("ADODB.Recordset")
'Conn.Open "DBQ=" & Server.Mappath("items.mdb") & ";Driver={Microsoft Access
Driver (*.mdb)};"
SQL = "SELECT * FROM Items WHERE ProductNum like '%" & iItemID & "%'"
rs.Open SQL, DB
rs.MoveFirst

Dim aParameters
aParameters = Array(rs("ImageURL"), rs("Name"), rs("Price"))
' Return array containing product info.
GetItemParameters = aParameters
End Function

%> <%
Dim dictCart ' as dictionary
Dim sAction ' as string
Dim iItemID ' as integer
Dim iItemCount ' as integer

If IsObject(Session("cart")) Then
Set dictCart = Session("cart")
Else

Set dictCart = Server.CreateObject("Scripting.Dictionary")
End If

sAction = CStr(Request.QueryString("action"))
'En la sentencia de abajo tuve problemas cuando el valor del item era un
entero de 5 digitos
'Me recomendaron usar conversores a tipos de datos mayores como el LONG o el
DOUBLE: clng() y cdbl()
iItemID = CInt(Request.QueryString("item"))
iItemCount = CInt(Request.QueryString("count"))
%> </font></p>
<font face="Verdana, Arial, Helvetica, sans-serif" size="2">
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0>
<TR>
<TD> <%

Select Case sAction
Case "add"
AddItemToCart iItemID, iItemCount
'Alejandro-start
Response.Write "<br><br><font face=Verdana, Arial, Helvetica, sans-serif
size=2><b> Su pedido de insumos hasta el momento </font><br><font
face=Verdana, Arial, Helvetica, sans-serif size=2 color=red><i> No
especifique las cantidades ahora sino al confirmar el
pedido</i></font></b><br>"
Response.Write "<textarea rows cols name=compra>" &
ShowItemsInCart() & "</textarea>"
'Alejandro-end
%> </TD>
</TR>
<tr>
<td><br>
<TR>
<TD ALIGN="right"> <A
HREF="http://www.torrana.com.ar/default.a...>Borrar el pedido de
insumos</A><BR><br>
<TR>
<TD ALIGN="right"> <A
HREF="http://www.torrana.com.ar/default.a...;>Confi
rmar el pedido de insumos</A><BR>
<%

Case "del"
'Borra todas las entradas del objeto diccionario dictCart
dictCart.RemoveAll

%> </TD>
</TR>

<%
Case "viewcart"

%> </TD>
</TR>
<TR>
<TR>
<TD ALIGN="right"> <A
HREF="http://www.torrana.com.ar/default.a...>Borrar el pedido de
insumos</A><BR><br>
</TR>
<TR>
<TD ALIGN="right"> <A
HREF="http://www.torrana.com.ar/default.a...;>Confi
rmar el pedido de insumos</A><BR>
</TR>
<%
'Alejandro-start
Response.Write "<font face=Verdana, Arial, Helvetica, sans-serif
size=2><br><b> Esta es su lista de pedidos de
insumos:</b></font><br><br>"
Response.Write "<textarea rows cols name=compra>" &
ShowItemsInCart() & "</textarea>"
'Alejandro-end
%>

<!--
<%
case "checkout"

'Response.Write "<font face=Verdana, Arial, Helvetica, sans-serif
size=2><br><b> Contenido final de su lista de pedidos<br><font
color=red> Ud. debe ingresar ahora las cantidades solicitadas de los
insumos seleccionados</b></font><br><br>"
'Response.Write "<textarea rows cols name=carro>" & ShowItemsInCart()
& "</textarea>"

%>

<!--
Esto es para probar guardar el contenido del carro en el cuadro de texto y
anduvo OK
<input type=text size name=carro value="<%=ShowItemsInCart()%>">

<br>

<form method="post" action="getform.asp">

<table align=right>
<TR>
<TD ALIGN="right"> <A
HREF="http://www.torrana.com.ar/default.a...>Borrar el pedido de
insumos</A><BR><br>
</TR>
</table>
<br><br><br>
<a name="checkout"></a> <font face="Verdana, Arial, Helvetica,
sans-serif" size="2"><b> Complete el formulario y envíe su pedido:
</b></font><br>
<hr size="1"><br>

<table width="600" border="0" cellspacing="0" cellpadding="4">

<tr>
<td width="584" align="left" valign="top"
colspan="2"><b><font face="Verdana, Arial, Helvetica, sans-serif"
size="2">Contenido Final de su Pedido de Insumos</font></b>
<br>
</tr>
<tr>
<td width="584" align="left" valign="top"
colspan="2"><b><font color="red" face="Verdana, Arial, Helvetica,
sans-serif" size="2"><i>Ud. ahora debe especificar las cantidades
solicitadas por cada insumo</i></font></b><br>
</tr>
<tr>
<td><textarea rows cols
name=carro><%=ShowItemsInCart()%></textarea>
</td>
</tr>

<tr>
<td width="584" align="left" valign="top"
colspan="2"><b><font face="Verdana, Arial, Helvetica, sans-serif"
size="2">Nombre y Apellido</font></b>
<br>
<input type="text" name="nombre" size="40">
</td>
</tr>
<tr>
<td width="584" align="left" valign="top"
colspan="2"><b><font face="Verdana, Arial, Helvetica, sans-serif"
size="2">Empresa
</font></b> <br>
<input type="text" name="empresa" size="40">
</td>
</tr>
<tr>
<td width="584" align="left" valign="top"
colspan="2"><b><font face="Verdana, Arial, Helvetica, sans-serif"
size="2">E-mail
</font></b> <br>
<input type="text" name="email" size="40">
</td>
</tr>
<tr>
<td width="584" align="left" valign="top"
colspan="2"><b><font face="Verdana, Arial, Helvetica, sans-serif"
size="2">Sitio Web</font></b>
<br>
<input type="text" name="url" size="40">
</td>
</tr>
<tr align="left" valign="top">
<td width="584" colspan="2"><b><font face="Verdana, Arial,
Helvetica, sans-serif" size="2">Teléfono</font></b>
<br>
<input type="text" name="tel" size="13" maxlength="13">
</td>
</tr>
<tr align="left" valign="top">
<td width="584" colspan="2"><b><font face="Verdana, Arial,
Helvetica, sans-serif" size="2">Fax</font></b>
<br>
<input type="text" name="fax" size="13" maxlength="13">
</td>
</tr>
<tr align="left" valign="top">
<td width="584" colspan="2"><b><font face="Verdana,
Arial, Helvetica, sans-serif" size="2">Lugar de entrega de su
pedido</font></b>
<br>
<input type="text" name="entrega" size="70">
</td>
</tr>
<tr align="left" valign="top">
<td width="584" colspan="2"><b><font face="Verdana,
Arial, Helvetica, sans-serif" size="2">Observaciones</font></b>
<br>
<input type="text" name="observ" size="70">
</td>
</tr>
</p>
<tr align="left" valign="top">
<td width="584" colspan="2">
<p><br>
<input type="reset" name="Clear" value="Borrar datos del
formulario">
<input type="submit" name="Submit" value="Enviar
pedido">
</p>
</td>
</tr>
</table>
</form>

<%
Case Else ' Shop
%> </TD>
</TR>
<TR>
<TD ALIGN="right"> </TD>
</TR>
</TABLE>
<%
End Select

Set Session("cart") = dictCart

%> </font>

<tr>
<td width="600" align="left" valign="top" colspan="2"> </td>
</tr>
<tr>
<td width="600" align="left" valign="top" colspan="2"> </td>
</tr>
<tr>
<td width="600" align="left" valign="top" colspan="2"> </td>
</tr>
<tr>
<td width="600" align="left" valign="top" colspan="2">
<p> </p>
<p> </p>
<hr>
</td>
</tr>
<tr>
<td width="600" align="left" valign="top" colspan="2" height="39">
<div align="center">
<p><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%
'Muestro la fecha y hora
Response.Write "<h5><center>"
Response.Write "Fecha y Hora: <b> "&Now&" </b><br>"

RS.Close

'Muestro el contador de visitas
'Me fijo si existe ya un registro en la tabla "contador"
'Si no existe lo creo
RS.Open "SELECT * FROM contador",DB,1
If RS.EOF then
DB.Execute "INSERT INTO contador (hits) VALUES (1)"
'Si existe el registro se aumenta en 1 el valor.
Else
DB.Execute "UPDATE contador SET hits="&(RS("hits")+1)&""
End IF

'La siguiente linea imprime la cantidad de hits.

Response.Write "    "
Response.Write "Cantidad de visitas: <b>"&RS("hits")&"</b>"
Response.Write "</h5></center>"
%> </font></p>
</div>
</td>
</tr>

<tr>
<td width="600" align="left" valign="top" colspan="2">
<div align="center">
<p><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><a
href="mailto:">Webmaster</a>
</font> </p>
</div>
</td>
</tr>
</table>

<p> </p>
<p> </p>
<p><br>
</p>
<center>
<font face="Verdana, Arial, Helvetica, sans-serif" size="2"><br>
<br>
</font>
</center>
<br>
</body>
</html>

"Matias Iacono" escribió en el mensaje
news:%23jPbhs%
Mostrar la cita
Matias
Mostrar la cita
error:
Mostrar la cita
aclaro.
Mostrar la cita
Cantidad:
Mostrar la cita

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida