Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations bkrike on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Help with cint mismatch

Status
Not open for further replies.
danjapro

danjapro

Programmer
Aug 27, 2004
54
US
I get this error message on my code whenever I try to update this page:

this is the error:

Error Type:
Microsoft VBScript runtime (0x800A000D)
Type mismatch: 'cint'
/CoxAxis/adminEditSPageUpdate.asp, line 66

here is my code:

<%
'Declare the cursor and locktype for the recordset
Const adOpenForwardOnly = 0
Const adLockOptimistic = 3

dim self, pid, i, c, del, mainID, menuID, subID
self = Request.ServerVariables("URL")
set ssi = Session("pageContent")
del = Request.QueryString("del")
deleteConfirm = Request.Querystring("deleteConfirm")
i = 1
%>
<!--#include file="include/functions.asp"-->
<!--#include file="include/openDBConnection.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="css/EthicsDept.css" rel="Stylesheet" type="text/css">
<script language="JavaScript" src="js/menuRollover.js"></script>
</head>
<body>
<!--#include file="include/pageTop.inc"-->
<!--#include file="include/leftSide.asp"-->
<!--#include file="include/pageMiddle.inc"-->
<%
dim pcID, archive

if del = 1 then
ssi.item("mainID") = Request.QueryString("mmid")
ssi.item("menuID") = Request.QueryString("mid")
ssi.item("subID") = Request.QueryString("sid")
Response.write "<p>You are about to permanently delete this page from the database. Do you want to continue?</p>"
Response.write "<p><a href=" & self& "?deleteConfirm=1>Yes</a><br>"
Response.write "<a href=adminEditSPageList.asp>No</a></p>"
else
if deleteConfirm = 1 then
'Response.write "Delete"
strSQL = "Delete from tblPageContent where MainMenuLinkID=" & cInt(ssi.item("mainID")) & " and MenuLinkID=" & cint(ssi.item("menuID")) & " and SubmenuLinkID=" & cint(ssi.item("subID"))
'Response.write strSQL
conn.Execute(strSQL)
strSQL = "Delete from tblSubmenuLink where SubmenuLinkID=" & cint(ssi.item("subID"))
conn.Execute(strSQL)
Response.write "<p>The page was deleted successfully.</p>"
Response.write "<p><a href='adminEditSPageList.asp'>Back to Subpage List</a></p>"
else
if IsNull(ssi.item("PageContentID")) or len(ssi.item("PageContentID")) < 1 then
rs.Open "tblSubmenuLink", conn, adOpenForwardOnly, adLockOptimistic
rs.addNew
rs("MenuLinkID") = ssi.item("MenuLinkID")
rs("SubmenuLinkName") = ssi.item("PageHeader")
rs("UpdatedBy_UserID") = Session("UID")
rs("LastUpdated") = date
rs.update
set rs = conn.Execute("Select Max(SubmenuLinkID) as maxID from tblSubmenuLink")
ssi.item("SubmenuLinkID") = rs("maxID")
rs.close
strSQL2 = "Select * from tblMenuLink where MenuLinkID=" & cint(ssi.item("MenuLinkID"))
rs.Open strSQL2, conn, adOpenForwardOnly, adLockOptimistic
rs("HasSubmenu") = 1
rs.update
rs.close
rs.Open "tblPageContent", conn, adOpenForwardOnly, adLockOptimistic
rs.addnew
else
pcID = cint(ssi.item("PageContentID"))
LINE 66 = strSQL2 = "Select * from tblSubmenuLink where SubmenuLinkID=" & cint(ssi.item("SubmenuLinkID"))
'strSQL2 = "Select * from tblSubmenuLink where SubmenuLinkID=" & cint(ssi.item("SubmenuLinkID"))
rs.Open strSQL2, conn, adOpenForwardOnly, adLockOptimistic
rs("SubmenuLinkName") = trim(ssi.item("PageHeader"))
rs.update
rs.close
strSQL = "Select * from tblPageContent where MainMenuLinkID=" & cint(ssi.item("mainID")) & " and MenuLinkID=" & cint(ssi.item("menuID")) & " and SubmenuLinkID=" & cint(ssi.item("subID"))
'Response.write "<br>" & vartype(cint(ssi.item("PageContentID"))) & ":<br>:"
'response.write strSQL & "<br>"
rs.Open strSQL, conn, adOpenForwardOnly, adLockOptimistic
end if
rs("PageHeader") = trim(ssi.item("PageHeader"))
if len(ssi.item("PageQuote")) > 1 or not IsNull(ssi.item("PageQuote")) then
rs("PageQuote") = trim(ssi.item("PageQuote"))
end if
rs("PageContent") = trim((ssi.item("PageContent")))
rs("MainMenuLinkID") = ssi.item("MainMenuLinkID")
rs("MenuLinkID") = ssi.item("MenuLinkID")
rs("SubmenuLinkID") = ssi.item("SubmenuLinkID")
rs("UpdatedBy_UserID") = Session("UID")
rs("LastUpdated") = date
rs.update
rs.close
Response.write "<p>The page was update successfully.</p>"
Response.write "<p><a href='subpage.asp?ID=" & ssi.item("MainMenuLinkID") &"&SID="& ssi.item("MenuLinkID") & "&SSID=" & ssi.item("SubmenuLinkID") & "'>View Page</a></p>"

Response.write "<p><a href='adminPage.asp'>Back to Main Admin Control Panel</a></p>"
end if
end if
%>
<!--#include file="include/pageBottom.inc"-->
</body>
</html>
 
Sort by date Sort by votes
Why are you using CInt in a SQL string?

strSQL = "Delete from tblPageContent where MainMenuLinkID=" & cInt(ssi.item("mainID")) & " and MenuLinkID=" & cint(ssi.item("menuID")) & " and SubmenuLinkID=" & cint(ssi.item("subID"))

You should not need to worry about type casting when dealing with SQL queries. Its all text anyways.

eg.
Code: 
DELETE FROM tblPageContent WHERE MainMenuLinkID = anumber

The only thing you have to worry is about whether the value passed is a string type. In that case:

Code: 
DELETE FROM tblPageContent WHERE MainMenuLinkID = 'anumber'

the ticks are necessary.

 
Upvote 0 Downvote
The problem array around this line: whenere ever I try to do an updateI tried using Cdbl but that gave the same erro:

pcID = cint(ssi.item("PageContentID"))
LINE 66 = strSQL2 = "Select * from tblSubmenuLink where SubmenuLinkID=" & cint(ssi.item("SubmenuLinkID"))
 
Upvote 0 Downvote
My guess is that the value your passing for SubmenuLinkID is non-numeric or empty, which is why your getting a type mismatch and why you would get an error even if you left out the cast call.

Try Response.Write'ing it to the screen followed by a Response.Flush to force it to be displayed and see if the value is truly numeric or not.

-T

01000111 01101111 01110100 00100000 01000011 01101111 01100110 01100110 01100101 01100101 00111111
Help, the rampaging, spear-waving, rabid network gnomes are after me!
 
Upvote 0 Downvote
I chagne this line

LINE 66 = strSQL2 = "Select * from tblSubmenuLink where SubmenuLinkID=" & cint(ssi.item("SubmenuLinkID"))


to this

LINE 66 = strSQL2 = "Select * from tblSubmenuLink where SubmenuLinkID=" & clng(ssi.item("SubmenuLinkID"))

not getting this error
Type mismatch: 'clng'

Tried Response write
 
Upvote 0 Downvote
Have you tried:

Code: 
strSQL2 = "Select * from tblSubmenuLink where SubmenuLinkID= " & ssi.item("SubmenuLinkID")

or if that does not work, try:

Code: 
strSQL2 = "Select * from tblSubmenuLink where SubmenuLinkID= '" & ssi.item("SubmenuLinkID") & "'"
See if that works. I think it is your quotes and type conversions.
 
Upvote 0 Downvote
I tried both came back with error

Error Type:
ADODB.Recordset (0x800A0BCD)
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
/CoxAxis/adminEditSPageUpdate.asp, line 71

rs.update = line 71
 
Upvote 0 Downvote
Still gettign this error

I tried both came back with error

Error Type:
ADODB.Recordset (0x800A0BCD)
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
/CoxAxis/adminEditSPageUpdate.asp, line 71

 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

leifoet
  • Locked
  • Question
How to send HTML emails with ASP classic?
Replies
0
Views
787
leifoet
leifoet
JScannell
  • Locked
  • Question
Border issue with Google Chrome on an Android phone
Replies
0
Views
559
JScannell
JScannell
leifoet
  • Locked
  • Question
First execute an input command and only then proceed with displaying the next record of the table
Replies
0
Views
466
leifoet
leifoet
penguinspeaks
  • Locked
  • Question
write HTML code within ASP line
Replies
1
Views
764
xwb
xwb
leifoet
  • Locked
  • Question
Problem: sql-Select with request.form
2
Replies
22
Views
992
leifoet
leifoet

Part and Inventory Search

Sponsor

Back
Top