15/07/2008, 19:36
|
| | | Fecha de Ingreso: mayo-2008
Mensajes: 41
Antigüedad: 17 años Puntos: 0 | |
| error al modificar
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> |