Hola me gustaria saber que es lo que estoy haciendo mal ya que tengo unos campos longitud y latitud que quiero enviarlos a una base de datos Miformulario.mdb (tabla
coordenadas compuesta por latitud y longitud) y no se si tengo mal el codigo asp o cual.
Espero que me puedan ayudar un saludo.
Aqui pongo el codigo de las paginas a ver que opinan:
pagina index.htm
<body>
<div id="map" style="width: 836px; height: 515px"></div>
<div id="geo" style="width: 232px;position: absolute;left: 856px;top: 19px; height:311px" class="tekst">
<form name="setLatLon" action="coordenadas.asp">
<b>* Coordenadas:</b><br />
<table>
<tr><td>* Latitud:</td><td><input type='text' name='lat' id="frmLat"></td></tr>
<tr><td>* Longitud:</td><td><input type='text' name='lon' id="frmLon"></td></tr>
</table>
<input name="submit" type="submit" value="Enviar datos">
</form><br />
<b>* Flickr tags:</b><br />
<textarea id="geocode" cols="26" rows="2"></textarea><br />
<br />
<b>* RoboGEO tags:</b><br />
<textarea id="geocodeRoboGEO" cols="26" rows="2"></textarea><br />
* <a href="#" target="_blank" id="multimap">Multimapa</a><br />
* <a href="#" id="maplink">Link Permanente</a><br /><br />
<script type="text/javascript">
<!--
google_ad_client = "pub-1588116269263536";
google_alternate_color = "FFFFFF";
google_ad_width = 234;
google_ad_height = 60;
google_ad_format = "234x60_as";
google_ad_type = "text";
//2006-09-30: Map
google_ad_channel ="0993881556";
google_color_border = "DDDDDD";
google_color_bg = "DDDDDD";
google_color_link = "0000FF";
google_color_text = "333333";
google_color_url = "333333";
//-->
</script>
<script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>
</div>
<script type="text/javascript">
//<![CDATA[
var baseLink = "http://www.gorissen.info/Pierre/maps/googleMapLocation.php";
var multimapBaseLink = "http://www.multimap.com/map/browse.cgi?scale=10000&icon=x";
var geocoder = new GClientGeocoder();
var setLat = 27.958611;
var setLon = -15.5925;
// argItems code taken from
//
http://www.evolt.org/article/Javascr.../?format=print
function argItems (theArgName) {
sArgs = location.search.slice(1).split('&');
r = '';
for (var i = 0; i < sArgs.length; i++) {
if (sArgs[i].slice(0,sArgs[i].indexOf('=')) == theArgName) {
r = sArgs[i].slice(sArgs[i].indexOf('=')+1);
break;
}
}
return (r.length > 0 ? unescape(r).split(',') : '')
}
function getCoordForAddress(response) {
if (!response || response.Status.code != 200) {
alert("Sorry, we were unable to geocode that address\n\n Sorry, dat adres bestaat blijkbaar niet!");
} else {
place = response.Placemark[0];
setLat = place.Point.coordinates[1];
setLon = place.Point.coordinates[0];
setLat = setLat.toFixed(6);
setLon = setLon.toFixed(6);
document.getElementById("frmLat").value = setLat;
document.getElementById("frmLon").value = setLon;
}
placeMarker(setLat, setLon)
}
function placeMarker(setLat, setLon) {
var message = "Latitud=" + setLat + "Longitud=" + setLon + " ";
document.getElementById("geocode").value = message;
var messageRoboGEO = setLat + ";" + setLon + "";
document.getElementById("geocodeRoboGEO").value = messageRoboGEO;
document.getElementById("geocode").focus();
document.getElementById("geocode").select();
document.getElementById("maplink").href = baseLink + "?lat=" + setLat + "&lon=" + setLon ;
document.getElementById("multimap").href = multimapBaseLink + "&lat=" + setLat + "&lon=" + setLon ;
document.getElementById("frmLat").value = setLat;
document.getElementById("frmLon").value = setLon;
var map = new GMap(document.getElementById("map"));
map.addControl(new GMapTypeControl());
map.addControl(new GLargeMapControl());
map.addControl(new GScaleControl());
map.addControl(new GOverviewMapControl());
map.setMapType(G_NORMAL_MAP);
map.centerAndZoom(new GPoint(setLon, setLat), 8);
var point = new GPoint(setLon, setLat);
var marker = new GMarker(point);
map.addOverlay(marker);
GEvent.addListener(map, 'click', function(overlay, point) {
if (overlay) {
map.removeOverlay(overlay);
} else if (point) {
map.recenterOrPanToLatLng(point);
var marker = new GMarker(point);
map.addOverlay(marker);
var matchll = /\(([-.\d]*), ([-.\d]*)/.exec( point );
if ( matchll ) {
var lat = parseFloat( matchll[1] );
var lon = parseFloat( matchll[2] );
lat = lat.toFixed(6);
lon = lon.toFixed(6);
var message = "Latitud=" + lat + "Longitud=" + lon + " ";
var messageRoboGEO = lat + ";" + lon + "";
} else {
var message = "<b>Error extracting info from</b>:" + point + "";
var messagRoboGEO = message;
}
marker.openInfoWindowHtml(message);
document.getElementById("geocode").value = message;
document.getElementById("geocodeRoboGEO").value = messageRoboGEO;
document.getElementById("geocode").focus();
document.getElementById("geocode").select();
document.getElementById("maplink").href = baseLink + "?lat=" + lat + "&lon=" + lon ;
document.getElementById("multimap").href = multimapBaseLink + "&lat=" + lat + "&lon=" + lon ;
document.getElementById("frmLat").value = lat;
document.getElementById("frmLon").value = lon;
}
});
}
function findAddress() {
myAddress = document.getElementById("address").value;
geocoder.getLocations(myAddress, getCoordForAddress);
}
if (argItems("lat") == '' || argItems("lon") == '') {
placeMarker(setLat, setLon);
} else {
var setLat = parseFloat( argItems("lat") );
var setLon = parseFloat( argItems("lon") );
setLat = setLat.toFixed(6);
setLon = setLon.toFixed(6);
placeMarker(setLat, setLon);
}
//]]>
</script>
<!-- Start twatch code -->
<script type="text/javascript"><!--
//<![CDATA[
document.write('<scr'+'ipt type="text/javascript" src="/Pierre/twatch/jslogger.php?ref='+( document["referrer"]==null?'':escape(document.referrer))+'&pg='+escape (window.location)+'&cparams=true"></scr'+'ipt>');
//]]>
//--></script>
<!-- End twatch code -->
</body>
pagina coordenadas.asp
<%
Set BD=Server.CreateObject("ADODB.Connection")
BD.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.Mappath("Miformulario.mdb")
BD.Open
'Conectamos con la base de datos
Set RC=Server.CreateObject("ADODB.Recordset")
'Creamos un Recordset para localizar los registros
query="SELECT * FROM coordenadas WHERE lat='" & request.form("lat") & "'"
'Formamos el query seleccionando el campo Registro con los valores que provienen del formulario
RC.Open query,BD
if RC.EOF then
'Si RC llega al fin de fichero el registro no existe en la base de datos y se puede insertar
query="INSERT INTO Miformulario (lat, lon) VALUES('" & request.form("lat") & "','" & request.form("lon") & "')"
Response.Write ("¡¡Registro insertado correctamente!!")
'Limpiamos la variable de sesion Imagen
else
Response.Redirect("erroregistro.asp")
'Si ya existe dicho registro redireccionamos a erroregistro.asp
end if
BD.Close
%>