类型不匹配错误到经典ASP中的ceil函数

Question

    sql_logcout="select count(*) as totcount from tbllogincount where companylogin='"&RECRS("companylogin")&"' and (logindate>'"&fromdate&"' and logindate<'"&todate&"') "
    rslogins.open sql_logcout,con,0,3
    if not rslogins.EOF then
      totlogins=rslogins("totcount")
      do while not rslogins.EOF 

        'on below line i am getting error
        avglogin=ceil(totlogins/10)
        avglogin=ceil(avglogin)

        rslogins.movenext
      loop
    end if
    rslogins.close      

    avglogin=ceil(totlogins/10)
    avglogin=ceil(avglogin)

    rslogins.movenext
  loop
end if
rslogins.close

in above code I get count 0 and I am getting error on avglogin=ceil(totlogins/10)

error is as below

Microsoft VBScript runtime error '800a000d'

Type mismatch

/admin/member_email.asp, line 200

What is the problem there? I had tried by using CStr or CInt but still its same. Please help me to solve this error. I am using Classic ASP with MySQL.

Answer 1

You simply need to ensure that there's a value in the data you're reading from your tables.

Try:

If Not IsNull(rslogins("totcount")) And Not rslogins("totcount") Is Nothing Then
    Do While ...
        ....
    Loop
End If

Personally, I prefer the quick and the dirty method of a quick cast, but I'm sure someone will spurn me for it...

If rslogins("totcount") & "" <> "" Then
    ....
End If

It's your choice!

Background reading:

• http://wiki.mcneel.com/developer/scriptsamples/vbnothing
• https://msdn.microsoft.com/en-us/library/zbchw6hz(v=vs.85).aspx
• http://www.w3schools.com/asp/func_isnull.asp
• https://msdn.microsoft.com/en-us/library/5cs4befa(v=vs.85).aspx
• http://www.w3schools.com/asp/func_isempty.asp
• https://msdn.microsoft.com/en-us/library/ake1y5wx(v=vs.85).aspx
• http://www.w3schools.com/asp/vbscript_ref_keywords.asp