Hi , This is my asp code.


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

<!--#include FILE="GeomanCode.asp"-->
<%
Dim Msg
Dim Lat
Dim Lon
Dim Maps
Dim RunC
Dim MsgResp



Map = "OS2000.Map"

userid="1"

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




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

Set Session(SESN_GEO) = CreateObject("DLLCall.class1")

Response.Write("<html><title>TEST</title><body><hr>")

The following code in this line, I am trying to call this routine and pass the variables. I am then trying to return the variable RuncC back.


RunC = CallGeo(Lat, Lon, Map)
Response.Write("<h3>Variable set to >>" + RunC + "<< ok? </h3><hr></html>")

Set Session(SESN_GEO)=Nothing

%>

But if you look at the function below CallGeo, it does not seem to do anything, any ideas as to the problem.



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

Const SESN_GEO = "GEO_SESSION"

Function CallGeo(ByVal Lat, ByVal Lon, ByVal Map)

CallGeo=Session(SESN_GEO).GEOMANCODE(Lat,Lon,Map)

End Function

</SCRIPT>

What this is trying to do , is call the routine below, specifically the geoman code subroutine below.



Public gdatServerStarted As Date
Private mlngDebugID As Long


Sub Main()
' Code to be executed when the component starts,
' in response to the first object request.
gdatServerStarted = Now
Debug.Print "Executing Sub Main"
End Sub

Public Sub ReverseName()
Dim intCt As Integer
Dim strNew As String
For intCt = 1 To Len(Name)
strNew = Mid$(Name, intCt, 1) & strNew
Next
Name = strNew
End Sub

Public Property Get DebugID() As Long
DebugID = mlngDebugID
End Property




Public Sub CallGeoman(MAP, LAT, LNG)

Call GEOMANCODE(" & MAP &", "& LAT &", "& LNG &")

End Sub

Private Sub Class_Initialize()
' Get a debug ID number that can be returned by
' the read-only DebugID property.
mlngDebugID = GetDebugID
Debug.Print "Initialize CallGeoman " & DebugID _
& ", Name=" & Name

End Sub


Any ideas , as to how I can resolve my problem would be appreciated as this is the first time I have used visual basic with vbscript in an asp environment.


Much appreciated.