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
Rispondi quotando
