Randomize, Dim, Elself...hjälp.

2 svar · 202 visningar · startad av underground 15 dec. 2001

undergroundMedlem sedan dec. 20012 inlägg

Frågan15 dec. 2001 00:11#1

kan någon hjälpa mej?
Jag kan inte mycket ASP men lär mig och får inte detta till att funka.
Jag har säkert bara gjort något enkelt fel...

<html>
<%
Dim Tarning, Tarning2, Total
Randomize
Tarning1 = Int(Rnd * 6) + 1
Tarning2 = Int(Rnd * 6) + 1
Total = Tarning1 + Tarning2 %>
<% If Tarning1 = 1 And Tarning2 = 1 Then %>
Ormögon

<Elself Tarning1 = 6 And Tarning1 = 6 Then %>
Fullt husp

<% Elself Total = 7 Then %>
Du slog 7! Vilken tur!
<% Elself Total = 11 Then %>
Du slog 11! Vilken tur!

<% ELse %>
Tarning 1: <% = Tarning1 %> 
Tarning 2: <% = Tarning2 %> 
Total: <% = Total %> 
<% End If %>
</html>

@ndersMedlem sedan juni 200032 967 inlägg

15 dec. 2001 09:03#2

Hej, och välkommen till webForum.

För det första har du glömt ett %-tecken i din första elseif, men det löste inte dina problem. Koden skapade ett 'Expected end of statement'. Jag förstår dock inte varför.

Så jag tog och skrev om din kod lite grann. :)

<%
Dim Tarning, Tarning2, Total
Randomize
Tarning1 = Int(Rnd * 6) + 1
Tarning2 = Int(Rnd * 6) + 1
Total = Tarning1 + Tarning2 

Select Case total
Case 2 : Response.write "Ormögon <p>"
Case 7 : Response.write "Du slog 7! Vilken tur!<p>"
Case 11: Response.write "Du slog 11! Vilken tur!<p>"
Case 12: Response.write "Fullt hus<p>"
Case Else
   Response.write "Tarning 1: " & Tarning1 & "<p>"
   Response.write "Tarning 2: " & Tarning2 & "<p>"
   Response.write "Total: " & Total & "<p>"
End Select
%>

Mvh,

------------------
Don't panic!

LarsGMedlem sedan dec. 200012 464 inlägg

15 dec. 2001 15:46#3

Anledningen till att det blir fel är att Elself är felstavat. Det skall stå Elseif

@nders lösning borde dock fungera minst lika bra.

------------------
essentitia preter non sans multiplicandum