<% @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>