Development ASP.Net


Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
    lblMessage1.Text = MakeLength("www.", "rntsoft.com", 12)
    lblMessage2.Text = SystemInfo()
End Sub




Linking to an Include Code Library





    id="lblMessage1"
    runat="Server"
/>



    id="lblMessage2"
    runat="Server"
/>






<%--

Function MakeLength(StringToSize as String,PadCharacter as String, SizeToLength as Integer)
    If Len(StringToSize) >= SizeToLength Then
        MakeLength = Left(StringToSize, SizeToLength)
    Else
        MakeLength = StringToSize
        Do Until Len(MakeLength) = SizeToLength
            MakeLength = MakeLength & PadCharacter
        Loop
    End If   
End Function
Public Function SystemInfo()
    SystemInfo = "Machine Name: " & Server.MachineName _
        & "
Current Script Timeout: " _
        & Server.ScriptTimeOut _
        & " seconds
Path to Page: " _
        & Server.MapPath("") & "
System Date/Time: " _
        & Date.Now()
End Function

--%>