<% @Language = "VBScript" %>
<% Response.buffer = true %>
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type"
Content="text-html; charset=Windows-1252">
<title id=titletext>OSGB Convert</title>
</HEAD>
<body bgcolor=white>
<form
method="post" action="test.asp">
<font style="COLOR: black; FONT: 9pt/12pt
verdana">
Enter OSGB Grid Reference:<br>
(e.g. SP8400035550)</P>
<P><INPUT
id=text1
name=OSGB_GRID_REF
value="<%=
Server.HTMLEncode (Request("OSGB_GRID_REF"))%>">
</P>
<P><INPUT id=submit1
name=submit1 type=submit
value=Submit></P>
<%
OSGB_GRID_REF
= Request ("OSGB_GRID_REF")
Dim objBin
Set
objBin = Server.CreateObject("LED_OSGB_POS.Application")
objBin.convert
OSGB_GRID_REF
Response.Write(Server.HTMLEncode
("Latitude: "))
Response.Write (objBin.Latitude)
Response.Write("<BR>"
& Server.HTMLEncode ("Longitude: "))
Response.Write
(objBin.Longitude)
%>
</FONT>
</form>
</HTML
</body>