hola que tal lo que pasa que estoy haciendo un proyecto en el que en una sola pantalla tengo que borrar y actualizar, pero tengo problemas con una parte del codigo en asp no me actualiza pero en cuanto al borrado lo marca que si pero checo la base de datos y sigue el registro:
<%@ Language=VBScript%>
<%
Response.ContentType="text/xml"
Response.Write "<?xml version='1.0' ?>" & vbNewLine
Response.Write "<Biblioteca>" & vbNewLine
Dim Db ' Se define la variable que se utilizara como apuntador de la Base de Datos
Dim Rs ' Se define la variable que se utilizara como apuntador del los registros
Dim Filtro ' Se define la varible con los filtros que se utilizaran en la consulta
Dim SqlStr
Set Db = CreateObject("ADODB.Connection") ' Instancia el objeto de conexion
Set Rs = CreateObject("ADODB.RecordSet")
db.open "DSN=biblioteca2"
If Request("proceso") = 1 Then
If Replace(Trim(Request("nombre") & Request("paterno") & Request("materno") & Request("edad") & Request("direc") & Request("deleg") & Request("telefono"))," ","") = "" Then
Cadena = " <Datos>" & vbNewLine
Cadena = Cadena & " <Resultado>No se puede actualizar en vacio</Resultado>" & vbNewLine
Cadena = Cadena & " </Datos>" & vbNewLine
Else
If Rs.State Then Rs.Close
Rs.Open SqlStr,db
If Rs.EOF Then
If Rs.State Then Rs.Close
SqlStr="Update Usuarios set Nombre='" & Request("nombre") & "', Apellmat='" & Request("materno") &"', Apellpat='" & Request("paterno ") & "', edad='" & Request("edad") & "', dirreccion='" & Request("direc") & "', Delegacion='" & Request("deleg ") & "', Telefono='" & Request("telefono") & "', where IdUser ='" & Request("idus") & "'"
Rs.Open SqlStr,db
Cadena = " <Datos>" & vbNewLine
Cadena = Cadena & " <Resultado>Registro Actualizado con exito</Resultado>" & vbNewLine
Cadena = Cadena & " </Datos>" & vbNewLine
Else
Cadena = " <Datos>" & vbNewLine
Cadena = Cadena & " <Resultado>Este registro ya existe imposible agregar</Resultado>" & vbNewLine
Cadena = Cadena & " </Datos>" & vbNewLine
End IF
End IF
Else
If Request("proceso") = 2 Then
SqlStr = "DELETE From Usuarios Where IdUser = '" & Request("idus") & "' And Nombre = '" & Request("nombre") & "' And Apellpat = '" & Request("paterno") & "' And Apellmat = '" & Request("materno") & "' And edad = '" & Request("edad") & "'And dirreccion = '" & Request("direc") & "'And Delegacion = '" & Request("deleg ") & "'And Telefono = '" & Request("telefono") & "'"
If Rs.State Then Rs.Close
Rs.Open SqlStr,db
Cadena = " <Datos>" & vbNewLine
Cadena = Cadena & " <Resultado>Registro borrado</Resultado>" & vbNewLine
Cadena = Cadena & " </Datos>" & vbNewLine
Else
Cadena = " <Datos>" & vbNewLine
Cadena = Cadena & " <Resultado>No se han especificado parametros</Resultado>" & vbNewLine
Cadena = Cadena & " </Datos>" & vbNewLine
End If
End If
Response.write Cadena
%>
</Biblioteca>
espero su ayuda
