Result of Database Query - ASP/VBSCript

<% set myconn = server.createobject("adodb.connection") dbpath = server.mappath("/~cm1901\petersdbs") connection = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & dbpath & "\gazetteer.mdb" myconn.open (connection) set result = server.createobject("adodb.recordset") sql = "SELECT * FROM gazetteer WHERE feature ='" & request("place") & "'" set result = myconn.execute(sql) if not result.EOF then response.write("

Data for " & request("place")) response.write("
Latitude Longitude Easting Northing") while not result.EOF response.write("
" & result("latitude")) response.write(" " & result("longitude")) response.write(" " & result("easting")) response.write(" " & result("northing")) result.movenext() wend response.write("
") else response.write("

Latitude	Longitude	Easting	Northing") while not result.EOF response.write("
" & result("latitude")) response.write("	" & result("longitude")) response.write("	" & result("easting")) response.write("	" & result("northing")) result.movenext() wend response.write("

No Entry for " & request("place")) end if %>