
05/05/2010, 21:29
|
| | Fecha de Ingreso: febrero-2010
Mensajes: 31
Antigüedad: 15 años, 1 mes Puntos: 0 | |
Ayuda No actualiza pliis hola que tal tengo un problema con esta pagina ya que no actualiza espero que me puedan ayudar:
<%@ 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
SqlStr = "Select * From Usuarios Where Nombre = '" & Request("nombre") & "' And Paterno = '" & Request("paterno") & "' And Materno = '" & Request("materno") & "'"
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
End If
Response.write Cadena
%>
</Biblioteca> |