p2p.wrox.com Forums

p2p.wrox.com Forums (http://p2p.wrox.com/index.php)
-   Classic ASP Basics (http://p2p.wrox.com/forumdisplay.php?f=61)
-   -   Error-Object does not support doesn't support this (http://p2p.wrox.com/showthread.php?t=68336)

bootsy May 23rd, 2008 10:09 AM

Error-Object does not support doesn't support this
 
I get this error (Object does not support doesn't support this property or method was not handled) when going through this code it error at the 'Set objdata', can someone help me to why I am getting this.
Code:

Dim objData
 Dim rs
 
 Set objData = Server.CreateObject("DataAccess.clsNoTransact")
 If Typename(lcase(objData)) <> "clsnotransact" Then
    'error condition
    m_blnIsFatalError = True
    Call subAddText(m_htmlScreenText, funcMessage(19))
    Set objData = nothing       
 Else
    Set rs = Server.CreateObject("ADODB.Recordset")
    If Typename(lcase(objData)) <> "recordset" Then
        'error condition
       m_blnIsFatalError = True
       Call subAddText(m_htmlScreenText, funcMessage(19))
       Set rs = nothing   
     Else
        Set rs = objData.GetADORS(m_objError, "prScoutPrizeOrder_selScoutPrizeOrdersByUnit","& @v_intSalesCycleID &"," & @v_intGroupID & ")
        if not funcAreRecordsetAndObjectOK(rs,objData,m_strScript  Name & "prScoutPrizeOrder_selScoutPrizeOrdersByUnit;Params  [" & m_arrReports(m_intReportID,3) &"] ") then
          call subManageError(m_blnHasErrorShown)
          m_blnIsFatalError = true
        end if 'funcAreRecordsetAndObjectOk   
     End if   
 End if




mat41 May 25th, 2008 07:14 PM

What is this:

Server.CreateObject("DataAccess.clsNoTransact")

Anyhow... the line which is giving you trouble is optional. Does you code still run without it? I suspect it will.


Wind is your friend
Matt
www.elitemarquees.com.au


All times are GMT -4. The time now is 08:22 AM.

Powered by vBulletin®
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
© 2013 John Wiley & Sons, Inc.