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.
