INSERT INTO lo hace dos veces

[encator]

Hola a todos, tengo un form me diante el cual el usuario introduce una serie de datos en un bbdd, el problema que tengo es que cuando pincho un botón que es Registrar me hace dos veces el INSERT. En teoría lo que tiene que hacer es tras pulsar el INSERT introducir en la tabla correspondiente 7 registros, pero en vez de hacer esto me mete 14 registros, me los duplica.
Código:

<%if ((request.form("txtDesde") <>"") and (request.Form("txtHasta")<>"")) then
Set adoConexion = Server.CreateObject("ADODB.Connection")
DSNName = "DRIVER=Microsoft Access Driver (*.mdb);DBQ="
DSNName = DSNName & Server.MapPath("../bbdd/parte_semanal.mdb")
adoConexion.Open DSNName
sempleado = request.Form("txtCempleado")
m = 1
n = 1
Do While n < 8
sDia = request.Form("txtDia"&n&"")
sProy = request.Form("selNproy"&n&"")
sCod = request.Form("selCod1"&n&"")
sDietas = request.Form("txtDietas"&n&"")
sKm = request.Form("txtKm"&n&"")
sImpkm = request.Form("txtImpkm"&n&"")
sOtros = request.Form("txtOtros"&n&"")
miConsulta = "INSERT INTO registro (id,dia,n_proyecto,codigo,dietas,km,euros,otros,id _empleado)"
miConsulta = miConsulta & " VALUES ('"&m&"','"&sDia&"','"&sProy&"','"&sCod&"','"&sDie tas&"','"&sKm&"','"&sImpkm&"','"&sOtros&"','895')"
Set rs = adoConexion.execute(miConsulta)

m = m+1
n = n+1
Loop
adoConexion.Close()
adoConexion = null
end if%>

[trasgukabi]

Hubo un post hace un tiempo sobre un error igual a éste que sólo lo provocaba si el navegador era IE para Mac(creo recordar). Utiliza el buscador, ya que tampoco me acuerdo si al final se resolvió.

Y un par de anotaciones:
Set rs = adoConexion.execute(miConsulta)
En esta línea no es necesario que pongas SET RS, ya que no esperas valores de retorno.con que pongas
adoConexion.execute(miConsulta)
ya vale.

y otra: no es necesario que inicialices dos variables (n y m). Con n, la del contador, ya te valdría para rellenar el campo.

[Myakire]

Estos post me suenan a: "Debuguen el programa por mi y diganme que le cambio"

[Myakire]

jejeje, y funcionó contigo orharo

[trasgukabi]

orharo está bien, lo que pasa es que la caja de texto corta la linea,

[AlZuwaga]

Igualmente, en el caso que esa parte estubiese mal en el código original, daría error de "cadena sin terminar". No duplicaría el insert porque no se efectuaría ;)

[Neuron_376]

Prueba esto...

<%
'Declarar las variables
Dim m
Dim n
%>

<%if ((request.form("txtDesde") <>"") and (request.Form("txtHasta")<>"")) then
Set adoConexion = Server.CreateObject("ADODB.Connection")
DSNName = "DRIVER=Microsoft Access Driver (*.mdb);DBQ="
DSNName = DSNName & Server.MapPath("../bbdd/parte_semanal.mdb")
adoConexion.Open DSNName
sempleado = request.Form("txtCempleado")
m = 1
n = 1
Do While n < 8
sDia = request.Form("txtDia"&n&"")
sProy = request.Form("selNproy"&n&"")
sCod = request.Form("selCod1"&n&"")
sDietas = request.Form("txtDietas"&n&"")
sKm = request.Form("txtKm"&n&"")
sImpkm = request.Form("txtImpkm"&n&"")
sOtros = request.Form("txtOtros"&n&"")
miConsulta = "INSERT INTO registro (id,dia,n_proyecto,codigo,dietas,km,euros,otros,id _empleado)"
miConsulta = miConsulta & " VALUES ('"&m&"','"&sDia&"','"&sProy&"','"&sCod&"','"&sDie tas&"','"&sKm&"','"&sImpkm&"','"&sOtros&"','895')"
Set rs = adoConexion.execute(miConsulta)

m = m+1
n = n+1
Loop
adoConexion.Close()
adoConexion = null

Response.write "Revisa la tabla, que solo tenga 7, es probable que fuera de este codigo que pusiste haya algo que este ejecutando esta parte 2 veces"

Response.End()

end if%>

Re

Suerte!!

[orharo2003]

Cierto, no había leido bien que inserta 7 veces y lo duplica.
Lo que pasa que atiendo varias cosas a la vez y se derrepente se me patina el coco . El código está bien, es probable que este repetido adoConexion.execute(miConsulta).

es todo el código o falta algún fragmento. ? Este tipo de errores suelen ser de humanos.

jajaja mejor borro lo que escribi x que me da pena jajaja

[mmowoa]

Bueno, yo tengo exactamente el mismo problema. Pero haciendo pruebas como sugirieron más arriba, el problema sucede solamente utilizando el explorer, con Firefox todo va lo más bien, no se crean los insert's x 2.

Cosa mas rara... sera cuestión de algun meta tag o algo así?

[mmowoa]

Bueno, me contesto solo... el problema residía con el javascript validador de los campos, q hacia un 'submit' doble. Cuestion q para quien tenga el mismo problema, pruebe deshabilitar estos validadores. Recordar no debuggear solo la página asp del proceso, sino tambien, la q contiene el formulario.

Saludos.