INSERT INTO lo hace dos veces

[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!!