Commit inicial

GuessMyNumber.bas

@@ -0,0 +1,36 @@
+B4J=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Class
+Version=2.18
+@EndOfDesignText@
+'Class module
+Sub Class_Globals
+End Sub
+
+Public Sub Initialize
+
+End Sub
+
+Sub Handle(req As ServletRequest, resp As ServletResponse)
+	Try
+		If req.GetSession.HasAttribute("myNumber") = False Then
+			req.GetSession.SetAttribute("myNumber", Rnd(0, 101))
+		End If
+		Dim myNumber As Int = req.GetSession.GetAttribute("myNumber")
+		Dim n As String = req.GetParameter("number")
+		If IsNumber(n) = False Then
+			resp.Write("Please enter a valid number.")
+		Else
+			If n > myNumber Then
+				resp.Write("My number is smaller.")
+			Else If n < myNumber Then
+				resp.Write("My number is larger.")
+			Else
+				resp.Write("Well done!!!")
+			End If
+		End If
+	Catch
+		resp.SendError(500, "error....")
+	End Try
+End Sub