<html>
<head>
<title> test2 </title>
</head>
<body>
<%
submitted = Request.QueryString("submitted")
if submitted then
session("sette") = Request.form("val7")
' creo la query
Dim query
query = "INSERT INTO tabella1 (val_inizio, matricola,
nome, cognome, eta, val1, val2, val3, val4, val5, val6, val7)"
query = query & " Values('"
query = query & session("globale") &
"','"
query = query & session("matricola") &
"','"
query = query & session("nome") &
"','"
query = query & session("cognome") &
"','"
query = query & session("eta") &
"','"
query = query & session("uno") &
"','"
query = query & session("due") &
"','"
query = query & session("tre") &
"','"
query = query & session("quattro") &
"','"
query = query & session("cinque") &
"','"
query = query & session("sei") &
"','"
query = query & session("sette") &
"')"
'Response.write query
' mi connetto al dbase
Set objConn =
Server.CreateObject("ADODB.Connection")
objConn.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data
Source = C:\Inetpub\wwwroot\db.mdb")
' inserisco i dati nel dbase
Set objRs = Server.CreateObject("ADODB.Recordset")
set objRs = objConn.Execute(query)
if err = 0 then
Response.write "<center> Grazie per aver completato il test.
I dati sono stati memorizzati</center>"
Response.write "<center> <A href = index.html> torna alla
pagina prinicpale </A> </center>"
else
Response.write "<center> Non è stato possibile memorizzare i
dati. Riprova </center>"
Response.write "<center> <A href = test2.asp?page=1> torna
alla pagina dei test </A> </center>"
end if
objConn.Close
set objConn = Nothing
set objRs = Nothing
else
%>
<%
' mi connetto al dbase
Set objConn =
Server.CreateObject("ADODB.Connection")
objConn.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data
Source = C:\Inetpub\wwwroot\db.mdb")
' inserisco i dati nel dbase
Set objRs = Server.CreateObject("ADODB.Recordset")
set objRs = objConn.Execute("SELECT valore from
Tabella2")
session("globale") = objRs("valore")
page = Request.QueryString("page")
if page = 1 then
session.timeout = 60
%>
<FORM ACTION=test2.asp?page=2 METHOD=post>
<center>
<table border="0" cellpadding="0" cellspacing="0"
width="50%" >
<tr>
<td width="50%">Inserisci il tuo nome: </td>
<td width="50%"><input type='text'
name='nome'><br> </td>
</tr>
<tr>
<td width="50%">Inserisci il tuo cognome: </td>
<td width="50%"><input type='text'
name='cog'><br></td>
</tr>
<tr>
<td width="50%">Inserisci la tua età: </td>
<td width="50%"><input type='text'
name='eta'><br></td>
</tr>
<tr>
<td width="50%">Inserisci la tua matricola: </td>
<td width="50%"><input type='text'
name='matricola'><br></td>
</tr>
</table>
<br><br>
<input type='submit' value='Inzia il test'>
</center>
<%
end if
if page = 2 then
session("matricola") = Request.form("matricola")
if
session("matricola") = "" then response.redirect
"errore.htm"
session("nome") = Request.form("nome")
session("cognome") = Request.form("cog")
session("eta") = Request.form("eta")
%>
<font size=16
color=red>
<center>
<B>
Scommessa N. 1
</font>
</center>
</B>
<br><br>
Siamo ad una corsa di cavalli, decidi di partecipare ad una scommessa insolita: <br>
c'è una unica vincita di euro <font color= blue><% Response.write
session("globale") %></font><br>
Vincerà questa cifra una sola
persona che soddisfa questi due requisiti: <br>
1) ha indovinato il
cavallo vincente <br>
2) tra tutti quelli che
hanno indovinato il cavallo vincente è stato quello che ha puntato la cifra più alta
<br>
Ora attento: <br>
secondo le tue previsioni c'è un cavallo (Freccia Piemontese) che ha una probabilità del
<font color= blue> 50% </font> di arrivare primo. <br>
(e quindi c'è una probabilità del <font color= blue> 50% </font> che vinca
un altro cavallo). <br>
Decidi di puntare su Freccia Piemontese, il problema è: quanto punti sapendo che vincerà
solo la persona che ha osato di più? <br>
devi scrivere l'importo massimo che saresti disposto a puntare e oltre il quale non ti
spingeresti <br> <br> <br>
</center>
<%
Response.write
"<FORM ACTION=test2.asp?page=3 METHOD=post>"
Response.Write
"<center> Euro: "
Response.Write
"<input type='text' name='val1'><br> <br> <br>"
Response.Write
"<input type='submit' value='Prossima >>'> </center>"
end if
if page = 3 then
%>
<font size=16
color=red>
<center>
<B>
Scommessa N. 2
</font>
</center>
</B>
<br><br>
<%
Response.write " Ora c'è un'altra scommessa da fare, la scommessa è identica alla
precedente, stessi cavalli, stesse probabilità però la vincita è pari a euro "
Response.write
"<font color = blue>"
session("uno") = Request.form("val1")
Response.write
session("uno")
Response.write
"</font>"
%>
<br>
Freccia Piemontese ha il <font color= blue> 50% </font> di probabilità di
vincere (e quindi c'è una probabilità del <font color= blue> 50% </font> che
vinca un altro cavallo) <br>
devi scrivere l'importo massimo che saresti disposto a puntare e oltre il quale non ti
spingeresti <br>
<%
Response.write
"<FORM ACTION=test2.asp?page=4 METHOD=post>"
Response.Write "
<center> Euro: "
Response.Write
"<input type='text' name='val2'><br> <br> <br>"
Response.Write
"<input type='submit' value='Prossima >>'> </center>"
end if
if page = 4 then
%>
<font size=16
color=red>
<center>
<B>
Scommessa N. 3
</font>
</center>
</B>
<br><br>
Adesso la scommessa cambia perchè alla gara partecipano solo 2 cavalli: leggi
attentamente: <br> <br>
Uno è Freccia Piemontese e l'altro è Lampo Salernitano <br>
la vincita è pari a euro <font color= blue> <% Response.write
session("globale")
%> </font> <br>
Per vincere devi <br>
1) indovinare il cavallo vincente <br>
2) puntare la cifra più alta tra tutti coloro
che hanno indovinato il cavallo <br>
questa volta però c'è
un premio di consolazione per tutti i perdenti <br>
il premio è pari ad
euro
<%
session("due") = Request.form("val2")
Response.write
"<font color = blue>"
Response.write
session("uno")
Response.write
"</font>"
%>
è ovvio quindi che, per regolamento, non si possa puntare una cifra inferiore
<br><br>
ricapitoliamo:
<br>
decidi di puntare su Freccia Piemontese che ha una probabilità di vincere del <font
color= blue> 50% </font>
anche Lampo Salernitano ha una probabilità di vincere del <font color= blue> 50%
</font> e in questo caso tu otterresti un premio di consolazione di euro:
<%
Response.write
"<font color = blue>"
Response.write
session("uno")
Response.write
"</font>"
Response.write "
<br> <br> devi scrivere l'importo massimo che saresti disposto a puntare e
oltre il quale non ti spingeresti, per vincere la tua cifra deve essere la più alta tra
le scommesse vincenti: "
Response.write
"<FORM ACTION=test2.asp?page=5 METHOD=post> <br> <center>"
Response.Write
"Euro: "
Response.Write
"<input type='text' name='val3'><br><br><br>"
Response.Write
"<input type='submit' value='Prossima >>'> </center>"
end if
if page = 5 then
%>
<font size=16
color=red>
<center>
<B>
Scommessa N. 4
</font>
</center>
</B>
<br><br>
Questa scommessa è meno complicata: <br>
c'è un'unica vincita pari ad euro
<%
Response.write
"<font color = blue>"
Response.write
session("due")
Response.write
"</font>"
%>
sono in gara diversi cavalli ma Freccia Piemontese ha una probabilità di vincere del
<font color= blue> 60% </font> <br>
devi scrivere l'importo massimo che saresti disposto a puntare e oltre il quale non ti
spingeresti, per vincere la tua cifra deve essere la più alta tra le scommesse vincenti
<br>
<%
session("tre") = Request.form("val3")
Response.write
"<FORM ACTION=test2.asp?page=6 METHOD=post> <center>"
Response.Write
"Euro: "
Response.Write
"<input type='text' name='val4'><br><br> "
Response.Write
"<input type='submit' value='Prossima >>'> </center>"
end if
if page = 6 then
%>
<font size=16
color=red>
<center>
<B>
Scommessa N. 5
</font>
</center>
</B>
<br><br>
Questa invece è un'altra scommessa particolare perciò fai attenzione <br>
c'è una unica vincita
pari ad euro
<%
Response.write
"<font color = blue>"
Response.write
session("uno")
Response.write
"</font> <br>"
%>
Vince chi punta la
cifra più alta e indovina il cavallo vincente. <br>
I cavalli partecipanti
sono due: <br>
Freccia Piemontese che ha una probabilità di vittoria del <font color= blue> 60%
</font> <br>
Lampo Salernitano che ha una probabilità di vittoria del <font color= blue> 40%
</font> <br>
c'è un premio di consolazione per tutti i perdenti: <br>
il premio è pari ad euro
<%
Response.write
"<font color = blue>"
Response.write
session("due")
Response.write
"</font> "
%>
(non è possibile
puntare una cifra inferiore) <br>
devi scrivere l'importo massimo che saresti disposto a puntare e oltre il quale non ti
spingeresti, per vincere la tua cifra deve essere la più alta tra le scommesse vincenti
<br> <br>
<%
session("quattro")
= Request.form("val4")
Response.write
"<FORM ACTION=test2.asp?page=7 METHOD=post> <center>"
Response.Write
"Euro: "
Response.Write
"<input type='text' name='val5'><br> <br> <br>"
Response.Write
"<input type='submit' value='Prossima >>'> </center>"
end if
if page = 7 then
%>
<font size=16
color=red>
<center>
<B>
Scommessa N. 6
</font>
</center>
</B>
<br><br>
Altra scommessa particolare ma simile alla precedente: <br>
c'è una unica vincita pari ad euro
<%
Response.write
"<font color = blue>"
Response.write
session("tre")
Response.write
"</font> "
%>
Vince chi punta la cifra più alta e indovina il cavallo vincente <br>
I cavalli partecipanti sono due: <br>
Freccia Piemontese e Lampo Salernitano, le probabilità sono cambiate: <br>
Freccia Piemontese ha una probabilità di vittoria del <font color= blue> 70%
</font> <br>
Lampo Salernitano ha una probabilità di vittoria del <font color= blue> 30%
</font> <br>
c'è un premio di consolazione per tutti i perdenti, il premio è pari ad euro
<%
Response.write
"<font color = blue>"
Response.write
session("uno")
Response.write
"</font> "
%>
(non è possibile
puntare una cifra inferiore) <br>
devi scrivere l'importo massimo che saresti disposto a puntare e oltre il quale non ti
spingeresti, per vincere la tua cifra deve essere la più alta tra le scommesse vincenti
<br>
<%
session("cinque") = Request.form("val5")
Response.write
"<FORM ACTION=test2.asp?page=8 METHOD=post> <center>"
Response.Write
"Euro: "
Response.Write
"<input type='text' name='val6'><br> <br> <br>"
Response.Write
"<input type='submit' value='Prossima >>'> </center>"
end if
if page = 8 then
%>
<font size=16
color=red>
<center>
<B>
Scommessa N. 7
</font>
</center>
</B>
<br><br>
Anche questa scommessa è simile alla precedente: <br>
c'è una unica vincita pari ad euro <font color= blue> <% Response.write
session("globale") %> </font>
Vince chi punta la cifra più alta e indovina il cavallo vincente <br>
i cavalli partecipanti sono due: <br>
Freccia Piemontese e Lampo Salernitano <br>
Freccia Piemontese ha una probabilità di vittoria del <font color= blue> 70%
</font> <br>
Lampo Salernitano ha una probabilità di vittoria del <font color= blue> 30%
</font> <br>
c'è un premio di consolazione per tutti i perdenti <br>
il valore del premio è cambiato <br>
ora il premio è pari ad euro
<%
Response.write
"<font color = blue>"
Response.write
session("tre")
Response.write
"</font> "
%>
(non è possibile
puntare una cifra inferiore) <br>
devi scrivere l'importo massimo che saresti disposto a puntare e oltre il quale non ti
spingeresti, per vincere la tua cifra deve essere la più alta tra le scommesse vincenti
<br>
<%
session("sei") = Request.form("val6")
Response.write
"<FORM ACTION=test2.asp?submitted=true METHOD=post> <center>"
Response.Write
"Euro: "
Response.Write
"<input type='text' name='val7'><br><br>"
Response.Write
"<input type='submit' value='Invia dati!'> </center>"
end if
end if
%>
</body>
</html> |
