error al modificar

pussy · #1 (**permalink**) 15/07/2008, 19:36

bueno nuevamente vuelvo por un problema raro resulta que estaba codificando mi pagina de acciones pero la accion modificar me de movidicar me elimina por favor si me puede ayudar se lo agradeceria
mi codigo son:

<html>
<head>
<title>accionesantivirus.asp</title>
</head>

<body>
<%
series=request.form("serie")
nuss=request.form("nus")
caract=request.form("caracteristica")
funciones=request.form("funcion")

dim conectar,RS
' Creamos la conexión a la base de datos sin DSN
set conectar = Server.CreateObject("ADODB.Connection")
set RS = Server.CreateObject("ADODB.RecordSet")
conectar.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("I_otros.mdb")
'conectar.open "cobranza_sql"
eliminar=request.Form("Elimina")
modificado=request.Form("Modificar")
crea=request.Form("crear")
'response.write(botuno)
'response.write(eliminar)
'response.write(crea)

if (eliminar="Elimina") then
if series = "" or nuss ="" then
error = "Debe completar todos los datos."
Response.Write error
Response.End
Else
sql = "delete * FROM I_otros where (serie='"&series&"' or nus='"&nuss&"')"
RS.Open sql,conectar,3,3
Response.Write "los dato se an eliminado por compreto"
end if
end if

if (crea="Crear") then
sql = "SELECT * FROM I_otros"
RS.Open sql,conectar,3,3
if RS.eof then
RS.AddNew
RS("serie") = series
RS("nus") = nuss
RS("caracteristica") = caract
RS("funcion") = funciones
RS.update
else
response.redirect "hoja.asp"
end if
end if
if (modificado ="Modificar") then
sql = "SELECT * FROM I_otros where serie ='" & request.querystring("series")&"'"
RS.Open sql,conectar,3,3
If RS.EOF then
Response.Write("La consulta a la base de datos no arrojo ningún resultado.")
else
RS("nus") = nuss
RS("caracteristica") = caract
RS("funcion") = funciones
RS.update
end if
else
response.redirect "hoja.asp"
end if

RS.Close
set RS = Nothing
conectar.Close
set conectar = Nothing
%>
</body>
</html>

Shiryu_Libra · #2 (**permalink**) 15/07/2008, 21:40

podrias poner el formulario??

otra cosa, te haz dado cuenta que solicitas las dos opciones, y he de imaginar que tienes estos dos botones en el mismo formulario y al dar enviar o click en alguno de los botones, estos llevan los valores y como eliminar esta primero, logicamente realiza esa primera accion y en resultado al intentar modificar produce un error de no encontrado

verdad?

pussy · #3 (**permalink**) 15/07/2008, 22:25

una acotacion eme repeta la opcione si sse aprepa la opcion eliminar elinar si no apreta crear cre pero el pobrema que no modifica pero mi formulario es :

<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Documento sin título</title>
</head>

<body>

<form name="form1" method="post" action="eliminar.asp">
<label>serie
        &n bsp;    
<input name="serie" type="text" id="serie">
</label>
<p>
<label>nus      &nbs p;          
<input name="nus" type="text" id="nus">
</label>
</p>
<p>
<label>Caracteristica
<input name="caracteristica" type="text" id="caracteristica">
</label>
</p>
<p>
<label>funcion           
<input name="funcion" type="text" id="funcion">
</label>
</p>
<p>
<label><b>
<input type="submit" value="Elimina" name="Elimina">
</b><b>
<input type="submit" value="Crear" name="Crear">
</b></label>
<label><b>
<input type="submit" value="Modificar" name="Modificar">
</b></label>
 </p>
</form>
</body>
</html>

Shiryu_Libra · #4 (**permalink**) 15/07/2008, 23:30

en lugar de esto:

Cita:

puedes realizar esto:

Cita:

<label><b>Elimina<input type="radio" name="mtdo" /></b><b>
<label><b>Crear<input type="radio" name="mtdo" /></b><b>
<label><b>Modificar<input type="radio" name="mtdo" /></b><b>
<label><b>Modificar<input type="submit" Value="Realizar" /></b><b>

y el request te quedaria de esta forma, eliminando estas 3 instrucciones

Cita:

eliminar=request.Form("Elimina")
modificado=request.Form("Modificar")
crea=request.Form("crear")

por una simple linea

Cita:

mtdo=request.Form("mtdo")

logicamente, ya no evaluarias ninguna de las 3, sino simplemente "mtdo"

Cita:

if mtdo="algo"then
etc...
etc...

pero lo mas sencillo seria ponerlo dentro de un "select"

Cita:

select case mtdo
case "crear"
aqui el codigo que crea
case "eliminar"
el de eliminar aqui
case "modificar"
modificar??
end select