www.webdeveloper.com
Results 1 to 2 of 2

Thread: Object Required Error

  1. #1
    Join Date
    Apr 2006
    Location
    Philippines
    Posts
    2

    Object Required Error

    Hi,

    Could somebody help me? Every time I run the script I made for an online tracker I get the error statement: Microsoft VBScript runtime (0x800A01A8); Object required. What's wrong?

    The complete syntax would be:


    <%
    Sub main(fcampaign,fshift,phoneneumber,fremarks)
    OpenConn()
    Set objCommand = CreateCmd("FAQ_CheckPhonenumbers")
    With objCommand
    .Parameters.Append .CreateParameter("@phonenumber", adVarChar, adParamInput, 25, phonenumber)
    Set RsCallData = objCommand.Execute()
    End With

    If Not RsCallData.EOF Then
    stats = "Done"
    Set objCommand = CreateCmd("FAQ_CheckPhonenumbersForDontCall")
    With objCommand
    .Parameters.Append .CreateParameter("@phonenumber", adVarChar, adParamInput, 25, phonenumber)
    Set RsCallData = objCommand.Execute()
    End With

    if RsCallData.EOF then
    Set objCommand = CreateCmd("FAQ_InsertToBadCall")
    With objCommand .Parameters.Append .CreateParameter("@phonenumber", adVarChar, adParamInput, 25, phonenumber)
    Set RSCallData = objCommand.Execute()
    End With

    Set objCommand = CreateCmd("FAQ_InsertToTracker")
    With objCommand .Parameters.Append .CreateParameter("@phoneneumber", adVarChar, adParamInput, 25, phonenumber) .Parameters.Append .CreateParameter("@campaign", adVarChar, adParamInput, 10, fcampaign) .Parameters.Append .CreateParameter("@shift", adVarChar, adParamInput, 20, fshift) .Parameters.Append .CreateParameter("@remarks", adVarChar, adParamInput, 30, fremarks) .Parameters.Append .CreateParameter("@stats", adVarChar, adParamInput, 10, stats)
    Set RsCallData = objCommand.Execute()
    End With

    Set objCommand = CreateCmd("FAQ_GetPhonenumbersByPhonenumber")
    With objCommand .Parameters.Append .CreateParameter("@phonenumber", adVarChar, adParamInput, 25, phonenumber)
    Set RsCallData = objCommand.Execute()
    End With

    campaign = RsCallData("campaign")
    shift = RsCallData("shift")
    datetime = RsCallData("datetime")
    phonenumber = RsCallData("phonenumber")
    remarks = RsCallData("remarks")
    stats = RsCallData("status")
    %>

    <table width="875" height="49" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#000099">
    <tr bgcolor="#9999FF" class="header1">
    <td width="96" height="28"><div align="center" class="Label2d">CAMPAIGN</div></td>
    <td width="156"><div align="center" class="Label2d">SHIFT</div></td>
    <td width="166"><div align="center" class="Label2d">DATE/TIME</div></td>
    <td width="175"><div align="center" class="Label2d">PHONENUMBER</div></td>
    <td width="136"><div align="center" class="Label2d">REMARKS</div></td>
    <td width="133"><div align="center">STATUS</div></td>
    </tr>
    <tr class="Label2d">
    <td width="96" height="19"><div align="center"><%=campaign%></div></td>
    <td width="156"><div align="center"><%=shift%></div></td>
    <td width="166"><div align="center"><%=datetime%></div></td>
    <td width="175"><div align="center"><%=phonenumber%></div></td>
    <td width="136"><div align="center"><%=remarks%></div></td>
    <td width="133"><div align="center"><%=stats%></div></td>
    </tr>
    </table>
    <%
    else
    %>
    <p align="center" class="Label2bold style2">The number is already in the DNC List!</p>
    <%
    end if
    else
    stats = "Pending"

    Set objCommand = CreateCmd("FAQ_InsertToTracker")
    With objCommand .Parameters.Append .CreateParameter("@phoneneumber", adVarChar, adParamInput, 25, phonenumber) .Parameters.Append .CreateParameter("@campaign", adVarChar, adParamInput, 10, fcampaign) .Parameters.Append .CreateParameter("@shift", adVarChar, adParamInput, 20, fshift) .Parameters.Append .CreateParameter("@remarks", adVarChar, adParamInput, 30, fremarks) .Parameters.Append .CreateParameter("@stats", adVarChar, adParamInput, 10, stats)

    Set RSCallData = objCommand.Execute()
    End With

    Set objCommand = CreateCmd("FAQ_GetPhonenumbersByPhonenumber")
    With objCommand .Parameters.Append .CreateParameter("@phonenumber", adVarChar, adParamInput, 25, phonenumber)
    Set RSCallData = objCommand.Execute()
    End With

    campaign = RsCallData("campaign")
    shift = RsCallData("shift")
    datetime = RsCallData("datetime")
    phonenumber = RsCallData("phonenumber")
    remarks = RsCallData("remarks")
    stats = RsCallData("status")
    %>
    <table width="875" height="49" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#000099">
    <tr bgcolor="#9999FF" class="header1">
    <td width="96" height="28"><div align="center" class="Label2d">CAMPAIGN</div></td>
    <td width="156"><div align="center" class="Label2d">SHIFT</div></td>
    <td width="166"><div align="center" class="Label2d">DATE/TIME</div></td>
    <td width="175"><div align="center" class="Label2d">PHONENUMBER</div></td>
    <td width="136"><div align="center" class="Label2d">REMARKS</div></td>
    <td width="133"><div align="center">STATUS</div></td>
    </tr>
    <tr class="Label2d">
    <td width="96" height="19"><div align="center"><%=campaign%></div></td>
    <td width="156"><div align="center"><%=shift%></div></td>
    <td width="166"><div align="center"><%=datetime%></div></td>
    <td width="175"><div align="center"><%=phonenumber%></div></td>
    <td width="136"><div align="center"><%=remarks%></div></td>
    <td width="133"><div align="center"><%=stats%></div></td>
    </tr>
    </table>
    <%
    End if
    Set RsCallData = Nothing
    Set sg_objConn =Nothing
    CloseConn()

    End Sub


    %>
    <html>

    <head>
    <link href="style.css" rel="stylesheet" type="text/css">
    <style type="text/css">
    <!--
    .style2 {color: #FF0000}
    -->
    </style>
    </head>

    <body>
    <p align="center"><img src="images/ta_logo.gif" width="45" height="51">
    </p>
    <p align="center" class="Label2bold">Online DNC Tracker</p>
    <p align="center" class="Label2bold">&nbsp;</p>

    <%
    fcampaign = Request.Form("campaign")
    fshift = Request.Form("shift")
    phonenumber = Request.Form("phonenumber")
    fremarks = Request.Form("remarks")

    If (phonenumber = "" OR fcampaign = "0" OR fshift = "0" OR fremarks = "0") Then
    %>

    <p align="center" class="Label2bold style2">Incomplete data!</p>

    <%
    Else

    Select Case fcampaign

    Case "ARC1"
    %>
    <!--#include file="includes/config.asp" -->
    <%
    main fcampaign, fshift, phoneneumber, fremarks
    Case "ARC2"
    %>
    <!--#include file="includes/config2.asp" -->
    <%
    main fcampaign, fshift, phoneneumber, fremarks
    Case "PASS"
    %>
    <!--#include file="includes/config3.asp" -->
    <%
    main fcampaign, fshift, phoneneumber, fremarks
    Case "CMS"
    %>
    <!--#include file="includes/config4.asp" -->
    <%
    main fcampaign, fshift, phoneneumber, fremarks
    Case "VANKAR"
    %>
    <!--#include file="includes/config5.asp" -->
    <%
    main fcampaign, fshift, phoneneumber, fremarks
    End Select

    End If
    %>
    <p align="center" class="Label2bold">Go to <a href="dnc_view_main.asp" class="Label2dred">View Page</a></p>
    <p align="center" class="Label2bold">&nbsp;</p>
    </body>
    </html>

    <!-- developer: Joseph Salugta -->

  2. #2
    Join Date
    Feb 2003
    Posts
    2,745
    Would need to see what's in the OpenConn and especially Create_Command methods. Where are you declaring objCommand? May be a scoping problem

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  
HTML5 Development Center

"

"

X vBulletin 4.2.2 Debug Information

  • Page Generation 0.12418 seconds
  • Memory Usage 2,851KB
  • Queries Executed 13 (?)
More Information
Template Usage (32):
  • (1)SHOWTHREAD
  • (1)ad_footer_end
  • (1)ad_footer_start
  • (1)ad_global_above_footer
  • (1)ad_global_below_navbar
  • (1)ad_global_header1
  • (1)ad_global_header2
  • (1)ad_navbar_below
  • (1)ad_showthread_firstpost_sig
  • (1)ad_showthread_firstpost_start
  • (1)ad_thread_first_post_content
  • (1)ad_thread_last_post_content
  • (1)footer
  • (1)forumjump
  • (1)forumrules
  • (1)gobutton
  • (1)header
  • (1)headinclude
  • (1)headinclude_bottom
  • (2)memberaction_dropdown
  • (1)navbar
  • (4)navbar_link
  • (1)navbar_moderation
  • (1)navbar_noticebit
  • (1)navbar_tabs
  • (2)option
  • (2)postbit
  • (2)postbit_onlinestatus
  • (2)postbit_wrapper
  • (1)spacer_close
  • (1)spacer_open
  • (1)tagbit_wrapper 

Phrase Groups Available (6):
  • global
  • inlinemod
  • postbit
  • posting
  • reputationlevel
  • showthread
Included Files (26):
  • ./showthread.php
  • ./global.php
  • ./includes/class_bootstrap.php
  • ./includes/init.php
  • ./includes/class_core.php
  • ./includes/config.php
  • ./includes/functions.php
  • ./includes/functions_navigation.php
  • ./includes/class_friendly_url.php
  • ./includes/class_hook.php
  • ./includes/class_bootstrap_framework.php
  • ./vb/vb.php
  • ./vb/phrase.php
  • ./includes/functions_facebook.php
  • ./includes/functions_calendar.php
  • ./includes/functions_bigthree.php
  • ./includes/class_postbit.php
  • ./includes/class_bbcode.php
  • ./includes/functions_reputation.php
  • ./includes/functions_notice.php
  • ./packages/vbattach/attach.php
  • ./vb/types.php
  • ./vb/cache.php
  • ./vb/cache/db.php
  • ./vb/cache/observer/db.php
  • ./vb/cache/observer.php 

Hooks Called (70):
  • init_startup
  • friendlyurl_resolve_class
  • init_startup_session_setup_start
  • database_pre_fetch_array
  • database_post_fetch_array
  • init_startup_session_setup_complete
  • global_bootstrap_init_start
  • global_bootstrap_init_complete
  • cache_permissions
  • fetch_threadinfo_query
  • fetch_threadinfo
  • fetch_foruminfo
  • load_show_variables
  • load_forum_show_variables
  • global_state_check
  • global_bootstrap_complete
  • global_start
  • style_fetch
  • global_setup_complete
  • showthread_start
  • showthread_getinfo
  • strip_bbcode
  • friendlyurl_clean_fragment
  • friendlyurl_geturl
  • forumjump
  • cache_templates
  • cache_templates_process
  • template_register_var
  • template_render_output
  • fetch_template_start
  • fetch_template_complete
  • parse_templates
  • fetch_musername
  • notices_check_start
  • notices_noticebit
  • process_templates_complete
  • friendlyurl_redirect_canonical
  • showthread_post_start
  • showthread_query_postids
  • showthread_query
  • bbcode_fetch_tags
  • bbcode_create
  • showthread_postbit_create
  • postbit_factory
  • postbit_display_start
  • postbit_imicons
  • bbcode_parse_start
  • bbcode_parse_complete_precache
  • bbcode_parse_complete
  • postbit_display_complete
  • memberaction_dropdown
  • tag_fetchbit_complete
  • forumrules
  • navbits
  • navbits_complete
  • build_navigation_data
  • build_navigation_array
  • check_navigation_permission
  • process_navigation_links_start
  • process_navigation_links_complete
  • set_navigation_menu_element
  • build_navigation_menudata
  • build_navigation_listdata
  • build_navigation_list
  • set_navigation_tab_main
  • set_navigation_tab_fallback
  • navigation_tab_complete
  • fb_like_button
  • showthread_complete
  • page_templates