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")
else
    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
    Process_XML_Meetings()
else
    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
    else
        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
    else
        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.