Ver Mensaje Individual
  #1 (permalink)  
Antiguo 20/09/2004, 06:49
Avatar de ken-obi
ken-obi
 
Fecha de Ingreso: julio-2004
Ubicación: Alicante
Mensajes: 314
Antigüedad: 20 años, 9 meses
Puntos: 6
Problemas con rs.update

Wenas a todos ♥♥♥,
Tengo echo un formulario que llama a varios campos de una BD para modificarlas,
el problema es que cuando lo modifico me borra el primer registro, osea tengo 26 registros y quiero modificar el 13º registro lo envio al formulario y me sale el texto de el 13º registro, modifico, envio y... ME modifica EL registro sin tocar 13º registro... echadle un vistazo... al fragmento que tengo:

Código:
Set File = Upload.Files

tit = Upload.Form("tit")
artic = Upload.Form("artic")
tam = Upload.Form("tam")
tam2 = Upload.Form("tam2")
tipo = Upload.Form("tipo")
targ = Upload.Form("targ")
link = Upload.Form("link")
cont = Upload.Form("cont")
tex=replace(upload.form("tex"),chr(10),"<br>")



  ' Build ODBC connection string
  Connect = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../data/noticias.mdb")
' Connect = "Provider=SQLOLEDB;Server=SRV;Database=mydb;UID=sa;PWD=xxx"
   ' Use ADO Recordset object
   Set rs = Server.CreateObject("adodb.recordset")

rs.Open "not", Connect, 2, 3
	
For Each File in Upload.Files
   rs.Fields(File.Name) = File.FileName
   Next
   rs("tit") = tit
   rs("artic") = artic
   rs("tex") = tex
   rs("tam") = tam
   rs("tam2") = tam2
   rs("tipo") = tipo
   rs("targ") = targ
   rs("link") = link
   rs("cont") = cont
   rs("fecha")=now()
   rs.Update
set rs = nothing
   Response.write "<META HTTP-EQUIV='Refresh' CONTENT='2;URL=noticias_main.asp?url=1'>"
  Response.Write "<p>&nbsp;</p><table width='301' border='0' align='center' cellpadding='0' cellspacing='0' class='bordenegro'><tr><td align='center' valign='middle'><p>&nbsp;</p><b>:: Datos Guardados ::</b><p>&nbsp;</p></tr></td></table>"

%>
GRACIAS DE ANTEMANO A TODOS
__________________
Un mundo sin fin... !!! viva los moros y cristianos de ELDA !!!