Just nu i M3-nätverket
Jump to content

Newbie på Asp


Mattias Sandsäter

Recommended Posts

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

Link to comment
Share on other sites

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]

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...