Välkommen till wF Steveking!
<TITLE>Sida 7/10</TITLE>
<Input Type=Hidden" Name="Q1" Value="<%= Request.Form("Q1")%>">
<Input Type=Hidden" Name="Q2" Value="<%= Request.Form("Q2")%>">
<Input Type=Hidden" Name="Q3" Value="<%= Request.Form("Q3")%>">
<Input Type=Hidden" Name="Q4" Value="<%= Request.Form("Q4")%>">
<Input Type=Hidden" Name="Q5" Value="<%= Request.Form("Q5")%>">
<Input Type=Hidden" Name="Q6" Value="<%= Request.Form("Q6")%>">
<Form Name="Form" Method="Post">
<font face="Tahoma" Size="-1" Color="DarkBlue"><b>
Får jag denna sida att fungera?
</b></font>
<br>
<Input Type="Radio" Value="Ja" Name="Q7">Ja
<Input Type="Radio" Value="Nej" Name="Q7">Nej
<Input Type="Radio" Value="Muhahaha, youre kidding... Right?" Name="Q7">Muhahaha, youre kidding... Right?
<Input Type="Submit" Name="Submit">
</Form>
----------------------------------------------------------------
<TITLE>OpenWindow With Results</TITLE>
<%
For cLoop = 1 To 10
RequestString = "Q" & cLoop
AQuestion = Request.Form(RequestString)
If cLoop = 1 And AQuestion = "Du är tjock" Then
Response.Write "Det var fel, du är fetare, rätt svar ska vara 'Maskäten'"
ElseIf cLoop = 1 And Aquestion "Maskäten" Then
Response.Write "Det är korrekt, Njut av fisken!"
Else
Response.Write "Det blev fel, fel, fel!!!"
End If
Next
%>
Tyvärr så tror jag att man får köra med IF-satserna eller kanske något CASE skulle vara kodsparande... kanske...
Om någon har en bättre idé!
Shoot! :)
Lycka till!
------------------
Say hello to my stinky little friend!
[Redigerat av Koplik den 16 aug 2001]