Salve ragazzi, qualcuno tanto gentile potrebbe aiutarmi?

ho un problema: ho un modulo form chiamato "rma.asp" una volta riempiti tutti i campi mi assegna in automatico un numero di pratica con la proprietà "select COUNT (ID)" passando sull'altra pagina "reg_rma.asp"

il problema è che quando mi fa la stampa a video si ferma sempre sull'ultimo record e soltanto facendo un refresh poi scatta al numero successivo...dove è che sbaglio? vi posto il codice della pagina:


<%


Dim dtCorr
dtCorr = date()


Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open"Driver={Microsoft Access Driver (*.mdb)}; dbq=" & server.MapPath("/mdb-database/mio.mdb")

SQL = "select COUNT (ID) AS totaleRecord FROM user"

Set Rs = Server.createObject("ADODB.Recordset")

Rs.Open SQL, Conn

%>



<%

' Chiudi e distruggi oggetti
Rs.Close
Set Rs = Nothing


%>

<%
' recupero i campi del form

response.write (datarichiesta)
response.write (ragionesociale)
response.write (quantita1)
response.write (quantita2)
response.write (quantita3)
response.write (quantita4)
response.write (quantita5)
response.write (prodotto1)
response.write (prodotto2)
response.write (prodotto3)
response.write (prodotto4)
response.write (prodotto5)
response.write (marca1)
response.write (marca2)
response.write (marca3)
response.write (marca4)
response.write (marca5)
response.write (seriale1)
response.write (seriale2)
response.write (seriale3)
response.write (seriale4)
response.write (seriale5)
response.write (difetto1)
response.write (difetto2)
response.write (difetto3)
response.write (difetto4)
response.write (difetto5)



datarichiesta= trim(request.Form("datarichiesta"))
ragionesociale= trim(request.Form("ragionesociale"))
quantita1= trim(request.Form("quantita1"))
quantita2= trim(request.Form("quantita2"))
quantita3= trim(request.Form("quantita3"))
quantita4= trim(request.Form("quantita4"))
quantita5= trim(request.Form("quantita5"))

prodotto1= trim(request.Form("prodotto1"))
prodotto2= trim(request.Form("prodotto2"))
prodotto3= trim(request.Form("prodotto3"))
prodotto4= trim(request.Form("prodotto4"))
prodotto5= trim(request.Form("prodotto5"))

marca1= trim(request.Form("marca1"))
marca2= trim(request.Form("marca2"))
marca3= trim(request.Form("marca3"))
marca4= trim(request.Form("marca4"))
marca5= trim(request.Form("marca5"))

seriale1= trim(request.Form("seriale1"))
seriale2= trim(request.Form("seriale2"))
seriale3= trim(request.Form("seriale3"))
seriale4= trim(request.Form("seriale4"))
seriale5= trim(request.Form("seriale5"))

difetto1= trim(request.Form("difetto1"))
difetto2= trim(request.Form("difetto2"))
difetto3= trim(request.Form("difetto3"))
difetto4= trim(request.Form("difetto4"))
difetto5= trim(request.Form("difetto5"))



%>


<%

Dim conn, rs, id, ragionesociale, datarichiesta, quantita1, quantita2, quantita3, quantita4, quantita5, prodotto1, prodotto2, prodotto3, prodotto4, prodotto5, marca1, marca2, marca3, marca4, marca5, seriale1, seriale2, seriale3, seriale4, seriale5, difetto1, difetto2, difetto3, difetto4, difetto5, consuno, sql 'Dichiario le variabili



datarichiesta= request("datarichiesta")
ragionesociale = request("ragionesociale")
quantita1 = request("quantita1")
quantita2 = request("quantita2")
quantita3 = request("quantita3")
quantita4 = request("quantita4")
quantita5 = request("quantita5")
prodotto1 = request("prodotto1")
prodotto2 = request("prodotto2")
prodotto3 = request("prodotto3")
prodotto4 = request("prodotto4")
prodotto5 = request("prodotto5")
marca1 = request("marca1")
marca2 = request("marca2")
marca3 = request("marca3")
marca4 = request("marca4")
marca5 = request("marca5")
seriale1 = request("seriale1")
seriale2 = request("seriale2")
seriale3 = request("seriale3")
seriale4 = request("seriale4")
seriale5 = request("seriale5")
difetto1 = request("difetto1")
difetto2 = request("difetto2")
difetto3 = request("difetto3")
difetto4 = request("difetto4")
difetto5 = request("difetto5")
consuno = request("consuno")




set conn=Server.CreateObject("adodb.connection")

conn.open"Driver={Microsoft Access Driver (*.mdb)}; dbq=" & server.MapPath("/mdb-database/mio.mdb")


sql="select * from user where ragionesociale='" & ragionesociale & "'"


set rs=Server.CreateObject("adodb.recordset")

rs.open sql, conn, 1, 3


if not rs.eof then



rs.close

conn.close

set rs=nothing

set conn=nothing

response.end


else


rs.addnew

rs("datarichiesta")=datarichiesta
rs("ragionesociale")=ragionesociale
rs("quantita1")=quantita1
rs("quantita2")=quantita2
rs("quantita3")=quantita3
rs("quantita4")=quantita4
rs("quantita5")=quantita5
rs("prodotto1")=prodotto1
rs("prodotto2")=prodotto2
rs("prodotto3")=prodotto3
rs("prodotto4")=prodotto4
rs("prodotto5")=prodotto5
rs("marca1")=marca1
rs("marca2")=marca2
rs("marca3")=marca3
rs("marca4")=marca4
rs("marca5")=marca5
rs("seriale1")=seriale1
rs("seriale2")=seriale2
rs("seriale3")=seriale3
rs("seriale4")=seriale4
rs("seriale5")=seriale5
rs("difetto1")=difetto1
rs("difetto2")=difetto2
rs("difetto3")=difetto3
rs("difetto4")=difetto4
rs("difetto5")=difetto5
rs("datarichiesta") = dtCorr
rs.Fields("consuno")= consuno


rs.update

rs.close

conn.close

set rs=nothing

set conn=nothing