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) -- this is what I am passing to the function and what I expect to be returned is a value in the variable RunC.
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.
This is the function which does not seem to do anything.
<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
This is being called and should pass back some values.
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
Please can someone help!!!!!!!
I have a feeling it will probably be something simple I havent done , but I am really annoyed as I cannot see the fault.
Please help me with coding problem!!!!!!
thanks from
raj2000
