#1 Dificultades con un sys asp autogestionable
Hola gente este es mi primer post. Les comento haces medio año que estoy estudiando asp (de tutoriales, nada formal je). Estoy envuelto en un sistema autogestionable de prueba para una galeria de fotos.
Mi sistema esta compuesto por ver.asp (donde se visualizan las imagenes), lista-b.asp (en el cual alisto las lineas de registros de mi base de datos access, para ser borrada la que selecciono con checkbox), lista-m.asp (en el cual alisto las lineas de registros de mi base de datos access, para ser modificada la que selecciono con checkbox), borrar.asp (borre registro), modifica.asp (que medifique ciertos datos de la linea de registro y actualice).
Bueno en esto último tengo dificultades. No puedo borrar ni modifacar, aqui donde pido todas las fuerzas de psicofxp para la salida de este Mi Pantano.

Aqui les dejo mis código para que los verifiquen:


Ver.asp
Código:
<%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%>
<h3><%=result("h3")%></h3>
<p><%=result("p")%></p>
<img src="<%=result("img")%>" />
<%
result.MoveNext
Loop
result.Close
Set result = Nothing
con.Close
Set con = Nothing
%>


Lista-b.asp
Código:
<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>
Lista-m.asp
Código:
<form name="form1" method="post" action="modifica.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><input type="text" name="h3" value="<%=rs("h3")%>"  />
  </label>
  <label><input type="text" name="p" value="<%=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="Actualizar">
</form>
Borra.asp
Código:
<%
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
%>
Modifica.asp
Código:
<%
set cnn2 = Server.CreateObject("ADODB.Connection")
set rs2 = Server.CreateObject("ADODB.RecordSet")

cnn2.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("galeria.mdb")

sqltext2 = "SELECT * FROM Galeria where id='"&request.querystring("id")&"'"
rs2.Open sqltext2,cnn2,3,3

h3="&request.querystring("h3")&"
p="&request.querystring("p")&"
img="&request.querystring("img")&"

rs2("h3") = h3
rs2("p") = p
rs2("img") = img
rs2.update

rs2.Close
set rs2 = Nothing
cnn2.Close
set cnn2 = Nothing
%>
Espero puedan resolver este problemita en que me encuentro.

Muchas Gracias!

Suludos amigos!!!

Responder a este tema

Citar

+
 
0
Me gusta
 
| Más