<% Const IMGS_DIR = "/images/corner/"
Dim objFSO, objFolderObject, objFileCollection, objFile
Dim intFileNumberToUse, intFileLooper
Dim objImageFileToUse
Dim strImageSrcText
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolderObject = objFSO.GetFolder(Server.MapPath(IMGS_DIR))
Set objFSO = Nothing
Set objFileCollection = objFolderObject.Files
Set objFolderObject = Nothing
Randomize()
intFileNumberToUse = Int(objFileCollection.Count * Rnd) + 1
intFileLooper = 1
For Each objFile in objFileCollection
If intFileLooper = intFileNumberToUse Then
Set objImageFileToUse = objFile
Exit For
End If
intFileLooper = intFileLooper + 1
Next
Set objFileCollection = Nothing
strImageSrcText = IMGS_DIR & objImageFileToUse.Name
Set objImageFileToUse = Nothing
%>
Newsletter Order
Form
SUBSCRIPTION RATES
Rate
Subscription Type
$44
Annual Domestic
$50 US
Canadian
$54 US
Overseas—sent air mail
All orders must be prepaid.
ORDER FORM
Print and complete this form and return
it with your remittance to:
Connections
7 Lantern Lane
Londonderry, N.H. 03053-3905
Please enter my subscription
to Connections for one year.
Enclosed is my check for $44 (Canadian: $50 US; overseas: $54
US).
