<% zids = request("ids") parkid = receivevar(request("p"),"N") saddr = receivevar(request("saddr"),"X") Set OBJdbConnection = Server.CreateObject("ADODB.Connection") OBJdbConnection.Open Application("OBJdbConnection_ConnectionString") idsA = split(zids,",") if zids<>"" then SQLQuery = "select name,id,shortdesc,county,latitude,longitude,shortname,ra_id from theparks where id="&idsA(0)&"" 'response.write(SQLQuery) Set ds = OBJdbConnection.Execute(SQLQuery) if not ds.eof then zname = ds("name") 'zname = replace(zname,"'","\'",1,-1,1) parkid = CDbl(ds("id")) latitude = CDbl(ds("latitude")) longitude = CDbl(ds("longitude")) end if ds.close() set ds = nothing SQLQuery = "select name,id,shortdesc,county,latitude,longitude,shortname,ra_id from theparks where id in ("&zids&")" 'response.write(SQLQuery) Set zparks = OBJdbConnection.Execute(SQLQuery) end if %> Google Maps JavaScript API v3 Example: Directions Complex
Start Location:
Destination: