
25/06/2002, 16:34
|
| | Fecha de Ingreso: junio-2002
Mensajes: 11
Antigüedad: 22 años, 11 meses Puntos: 0 | |
Re: Borrar registros siiiii, asi lo estoy haciendo, te pongo todo mi codigo para que lo veas, el problema es que exista o no el nombre siempre me manda el mensaje de que no existe nadie con ese nombre ¿como vez???
*****************
Set oConn=Server.CreateObject("ADODB.Connection&q uot;)
oConn.Open strConnectionString
Set rsdel = Server.CreateObject ("ADODB.Recordset")
Set rs = Server.CreateObject ("ADODB.Recordset")
strSQL = "SELECT * FROM empleados WHERE Nombre ='" &nombre& "' and Apellido ='" &apellido& "'"
Response.Write strSQL & "<BR>"
rs.Open strSQL, oConn
if not(rs.eof) and not(rs.bof) then
strSQL = "DELETE FROM empleados WHERE Nombre='"&nombre&"' and Apellido='"&apellido&"'"
set rsdel= oConn.execute(strSQL)
Response.Write ("<p> Nombre borrado: " & Nombre & " " & Apellido & " " & "<br>")
rsdel.close
else
Response.Write ("No existe nadie con el nombre "& Nombre)
end if
rs.Close
oConn.Close
%> |