<% End If %>
<% If Request.Form() <> "" Then %>
<%
Dim strLatDeg, strLatMin, strLatSec, strLatval, strLonDeg, strLonMin, strLonSec, strLonval
If Request.Form("txtLatDeg") < ".1" Then
strLatDeg = "0"
Else strLatDeg = Request.Form("txtLatDeg")
End If
If Request.Form("txtLatMin") < ".1" Then
strLatMin = "0"
Else strLatMin = Request.Form("txtLatMin")/60
End If
If Request.Form("txtLatSec") < ".1" Then
strLatSec = "0"
Else strLatSec = Request.Form("txtLatSec")/3600
End If
If Request.Form("txtLonDeg") < ".1" Then
strLonDeg = "0"
Else strLonDeg = Request.Form("txtLonDeg")
End If
If Request.Form("txtLonMin") < ".1" Then
strLonMin = "0"
Else strLonMin = Request.Form("txtLonMin")/60
End If
If Request.Form("txtLonSec") < ".1" Then
strLonSec = "0"
Else strLonSec = Request.Form("txtLonSec")/3600
End If
strLatvala = cdbl(strLatDeg) + cdbl(strLatMin) + cdbl(strLatSec)
strLatval = formatnumber(strLatvala, 6)
strLonVala = (cdbl(strLonDeg) + cdbl(strLonMin) + cdbl(strLonSec))*(-1)
strLonval = formatnumber(strLonvala, 6)
%>
<% End If %>