Originariamente inviato da vaargard
posta tutta la pagina
codice:
<%@ Language=VBScript%>
<%Option Explicit%>
<%Response.Buffer = true%>
<%Server.ScriptTimeout = 300%>
<%
Dim Risposta, IdDaForm
Risposta = Request.Form("Risposta")
IdDaForm = Request.Form("IdDaForm")
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title></title>
<meta http-equiv="content-type" content="text/html; charset=iso-8859-1" />
</head>
<body>
<h1></h1>
<%
Dim RandomNumber, MaxId
SUBOpenConn
'se arrivo dal form controllo la risposta
Dim StrSQLControl, ObjRSControl
If Trim(IdDaForm) <> "" Then
Set ObjRSControl = Server.CreateObject("ADODB.Recordset")
StrSQLControl = "SELECT * FROM Termini WHERE Id = " & IdDaForm
ObjRSControl.Open StrSQLControl, ObjConn, adOpenStatic, adLockReadOnly, adCmdText
If ObjRSControl.EOF Then
Response.Write("Errore: domanda non trovata!")
Else
If Trim(Risposta) = ObjRSControl("Risposta") Then
Response.Write("<font color=""green"">Risposta corretta!</font>")
Else
Response.Write("<font color=""red"">Risposta errata!</font>")
End If
End If
ObjRSControl.Close
Set ObjRSControl = Nothing
Response.Write("<hr width=""100%"">")
End If
Dim ObjRSCount, StrSQLCount
StrSQLCount ="SELECT COUNT(*) AS Id FROM Termini"
Set ObjRSCount = objConn.Execute(StrSQLCount)
MaxId = ObjRSCount("Id")
Set ObjRS = Nothing
Randomize Timer
RandomNumber = Cint(Rnd * MaxId)
Dim i
For i = 0 To i = 1
If RandomNumber <= 0 Then
RandomNumber = Cint(Rnd * MaxId)
Else
Exit For
End If
Next
'Response.Write("randomNumb: "&RandomNumber)
'Response.End()
Dim Id
Dim ObjRS, StrSQL
StrSQL ="SELECT TOP 1 * FROM Termini WHERE Id = "& RandomNumber &" ORDER BY Tedesco DESC"
Set ObjRS = ObjConn.Execute(StrSQL)
If Not ObjRS.EOF Then
Response.Write("
TRADUCI</p>")
Response.Write("
Domanda: "&ObjRS("Tedesco")&"</p")
Id = ObjRS("Id")
End If
Set ObjRS = Nothing
SUBCloseConn
%>
<%
response.Write(_
"<form name=""FormVerifica"" action=""default.asp?aa=b"" method=""post"">" &_
"<input type=""hidden"" name=""IdDaForm"" value="""&Id&""">" &_
"<input type=""text"" name=""Risposta"">" &_
"<input type=""submit"" name=""Submit"" value=""INVIA"">" &_
"</form>")
%>
<!--
<form name="FormVerifica2" action="default.asp?aa=a" method="post">
<input type="hidden" name="IdDaForm" value="<%=Id%>">
<input type="text" name="Risposta">
<input type="submit" name="Submit" value="INVIA">
</form>
-->
</body>
</html>