home link
 

 

 

Where's your drill sergeant, men?
- Blown up, sir!
Blown up, sir!

Sir, these are Sergeant Hulka's men.
He was injured during basic training.

I see. So am I to understand that you men completed your training on your own?
- That's the fact, Jack!


This is a test of embedding a workbook.


Test of server-side includes

Wish me luck!

Test of php

hello world

A Second PHP test


the first php test file
the second php test file

' _____________________________________________________________________________
' FN RANDOM CHARACTER
' ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
' Descrip: Generate a random alphanumeric character
'
' Args: booNumbers· · · true if return can contain digits
' booUpperCase· · true if return can contain upper case letters
' booLowerCase· · true if return can contain lower case letters
'
' Returns: String· · · · · the random character
'
' Date Developer Comments
' ¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨
' 07 Nov 2013 G. Truby • initial version
' _____________________________________________________________________________
' ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
Function fnRandomCharacter(ByVal booNumbers As Boolean, _
ByVal booUpperCase As Boolean, _
ByVal booLowerCase As Boolean) As String
' _____________________________________________________________________________

Randomize

Const c_strReallyLongLine = "This is an attempt to see what is going to happen if there is a line of code that runs wayyyyy off to the right of the page. Will the browser wrap this? Or do I need to alter the CSS so that it shows a scroll bar?"

Dim strChars() As String, _
c%, i%, r%

If Not booNumbers _
And Not booUpperCase _
And Not booLowerCase Then
Let fnRandomCharacter = vbNullString
Exit Function ' |--¿xfunc?-->
End If

If booNumbers Then
ReDim strChars(0 To 9)
For c = Asc("0") To Asc("9")
Let strChars(i) = Chr(c)
iIncrement i
Next c
End If

If booUpperCase Then
ReDim Preserve strChars(0 To UBound(strChars) + 26)
For c = Asc("A") To Asc("Z")
Let strChars(i) = Chr(c)
iIncrement i
Next c
End If

If booLowerCase Then
ReDim Preserve strChars(0 To UBound(strChars) + 26)
For c = Asc("a") To Asc("z")
Let strChars(i) = Chr(c)
iIncrement i
Next c
End If

Let r = Int((UBound(strChars) + 1) * Rnd)

Let fnRandomCharacter = strChars(r)

End Function '// fn Random Character

'// ____________________
'// ¯¯variables¯¯¯¯¯¯¯¯¯

'··············································································
' · · · e n d o f m o d u l e - l e v e l d e c l a r a t i o n s · · ·
'••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••

' _____________________________________________________________________________
' FN RANDOM CHARACTER
' ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
' Descrip: Generate a random alphanumeric character
'
' Args: booNumbers· · · true if return can contain digits
' booUpperCase· · true if return can contain upper case letters
' booLowerCase· · true if return can contain lower case letters
'
' Returns: String· · · · · the random character
'
' Date Developer Comments
' ¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨
' 07 Nov 2013 G. Truby • initial version
' _____________________________________________________________________________
' ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
Function fnRandomCharacter(ByVal booNumbers As Boolean, _
ByVal booUpperCase As Boolean, _
ByVal booLowerCase As Boolean) As String
' _____________________________________________________________________________

Randomize

Const c_strReallyLongLine = "This is an attempt to see what is going to happen if there is a line of code that runs wayyyyy off to the right of the page. Will the browser wrap this? Or do I need to alter the CSS so that it shows a scroll bar?"

Dim strChars() As String, _
c%, i%, r%

If Not booNumbers _
And Not booUpperCase _
And Not booLowerCase Then
Let fnRandomCharacter = vbNullString
Exit Function ' |--¿xfunc?-->
End If

If booNumbers Then
ReDim strChars(0 To 9)
For c = Asc("0") To Asc("9")
Let strChars(i) = Chr(c)
iIncrement i
Next c
End If

If booUpperCase Then
ReDim Preserve strChars(0 To UBound(strChars) + 26)
For c = Asc("A") To Asc("Z")
Let strChars(i) = Chr(c)
iIncrement i
Next c
End If

If booLowerCase Then
ReDim Preserve strChars(0 To UBound(strChars) + 26)
For c = Asc("a") To Asc("z")
Let strChars(i) = Chr(c)
iIncrement i
Next c
End If

Let r = Int((UBound(strChars) + 1) * Rnd)

Let fnRandomCharacter = strChars(r)

End Function '// fn Random Character
One Two Three
Uno Dos Tres

after the table

Can I rotate this text?

If I put the text
Inside a <div> tag
can I rotate it?

E:\HostingSpaces\gregtrub\excelplaza.com\wwwroot
t
E:\HostingSpaces\gregtrub\excelplaza.com\wwwroot/php_library/header_graphic_include.php


Top