Se duplican los registros...

[sbrasburg]

Segun en que maquina acceda, me ocurre que al dar un alta con asp y adodb en una base de datos de access se me duplican los registros. Quisiera saber si existe alguna forma de evitar esto.
Gracias

[Gurrutello]

hola
a ver si puedes poner el codigo que tienes
saludos

[sbrasburg]

<%
Sub Grabar(Opcion)
Dim StrArch
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Mode=2
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\aele\db\bd1.mdb"))


set rs=createobject("ADODB.Recordset")
rs.CursorType = 1
rs.LockType = 3
if opcion=1 then 'alta
StrArch="select * from " & NroCuenta & " where debito=-1"
else
if opcion=3 or opcion=6 or opcion=9 then
StrArch="select * from " & NroCuenta & " where id=" & DId
end if
end if

rs.open StrArch, Conn
if opcion=1 then
rs.addnew
else
if opcion=3 or opcion=6 or opcion=9 then
rs.movefirst
end if
end if

if opcion=9 then
rs.delete
else
rs("fecha")=ModFecha(FormatDateTime(Dfecha, 2))
rs("cod")=dtipomov
if destado="on" then
rs("estado")=1
else
rs("estado")=0
end if
rs("obs")=dobs
rs("credito")=dcredito
rs("debito")=ddebito
end if
rs.update
rs.close
set rs=nothing
Conn.close
set Conn=nothing

End Sub
%>

[LeCLUB]

Demasiados If...End If veo yo, seguro que el error biene por ahí.

Aunque yo lo optimizaría así :

1. Primero coges todas las variables que necesites
2. luego, mdiante CASE vas ejecutando SQL directamente según veas la opción de "opcion"
3. cierras todo

Ej:

Case 1

SQL = "UPDATE ... bla bla bla"

Case 2

SQL = "DELETE ... bla bla bla"

Case 3
Case ...

Y luego lo ejecutas Conn.Execute directamente