Newsgroup: it.comp.www.asp
Titolo: [Help] Controllo campi

Salve, ho un problema di questo tipo che non riesco a risolvere.
Devo controllare da una form di input se il valore che mi passano è presente
nel Db, se si devo effettuare dei calcoli.
Per fare questo utilizzo due pagine asp (mi servono per far riapparire
uguale il video dopo che mando in esecuzione il controllo)
Nella prima (conv.asp)faccio creare una select prendendo i valori da una
tabella, e allo stesso tempo faccio inserire il campo che mi interessa
controllare.
Nella seconda conv_1.asp devo verificare l'esistenza di questo valore nel Db
e poi se esiste effettuare dei calcoli.
Credo di essermi un po' intrecciato, se qualcuno potesse darmi una mano....
Grazie!
********** conv.asp
<!-- apro la connessione -->
<%
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "Pippo","...","....."
Set rcs=Conn.Execute("SELECT * FROM mio_cassandra")
%>
............
.............
...............
<tr>
<td>
<!--  faccio inserire da video la propria email -->
<font size="2"><b>Insert Email</b></font>
<form method="post" action="conv_1.asp" name="formema">
<input type="Text" name="email_check" size="20" maxlength="20">
</td>
</tr>
</form>
<form method="post" action="conv_1.asp" name="formnaz">
<tr>
<td colspan="9" bgcolor="#E0E0E0" align="center" >
<!-- faccio selezionare la nazione -->
<font size="2"><b>SELECT THE STATE</b></font>
<!-- creo lista nazioni -->
<%
Session("nazione")=""
Set rcsnaz=Conn.execute("select * from mio_nazioni")
%>
<select name="country" size="1">
<%Do While Not rcsnaz.EOF %>
<option value=<%=rcsnaz("ZonaTariffari")%>> <%=rcsnaz("nazione")%> </option>
<%
rcsnaz.MoveNext
Loop
%>
</select>
.....
.........
<%
Conn.Close
%>
<!--  chiudo la connessione -->
</body>
</html>
***********    conv_1.asp
<!--  apro la connessione -->
<%
For Each x In Request.Form
	Session(x)=Request.Form(x)
Next
%>
<%
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "Pippo","...","....."
Set rcs=Conn.Execute("SELECT * FROM mio_cassandra")
%>
<!-- preparo il rekord per leggere le email-->
<%Set rcsema=Conn.execute("select * from mio_email")%>
<!-- riprendo la variabile da cercare -->
<%email_da_cercare=request.form("email_check")%>
<%Do while not rcsema.EOF %>
<!-- controllo se esiste nel database -->
<%If rcsema(email)="email_da_cercare" Then%>
<!-- se esiste metto a uno il campo controllo-->
<%set campo_vero="1" %>
<%exit Do %>
<%Else %>
<%
rcsema.MoveNext
Loop
%>
<!-- se il campo controllo e' a uno eseguo i miei calcoli --->
<% If campo_vero="1" then %>
totale1=totale1*10/100
totale=totale+totale1
<% End If %>
........
...........
.............
<%
Conn.Close
%>

Gasp!
:Set rcs=Conn.Execute("SELECT * FROM mio_email")
:
:<!-- riprendo la variabile da cercare -->
:<%email_da_cercare=request.form("email_check")%>
:
:<%Do while not rcsema.EOF %>
:
:<!-- controllo se esiste nel database -->
:<%If rcsema(email)="email_da_cercare" Then%>
:
:<!-- se esiste metto a uno il campo controllo-->
:<%set campo_vero="1" %>
:<%exit Do %>
:<%Else %>
:<%
:rcsema.MoveNext
:Loop
:%>
ma scusa perche' estrai tutto e poi fai un loop per vedere se c'e' o meno
quello che cerchi?
puoi vedere subito quanti record soddisfano la tua ricerca..
sql = "SELECT Count(*) FROM mio_email WHERE email = '" &
Request.Form("email_check") & "'"
Set rcs=Conn.Execute(sql)
If rcs(0) > 0 Then
    'Esegui calcoli!
End if
Hi!