Código HTML:
<%@ Language=VBScript %> <html> <head> <title>Registro de Marcadores</title> <!-- mapa--> <style> #mapa{ width: 700px; height: 450px; float:left; background: white; } #infor{ width: 700px; height: 450px; float:left; } </style> <script type="text/javascript" src="http://maps.googleapis.com/maps/api/js?sensor=false"></script> <script type="text/javascript" src="http://code.jquery.com/jquery-2.0.3.min.js" ></script> <script> var marcadores_nuevos = []; function quitar_marcadores(lista) { for (i in lista) { lista[i].setMap(null); } } $(document).on("ready", function () { var formulario = $("#formulario"); var punto = new google.maps.LatLng(-11.67840, -76.39702); var config = { zoom: 10, center: punto, mapTypeId: google.maps.MapTypeId.ROADMAP }; var mapa = new google.maps.Map($("#mapa")[0], config); google.maps.event.addListener(mapa, "click", function (event) { var coordenadas = event.latLng.toString(); coordenadas = coordenadas.replace("(", ""); coordenadas = coordenadas.replace(")", ""); var lista = coordenadas.split(","); var direccion = new google.maps.LatLng(lista[0], lista[1]); var marcador = new google.maps.Marker({ position: direccion, map: mapa, animation: google.maps.Animation.DROP, draggable: true }); formulario.find("input[NAME='coorx']").val(lista[0]); formulario.find("input[NAME='coory']").val(lista[1]); formulario.find("input[name='titulo']").focus(); marcadores_nuevos.push(marcador); google.maps.event.addListener(marcador, "click", function () { }); quitar_marcadores(marcadores_nuevos); marcador.setMap(mapa); }); }); </script> <!-- mapa--> </head> <!--mapa--> <div id="mapa"> <h2> mapa</h2> </div> <div id="infor"> <!--mapa--> <% If Not Request.QueryString("Message") = "True" Then %> <p> <FORM NAME="GuestBook1" METHOD="GET" ACTION="AgregarBD.asp"> <table> <tr> <td><font face="arial">Titulo:</td><td><INPUT TYPE="TEXT" NAME="tit" size="30"></td> </tr><tr> <td><font face="arial">Descripcion:</td><td><INPUT TYPE="TEXT" NAME="des" size="30"></td> </tr><tr> <td><font face="arial">Coordenada x:</td><td><INPUT TYPE="TEXT" NAME="coorx" size="30"></td> </tr><tr> <td><font face="arial">Coordenada y:</td><td><INPUT TYPE="TEXT" NAME="coory" size="30"></td> </tr><tr> <td><font face="arial">Identificador:</td><td><INPUT TYPE="TEXT" NAME="iden" size="30"></td> </tr> </table> </p> <p> <INPUT TYPE="HIDDEN" NAME="Message" VALUE="True"> <INPUT TYPE="SUBMIT" VALUE="Guardar Datos"> </FORM> </p> <% Else dim strTB1, strTB2, strTB3, strTB4, strMB1, strCommand strTB1 = Server.HTMLEncode(Request.QueryString("tit")) strTB2 = Server.HTMLEncode(Request.QueryString("des")) strTB3 = Server.HTMLEncode(Request.QueryString("coorx")) strTB4 = Server.HTMLEncode(Request.QueryString("coory")) strMB1 = Server.HTMLEncode(Request.QueryString("iden")) if strTB1="" and strTB2="" and strTB3="" and strTB4="" then Response.Write("Debe ingresar los datos...") Elseif (not isNumeric(StrMB1)) then Response.Write("...") else strProvider = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Nueva carpeta\PRUEBADB.mdb;" Set objConn = server.createobject("ADODB.Connection") objConn.Open strProvider strCommand = "INSERT INTO grabar (titulo, descripcion, coordenadax, coordenaday, identificador) VALUES ('" strCommand = strCommand & strTB1 & "','" & strTB2 & "','" & strTB3 & "','" & strTB4 & "','" & strMB1 strCommand = strCommand & "')" objConn.Execute strCommand Response.Write("Datos agregados correctamente.") end if End If %> <center> <a href="index.html">Volver ala página de Inicio</a><br><br> <a href="AgregarBD.asp">Agregar otro registro</a> </center> </font> <body> </body> </html>
Gracias de antemano.
Saludos.