Wrox Programmer Forums
Classic ASP Basics For beginner programmers starting with "classic" ASP 3, pre-".NET." NOT for ASP.NET 1.0, 1.1, or 2.0
Welcome to the p2p.wrox.com Forums.

You are currently viewing the Classic ASP Basics section of the Wrox Programmer to Programmer discussions. This is a community of software programmers and website developers including Wrox book authors and readers. New member registration was closed in 2019. New posts were shut off and the site was archived into this static format as of October 1, 2020. If you require technical support for a Wrox book please contact http://hub.wiley.com
Old July 23rd, 2007, 04:48 AM
Registered User
Join Date: Jun 2007
Posts: 5
Thanks: 0
Thanked 0 Times in 0 Posts
Default Error-0x800A000D-Type mismatch

I am getting the following error in my asp page. I dont know the reason,
Please help me to resolve it.
Error-0x800A000D-Type mismatch in the last line in my code given below.(see the last line)

if internal = true then
    strURL = Session("strURL_Internal")
    XMLCallPath = Session("XMLCallPath_Internal")
    authUser = Session("authUser_Internal")
    authPassword = Session("authPassword_Internal")
    strURL = Session("strURL_External")
    XMLCallPath = Session("XMLCallPath_External")
    authUser = Session("authUser_External")
    authPassword = Session("authPassword_External")
end if

if APICallType = "lmv" and batch_flag = true then
    SendXMLRequest APICallType, strURL, XMLCallPath, internal
end if

'Strip out extra characters in phone number
'10/18/2006 This function returns the local (7 digit) number and sets a global variable areaCode to the first 3 digits
' of the phone number from the user
' This will allow the recording information to display in the Live Meeting Console correctly
function CleanPhoneNum(phone)
    dim splitPhone, body, wholePhone
    splitPhone = Split(phone,")")
    areaCode = Right(splitPhone(0),3)
    body = Split(splitPhone(1),"-")
    'wholePhone = areaCode & body(0) & body(1)
    wholePhone = body(0) & body(1)
    CleanPhoneNum = wholePhone
end function
'Add zeros to the month and day if they are less than 10
function AddZerosToDate(Time)
    dim aTime
    dim mm, dd, yyyy, monthEnding
    dim aMonthEnding, aHHMMSSZ, hh, minmin, ss

    aTime = Split(Time,"-")
    mm = aTime(1)
    yyyy = aTime(0)
    aMonthEnding = Split(aTime(2),"T")
    dd = aMonthEnding(0)
    monthEnding = aMonthEnding(1)
    aHHMMSSZ = Split(monthEnding,":")
    hh = aHHMMSSZ(0)
    minmin = aHHMMSSZ(1)
    ss = ":00Z"

    mm = AddZerosToString(mm)
    dd = AddZerosToString(dd)
    hh = AddZerosToString(hh)
    minmin = AddZerosToString(minmin)

    AddZerosToDate = yyyy & "-" & mm & "-" & dd & "T" & hh & ":" & minmin & ss
end function

function AddZerosToString(sTime)
    if sTime < 10 then
        AddZerosToString = "0" & sTime
        AddZerosToString = sTime
    end if
end function
function SendXMLRequest(APICallType, strURL, XMLCallPath, Internal)
' on error resume next
    dim lenXML, strPostGet, requestDoc, responseDoc, oRequest, Msg

    Internal = cbool(Internal)
    Msg = ""
    strPostGet = "POST"
    set requestDoc = CreateObject("Microsoft.XMLDOM")
    set responseDoc = CreateObject("Microsoft.XMLDOM")
'***** 3/7/2001, commented until internal server gets stabilized *****
'****** 23/7/2007, Un Commented If condition by Kishore to work on Local*****
    if Internal = true then
        set oRequest = CreateObject("MSXML2.XMLHTTP") 'Internal server
        set oRequest = CreateObject("MSXML2.ServerXMLHTTP") 'External server
    end if

    MakeShell requestDoc, APICallType
    AddItems requestDoc, APICallType

    lenXML = requestdoc.childNodes.length

    oRequest.open strPostGet, strURL, false--Here is the Error

Kishore Kumar
Software Engineer
TATA Consultancy Services.

Similar Threads
Thread Thread Starter Forum Replies Last Post
(0x800A000D) datatype mismatch peonysmiles ASP.NET 1.0 and 1.1 Basics 1 August 26th, 2008 08:13 AM
Type Mismatch error Sheraz Khan Classic ASP Basics 0 May 16th, 2007 08:12 AM
Error 13 Type Mismatch lguzman Access VBA 2 January 6th, 2005 10:19 PM
Data Type Mismatch error transcona Classic ASP Databases 4 June 25th, 2003 07:23 PM

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