Distance calculating

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   excellent, think ive got it!
try my example/test.... www.rochdaleoffroad.co.uk/pcdistance.asp
Lookup to far away point in autoroute, for example TR19 and KW1, should be 588 miles.
Below is the script for the whole page....

<% if NOT request("calc")="" then 
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open Server.MapPath("******")
set rs=Server.CreateObject("ADODB.recordset")
sql="SELECT * FROM tblPC WHERE pc ='" & request("pc1") & "'"
rs.Open sql, conn
do until rs.EOF
  for each entry in rs.Fields
x1=rs("lon")
y1=rs("lat")
     next
  rs.MoveNext
loop
  rs.close
  conn.close
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open Server.MapPath("/_private/postcodes.mdb")
set rs=Server.CreateObject("ADODB.recordset")
sql="SELECT * FROM tblPC WHERE pc ='" & request("pc2") & "'"
rs.Open sql, conn
do until rs.EOF
  for each entry in rs.Fields
x2=rs("lon")
y2=rs("lat")
     next
  rs.MoveNext
loop
  rs.close
  conn.close

xdif = 69.1 * (y2 - y1) 
ydif = 69.1 * (x2 - x1) * cos(y1/57.3) 
miles=SQR(xdif *xdif +ydif *ydif )

response.write "x1= " & x1& "<BR>"
response.write "y1= " & y1& "<BR>"
response.write "x2= " & x2& "<BR>"
response.write "y2= " & y2& "<BR>"
response.write "xdif = " & xdif & "<BR>"
response.write "ydif = " & ydif & "<BR>"

response.write "<P>" & miles & " miles" & "<hr>"
end if
%>
<form method="POST" action="pcdistance.asp">
<p>&nbsp;</p>
<p>Enter first part of post codes (e.g, OL11 for OL11 3RF)</p>
  <p>From postcode: <input type="text" name="pc1" size="4"><br>
  To postcode: <input type="text" name="pc2" size="4"><br>
  <input type="submit" value="Calculate mileage (Crows path)" name="calc"></p>
</form>