type mismatch

[shank]

What is the proper use for CInt ..?
I get a type mismatch error whether I use it or not.
I assumed I needed it because I need to make sure Request("Qty") and
Request("Weight") were integers.

Also, does this loop structure appear to be correct. rsCart recordset is
just above this code.
thanks

<%
If Request("QtyUpdate") <> "" Then
Do While Not rsCart.EOF

varNewQty = CInt(Request("Qty")) <-- Type mismatch error

varNewWeight = varNewQty * CInt((rsCart.Fields.Item("Weight").Value))
Dim DataConn
Set DataConn = Server.CreateObject("ADODB.Connection")
DataConn.Open MM_GenKAccess_STRING
SQL = "UPDATE Cart SET Cart.Qty = '" & varNewQty & "', Cart.Weight = '" &
varNewWeight & "' WHERE Cart.OrderNo = '" & varOrderNo & "'"
DataConn.Execute(SQL)
Loop
Response.Redirect("cart.asp")
End If
%>

[Bã§TãRÐ]

Woah - why is your SQL statement in the loop? Everytime you iterate through the loop you run that SQL command - thats a serious performance issue.
Take all of this info out of the loop for one and see if that works.

I'm not sure what is happening above this so I dont know why your stuff is in the loop - post a little more so I can see what the page is doing

- Bastard

varNewQty = CInt(Request("Qty"))
varNewWeight = varNewQty * CInt((rsCart.Fields.Item("Weight").Value))

Dim DataConn
Set DataConn = Server.CreateObject("ADODB.Connection")
DataConn.Open MM_GenKAccess_STRING

SQL = "UPDATE Cart SET
Cart.Qty = '" & varNewQty & "'
Cart.Weight ='" & varNewWeight & "'
WHERE Cart.OrderNo = '" & varOrderNo & "'"

DataConn.Execute(SQL)
If Request("QtyUpdate") <> "" Then
something..............
Response.Redirect("cart.asp")
End If
On Tue, 27 Jul 2004 18:24:33 -0400, "shank" <sh***@tampabay.rr.com> wrote:

What is the proper use for CInt ..?
I get a type mismatch error whether I use it or not.
I assumed I needed it because I need to make sure Request("Qty") and
Request("Weight") were integers.

Also, does this loop structure appear to be correct. rsCart recordset is
just above this code.
thanks

<%
If Request("QtyUpdate") <> "" Then
Do While Not rsCart.EOF

varNewQty = CInt(Request("Qty")) <-- Type mismatch error

varNewWeight = varNewQty * CInt((rsCart.Fields.Item("Weight").Value))
Dim DataConn
Set DataConn = Server.CreateObject("ADODB.Connection")
DataConn.Open MM_GenKAccess_STRING
SQL = "UPDATE Cart SET Cart.Qty = '" & varNewQty & "', Cart.Weight = '" &
varNewWeight & "' WHERE Cart.OrderNo = '" & varOrderNo & "'"
DataConn.Execute(SQL)
Loop
Response.Redirect("cart.asp")
End If
%>

[Agoston Bejo]

Hi,
"shank" <sh***@tampabay.rr.com> wrote in message
news:u0**************@TK2MSFTNGP10.phx.gbl...

What is the proper use for CInt ..?
I get a type mismatch error whether I use it or not.
I assumed I needed it because I need to make sure Request("Qty") and
Request("Weight") were integers. [...] varNewQty = CInt(Request("Qty")) <-- Type mismatch error
Check if Request("Qty") is really a number and most of all if it is not ""
(empty string). Mostly this error occurs when Request(...) returns an empty
string because it itsn't passed.

varNewWeight = varNewQty * CInt((rsCart.Fields.Item("Weight").Value))
Dim DataConn
Set DataConn = Server.CreateObject("ADODB.Connection")
DataConn.Open MM_GenKAccess_STRING
SQL = "UPDATE Cart SET Cart.Qty = '" & varNewQty & "', Cart.Weight = '" &
varNewWeight & "' WHERE Cart.OrderNo = '" & varOrderNo & "'"
DataConn.Execute(SQL)
Loop
Response.Redirect("cart.asp")
End If
%>