43 messaggi dal 06 settembre 2002
Vediamo se ho capito ..

1- Attraverso un form interroghi il database con il codice utente
2- Se vengono restituiti i record con gli ordini vuoi visualizzarli e fare i calcoli

E' cosi che devi fare?

Allora devi effettuare i calcoli all'interno del ciclo

If Not rs.eof then 'se l'utente esiste
Do While rs.eof
--
QUI i calcoli (es. totarticolo = rs("quantita") * rs("prezzo") e
la creazione del' output per la visualizzazione
--
rs.movenext
Loop
else
response.write "errore" ' se l'utente non esiste
end if

Ciao
Lello

Modificato da rsavarese il 12 febbraio 2004 18.23 -
47 messaggi dal 02 febbraio 2004
in che punto del codice:
<%@LANGUAGE="VBSCRIPT"%>
<%option explicit%>
<!--#include file="adovbs.inc"-->
<%dim objconn
set objconn=server.CreateObject("adodb.connection")
objconn.open="provider=Microsoft.Jet.Oledb.4.0; data source="&server.MapPath("mdb-database/ottica.mdb")
dim objrs, bolfound, strutente
strutente = request.Form("COD_UTENTE")
if strutente="" then
objconn.close
set objconn = nothing
response.Redirect("attenzione_ottica.asp")
response.end
end if
set objrs = server.CreateObject("adodb.recordset")
objrs.open "ORDINE" , objconn, ,adlockoptimistic, adcmdtable
bolfound = false
do while not (objrs.eof or bolfound)
if (strcomp(objrs("COD_UTENTE"), strutente,vbtextcompare) = 0) then
bolfound = true
else
objrs.movenext
end if
loop
if not bolfound then
objrs.close
set objrs = nothing
objconn.close
set objconn = nothing
response.Redirect("attenzione_ottica.asp")
response.end
end if
%>
47 messaggi dal 02 febbraio 2004
mi rispondi èer favore
43 messaggi dal 06 settembre 2002
mi8web ha scritto:
in che punto del codice:
<%@LANGUAGE="VBSCRIPT"%>
<%option explicit%>
<!--#include file="adovbs.inc"-->
<%dim objconn
set objconn=server.CreateObject("adodb.connection")
objconn.open="provider=Microsoft.Jet.Oledb.4.0; data source="&server.MapPath("mdb-database/ottica.mdb")
dim objrs, bolfound, strutente
strutente = request.Form("COD_UTENTE")
if strutente="" then
objconn.close
set objconn = nothing
response.Redirect("attenzione_ottica.asp")
response.end
end if
set objrs = server.CreateObject("adodb.recordset")
objrs.open "ORDINE" , objconn, ,adlockoptimistic, adcmdtable
bolfound = false
do while not (objrs.eof or bolfound)
if (strcomp(objrs("COD_UTENTE"), strutente,vbtextcompare) = 0) then
bolfound = true
else

'---------------
FAI I CALCOLI QUI.
'-------------

objrs.movenext
end if
loop
if not bolfound then
objrs.close
set objrs = nothing
objconn.close
set objconn = nothing
response.Redirect("attenzione_ottica.asp")
response.end
end if
%>


TI CONSIGLIO comunque una soluzione più semplice :


dim conn
dim rs
'apre la connessione
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
Server.MapPath("MDB-DATABASE/ottica.mdb")
'imposta query campi
strQuery = "SELECT * from ORDINE where COD_UTENTE='" & strUtente & "'"
Set rs = conn.Execute(strQuery)

If Not rs.eof then 'se l'utente esiste
Do While rs.eof
--
QUI i calcoli (es. totarticolo = rs("quantita") * rs("prezzo") e
la creazione del' output per la visualizzazione
--
rs.movenext
Loop
else
response.write "errore" ' se l'utente non esiste
end if

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.