Newbie på Asp

[Mattias Sandsäter]

<%

Function Vem

Dim Jag,Du,Slinga,Slump,Vinnare,Hell

Hell = 1

 

 

For Slinga = 1 To 2

Randomize

Slump = Int(Rnd*10)

 

If Slinga = 1 Then

Jag = Slump

Else

Du = Slump

Hell = Hell + 1

Next

 

If Jag > Du Then

Vinnare = "Jag"

Else

Vinnare = "Du"

Else

Vinnare = "Ingen"

%>

Vinnaren är <% =Vinnare %>

 

<%

End Function

%>

 

Nu ska vi se vem som vann: <br>

 

<%

Dim Anrop

Anrop = Vem

%>

 

Sitter och gör lite exempel på asp i nybörjarsvårighet men jag får fel för

en oväntad next hela tiden

[CyberJont]

Jag skulle tro att If-satserna är lite halvrätt... Testa detta:

 

<!-- ************** -->

<%

Function Vem

Dim Jag,Du,Slinga,Slump,Vinnare,Hell

Hell = 1

 

 

For Slinga = 1 To 2

Randomize

Slump = Int(Rnd*10)

 

If Slinga = 1 Then

Jag = Slump

Else

Du = Slump

Hell = Hell + 1

End If

Next

 

Select Case Jag

Case > Du

Vinnare = "Jag"

Case = Du

Vinnare = "Ingen"

Case < Du

Vinnare = "Du"

End Select

%>

Vinnaren är <% =Vinnare %>

 

<%

End Function

%>

 

Nu ska vi se vem som vann: <br>

 

<%

Dim Anrop

Anrop = Vem

%>

<!-- ************** -->

 

[inlägget ändrat 2000-08-04 14:32:14 av CyberJont]