este es el codigo "delete.asp" que es el llamante de "deletecomment.asp" (el codigo anterior)
gracias, suerte
<%
Dim Conn, Rs, sql
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("bdhomeromanzi.mdb")
sql= "SELECT * FROM tabeventos;"
Rs.Open sql, Conn
Response.Write "<FORM name='Delete' method='post' action='deletecomment.asp'>"
Response.Write "<font face=verdana><CENTER><table border=1 cellspacing=0>"
Response.Write "<tr>"&"<td colspan='6' align='center'><font size=1>"&"<font color=red><B>SELECCIONE UN EVENTO Y DE CLICK EN BORRAR para eliminar un evento</B></font>"&"</font></td>"&"</tr>"
Response.Write "</table></center>"
Response.Write "<br><br><br><br>"
Response.Write "<center><table border=1 cellspacing=0>"
Response.Write "<tr>"&"<th align='center' colspan='1'>"&"<font size=1 COLOR=RED>BORRAR</font>"&"</th>"&"<th align='center' colspan='1'>"&"<font size=1>Nombre Evento</font>"&"</th>"&"<th align='center' colspan='1'>"&"<font size=1>Descripciòn</font>"&"</th>"&"<th align='center' colspan='1'>"&"<font size=1>Fecha</font>"&"</th>"&"<th align='center' colspan='1'>"&"<font size=1>Lugar</font>"&"</th><th align='center' colspan='1'>"&"<font size=1>Hora</font>"&"</th></tr>"
Do While not Rs.EOF
Response.Write ("<tr>")
Response.Write ("<td>"&"<center><input type='radio' name='id' value="&Rs("nombre_evento")&"></center>"&"</td>")
Response.Write ("<td><font size=1>"&Rs("nombre_evento")&"</font></td>")
Response.Write ("<td><font size=1>"&Rs("descripcion")&"</font></td>")
Response.Write ("<td><font size=1>"&Rs("fecha")&"</font></td>")
Response.Write ("<td><font size=1>"&Rs("lugar")&"</font></td>")
Response.Write ("<td><font size=1>"&Rs("hora")&"</font></td>")
Response.Write ("</tr>")
Rs.MoveNext
Loop
Response.Write("<tr>"&"<td colspan='6' align='center'>"&"<input type ='submit' name='submit' value='Borrar' onClick='return validate();'>"&"</td>"&"</tr>")
Response.Write "</table></center></font>"
Response.Write "</form>"
Rs.Close
Set Rs = Nothing
Set Conn = Nothing
%>