Hola!
A ver me estoy volviendo loco, tengo MUY poca idea de sql, por no decir que ni se los conceptos o reglas básicas, pero estoy intentando borrar un registro y no me lo borra.
Vale os dejo la estructura de la web.
Tabla de noticias de la cual quiero eliminar una de ellas: http://adriangl.dyndns.org/noticias.asp
Formulario para borrar: http://adriangl.dyndns.org/prueba.asp
ASP que borra: http://adriangl.dyndns.org/borrar.asp
codigo prueba<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="Connections/ConexNoticias.asp" -->
<%
Dim Recordset1
Dim Recordset1_cmd
Dim Recordset1_numRows
Set Recordset1_cmd = Server.CreateObject ("ADODB.Command")
Recordset1_cmd.ActiveConnection = MM_ConexNoticias_STRING
Recordset1_cmd.CommandText = "SELECT TItulo FROM Tabla1"
Recordset1_cmd.Prepared = true
Set Recordset1 = Recordset1_cmd.Execute
Recordset1_numRows = 0
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Documento sin título</title>
</head>
<body>
<FORM METHOD="POST" ACTION="borrar.asp">
Nombre<br>
<select name="nombre">
<%
'Generamos el menu desplegable
sSQL="SELECT TItulo FROM Tabla1"
set RS = Recordset1_cmd.Execute(sSQL)
Do While not RS.eof%>
<option><%=RS("TItulo")%>
<%RS.movenext
Loop
%>
</select>
<br>
<INPUT TYPE="SUBMIT" value="Borrar">
</FORM>
</div>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
codigo borrar<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="Connections/ConexNoticias.asp" -->
<%
Dim Recordset1
Dim Recordset1_cmd
Dim Recordset1_numRows
Set Recordset1_cmd = Server.CreateObject ("ADODB.Command")
Recordset1_cmd.ActiveConnection = MM_ConexNoticias_STRING
Recordset1_cmd.CommandText = "SELECT TItulo FROM Tabla1"
Recordset1_cmd.Prepared = true
Set Recordset1 = Recordset1_cmd.Execute
Recordset1_numRows = 0
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<HTML>
<HEAD>
<TITLE>Borrar2.asp</TITLE>
</HEAD>
<BODY>
<%
'Recogemos los valores del formulario
nombre=Request.Form("nombre")
'Instanciamos y abrimos nuestro objeto conexion
'Ahora creamos la sentencia SQL
sSQL="Delete * From Tabla1 Where TItulo='" & nombre & "'"
'Ejecutamos la orden
set RS = Recordset1_cmd.Execute(sSQL)
%>
<h1><div align="center">Noticia (<%Response.Write nombre%>) borrada</div></h1>
<div align="center"><a href="lectura.asp">Visualizar el contenido de la base</a></div>
</BODY>
</HTML>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
En borrar.asp he impreso el valor de 'nombre', que lo recoje del formulario, para que veais que recojerlo lo recoje bien. Asi que supongo que el problema estará en encontrar ese dato y borrarlo.
Cualquier info es bienvenida!
