Como lo anuncio en el titulo el inconveniente con los ASP modificar y borrar de un humilde proyecto de estudiante en ASP, este es una galeria fotografica autogestionable :). Les comento tengo una base de datos en ACCESS, adentro una tabla GALERIA con los campos ID,H3,P,IMG. Bueno la consulta en ver.asp funciona bien je. Mi problema aparece cuando quiero hacer una pag que borre y modifque regiatros de la base de datos. Mi idea era hace un asp que imprima los registros de esta base de datos y un checkbox con el valor del id del registro, para cuando lo seleccione pueda borrar o modificar toda la linea, ya sea el titulo en el campo "h3", los textos "p" o una imagen en "img". Yo hice algo mas o menos pero mis conocimientos aun no dan para tanto
Bueno les dejo los codigos a ver si alguno me da una mano con este quilombete!!!
"ver.asp"
<%Set con = Server.CreateObject("ADODB.Connection")
con.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("galeria.mdb")
sql = "SELECT * FROM Galeria ORDER BY id DESC"
Set result = con.Execute(sql)
Do While Not result.EOF%>
<%=result("h3")%>
<%=result("p")%>
<img src="/imgs/<%=result("img")%>.jpg" />
<%
result.MoveNext
Loop
result.Close
Set result = Nothing
con.Close
Set con = Nothing
%>
ver-modif.asp
<form name="form1" method="post" action="borra.asp">
<input type="submit" value="Borrar">
<%
set cnn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.RecordSet")
cnn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("galeria.mdb")
sqltext = "SELECT * FROM Galeria ORDER BY id DESC"
Set rs = cnn.Execute(sqltext)
Do While Not rs.EOF
%>
<p><label>
<input type="checkbox" name="id" value="<%=rs("id")%>">
</label>
<label><%=rs("h3")%>
</label>
<label><%=rs("p")%>
</label><br/>
<label>
<img src="<%=rs("img")%>" width="320">
</label></p>
<%rs.MoveNext
Loop
rs.Close
Set rs = Nothing
cnn.Close
Set cnn = Nothing
%>
<input type="submit" value="Borrar">
</form>
"borra.asp"
<%
set cnn3 = Server.CreateObject("ADODB.Connection")
set rs3 = Server.CreateObject("ADODB.RecordSet")
cnn3.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("galeria.mdb")
sqltext3 = "DELETE * FROM Galeria where id='"&request.querystring("id")&"'"
cnn3.Execute(sqltext3)
rs3.CursorType=1
rs3.LockType=2
rs3.Delete
rs3.Update
rs3.Close
%>
Muchas Gracias! Saludos!!!