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 <p>
<Elself Tarning1 = 6 And Tarning1 = 6 Then %>
Fullt husp<p>
<% Elself Total = 7 Then %>
Du slog 7! Vilken tur!<p>
<% Elself Total = 11 Then %>
Du slog 11! Vilken tur!<p>
<% ELse %>
Tarning 1: <% = Tarning1 %> <p>
Tarning 2: <% = Tarning2 %> <p>
Total: <% = Total %> <p>
<% End If %>
</html>
@ndersMedlem sedan juni 200032 969 inlägg 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 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
