1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41
|
<%
Dim LowestNumber, HighestNumber, RandomNumber
RANDOMIZE
LowestNumber = 1
HighestNumber = 3
RandomNumber = Int((HighestNumber-LowestNumber+1)*Rnd+LowestNumber)
SELECT Case RandomNumber
%>
<% Case 1 %>
<a href="link1.htm">ghjggjkgjkg</a>
<% Case 2 %>
<a href="link2.htm">tuytuiuitu</a>
<% Case 3 %>
<% End Select %>
Server Error in '/' Application.
--------------------------------------------------------------------------------
Compilation Error
Description: An error occurred during the compilation of a resource required to service this request.
Please review the following specific error details and modify your source code appropriately.
Compiler Error Message: BC30209: Option Strict On requires all variable declarations to have an 'As' clause.
Source Error:
Line 1: <%
Line 2: Dim LowestNumber, HighestNumber, RandomNumber <---------------
Line 3: RANDOMIZE
Line 4: LowestNumber = 1
Source File: d:\htdocs\Skin3\flux_rando.aspx Line: 2
--------------------------------------------------------------------------------
Version Information: Microsoft .NET Framework Version:2.0.50727.3634; ASP.NET Version:2.0.50727.3634 |
Partager