Hi,

I am getting the following error, do not know what the error means or what is the cause of the error?

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'Session(...).RequestMap'

/yeoman/GisDispatcher.asp, line 8


The code I am using is the following:


<% @Language = "VBScript" %>
<% Response.buffer = true %>

<%
Dim Msg
Dim Lat
Dim Lon
Dim Map


Msg = Maps & "," & Lon &"," & Lat


Lat=Request.QueryString("Lat")
Lon=Request.QueryString("Lon")
' Map=Request.QueryString("Map")

Map = "OS2000.Map"

userid="1"

'Lat = "50.748867"
'Lon = "-001.554733"



Dim finalm

Set finalm = Server.CreateObject("DLLCall.Geomanconv")

RetStr=finalm.GEOMANCODE(Lat,Lon,Map)



Dim RetStr ' a variable to hold the original string value
Dim arrWork1 ' a variable to hold the split array of pairs
Dim arrWork2 ' a variable to hold the split array of name/value
Dim i ' a loop counter

' The contents are all in a string called RetStr



' RetStr = "Res=Map=OS2000.Map, MapO=2, Lat1=50.708286, " & _
' "Lat2=50.798220, " & vbcrlf & _
' "Lat3=50.797615, Lat4=50.707683, Lon1=-001.575082, " & _
' "Lon2=-001.574267, " & vbcrlf & _
' "Lon3=-001.432362, Lon4=-001.433449 , Page=7, XCur=14, " & _
' "YCur=45, Col= H, " & vbcrlf & _
' "Row= 5 , Page=12, XCur=14, YCur=45, Col= G, Row= 7"


arrWork1 = Split(RetStr,",")
For i = LBound(arrWork1) to UBound(arrWork1)

arrWork2 = Split(arrWork1(i), "=", 2)

sValue = Trim(arrWork2(UBound(arrWork2)))
Select Case Trim(arrWork2(LBound(arrWork2)))
Case "Map"
Map = sValue
Case "MapO"
MapO = sValue
Case "Lat1"
Lat1 = sValue
Case "Lat2"
Lat2 = sValue
Case "Lat3"
Lat3 = sValue
Case "Lat4"
Lat4 = sValue
Case "Lon1"
Lon1 = sValue
Case "Lon2"
Lon2 = sValue
Case "Lon3"
Lon3 = sValue
Case "Lon4"
Lon4 = sValue
Case "Page"
Page = sValue
Case "XCur"
XCur = sValue
Case "YCur"
YCur = sValue
Case "Col"
Col = sValue
Case "Row"
Row = sValue

End Select

Erase arrWork2 ' clear the array
Next
Erase arrWork1 ' clear the array










response.redirect("bmpquadrant.asp?userid=1&topleftx="&Lon2&"&topleftY="&Lat2&"&brightx="&Lat1&"&bri ghty="&Lon1)

%>



Which also calls the following :-


<SCRIPT LANGUAGE="VBScript" RUNAT="Server">

Const SESN_GIS = "GIS_SESSION"


Function GISDispatcher_RequestMap(ByVal TheId,ByVal topleftX,ByVal topleftY,ByVal brightx,ByVal brighty,ByVal msh,ByVal msw)
'On Error Resume Next
GISDispatcher_RequestMap=Session(SESN_GIS).RequestMap(TheId,topleftX,topleftY,brightx,brighty,msh,ms w)
End Function


Function GISDispatcher_RequestVectorMap(ByVal TheId,ByVal topleftX,ByVal topleftY,ByVal brightx,ByVal brighty)
'On Error Resume Next
GISDispatcher_RequestVectorMap=Session(SESN_GIS).RequestVectorMap(TheId,topleftX,topleftY,brightx,br ighty)
End Function


</SCRIPT>