View Single Post
  #1 (permalink)  
Old May 23rd, 2008, 10:09 AM
bootsy bootsy is offline
Registered User
 
Join Date: May 2008
Location: , , .
Posts: 5
Thanks: 0
Thanked 0 Times in 0 Posts
Default 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


Reply With Quote