Tengo este codigo que es para agregar ciertos campos a una BD access:
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>
Ahora mi consulta es como reemplazar el codigo para que en vez de agregar registros los borre segun el identificador. Creo que se soluciona solo cambiando la sentencia de la BD pero no estoy seguro.
Gracias de antemano.
Saludos.