<%
Randomize
Const IMGS_DIRTR = "./Random/TRImages/"
Dim ObjFSOTR, objFolderObjectTR, objFileCollectionTR, objFileTR
Dim intFileNumbertoUseTR, intFileLooperTR
Dim objImageFiletoUseTR
Dim strImageSrcTextTR
Set ObjFSOTR = Server.CreateObject("Scripting.FileSystemObject")
Set objFolderObjectTR = ObjFSOTR.GetFolder(Server.MapPath(IMGS_DIRTR))
Set ObjFSOTR = Nothing
Set objFileCollectionTR = objFolderObjectTR.Files
Set objFolderObjectTR = Nothing
intFileNumbertoUseTR = Int(objFileCollectionTR.Count * Rnd) + 1
intFileLooperTR = 1
For Each objFileTR in objFileCollectionTR
If intFileLooperTR = intFileNumbertoUseTR Then
Set objImageFiletoUseTR = objFileTR
Exit For
End If
intFileLooperTR = intFileLooperTR + 1
Next
Set objFileCollectionTR = Nothing
strImageSrcTextTR = IMGS_DIRTR & objImageFiletoUseTR.Name
Set objImageFiletoUseTR = Nothing
%>
<%
Randomize
Const IMGS_DIRDE = "./Random/DEImages/"
Dim ObjFSODE, objFolderObjectDE, objFileCollectionDE, objFileDE
Dim intFileNumbertoUseDE, intFileLooperDE
Dim objImageFiletoUseDE
Dim strImageSrcTextDE
Set ObjFSODE = Server.CreateObject("Scripting.FileSystemObject")
Set objFolderObjectDE = ObjFSODE.GetFolder(Server.MapPath(IMGS_DIRDE))
Set ObjFSODE = Nothing
Set objFileCollectionDE = objFolderObjectDE.Files
Set objFolderObjectDE = Nothing
intFileNumbertoUseDE = Int(objFileCollectionDE.Count * Rnd) + 1
intFileLooperDE = 1
For Each objFileDE in objFileCollectionDE
If intFileLooperDE = intFileNumbertoUseDE Then
Set objImageFiletoUseDE = objFileDE
Exit For
End If
intFileLooperDE = intFileLooperDE + 1
Next
Set objFileCollectionDE = Nothing
strImageSrcTextDE = IMGS_DIRDE & objImageFiletoUseDE.Name
Set objImageFiletoUseDE = Nothing
%>
<%
Randomize
Const IMGS_DIRFR = "./Random/FRImages/"
Dim ObjFSOFR, objFolderObjectFR, objFileCollectionFR, objFileFR
Dim intFileNumbertoUseFR, intFileLooperFR
Dim objImageFiletoUseFR
Dim strImageSrcTextFR
Set ObjFSOFR = Server.CreateObject("Scripting.FileSystemObject")
Set objFolderObjectFR = ObjFSOFR.GetFolder(Server.MapPath(IMGS_DIRFR))
Set ObjFSOFR = Nothing
Set objFileCollectionFR = objFolderObjectFR.Files
Set objFolderObjectFR = Nothing
intFileNumbertoUseFR = Int(objFileCollectionFR.Count * Rnd) + 1
intFileLooperFR = 1
For Each objFileFR in objFileCollectionFR
If intFileLooperFR = intFileNumbertoUseFR Then
Set objImageFiletoUseFR = objFileFR
Exit For
End If
intFileLooperFR = intFileLooperFR + 1
Next
Set objFileCollectionFR = Nothing
strImageSrcTextFR = IMGS_DIRFR & objImageFiletoUseFR.Name
Set objImageFiletoUseFR = Nothing
%>
<%
Randomize
Const IMGS_DIRFI = "./Random/FIImages/"
Dim ObjFSOFI, objFolderObjectFI, objFileCollectionFI, objFileFI
Dim intFileNumbertoUseFI, intFileLooperFI
Dim objImageFiletoUseFI
Dim strImageSrcTextFI
Set ObjFSOFI = Server.CreateObject("Scripting.FileSystemObject")
Set objFolderObjectFI = ObjFSOFI.GetFolder(Server.MapPath(IMGS_DIRFI))
Set ObjFSOFI = Nothing
Set objFileCollectionFI = objFolderObjectFI.Files
Set objFolderObjectFI = Nothing
intFileNumbertoUseFI = Int(objFileCollectionFI.Count * Rnd) + 1
intFileLooperFI = 1
For Each objFileFI in objFileCollectionFI
If intFileLooperFI = intFileNumbertoUseFI Then
Set objImageFiletoUseFI = objFileFI
Exit For
End If
intFileLooperFI = intFileLooperFI + 1
Next
Set objFileCollectionFI = Nothing
strImageSrcTextFI = IMGS_DIRFI & objImageFiletoUseFI.Name
Set objImageFiletoUseFI = Nothing
%>
<%
Randomize
Const IMGS_DIRES = "./Random/ESImages/"
Dim ObjFSOES, objFolderObjectES, objFileCollectionES, objFileES
Dim intFileNumbertoUseES, intFileLooperES
Dim objImageFiletoUseES
Dim strImageSrcTextES
Set ObjFSOES = Server.CreateObject("Scripting.FileSystemObject")
Set objFolderObjectES = ObjFSOES.GetFolder(Server.MapPath(IMGS_DIRES))
Set ObjFSOES = Nothing
Set objFileCollectionES = objFolderObjectES.Files
Set objFolderObjectES = Nothing
intFileNumbertoUseES = Int(objFileCollectionES.Count * Rnd) + 1
intFileLooperES = 1
For Each objFileES in objFileCollectionES
If intFileLooperES = intFileNumbertoUseES Then
Set objImageFiletoUseES = objFileES
Exit For
End If
intFileLooperES = intFileLooperES + 1
Next
Set objFileCollectionES = Nothing
strImageSrcTextES = IMGS_DIRES & objImageFiletoUseES.Name
Set objImageFiletoUseES = Nothing
%>
<%
Randomize
Const IMGS_DIREE = "./Random/EEImages/"
Dim ObjFSOEE, objFolderObjectEE, objFileCollectionEE, objFileEE
Dim intFileNumbertoUseEE, intFileLooperEE
Dim objImageFiletoUseEE
Dim strImageSrcTextEE
Set ObjFSOEE = Server.CreateObject("Scripting.FileSystemObject")
Set objFolderObjectEE = ObjFSOEE.GetFolder(Server.MapPath(IMGS_DIREE))
Set ObjFSOEE = Nothing
Set objFileCollectionEE = objFolderObjectEE.Files
Set objFolderObjectEE = Nothing
intFileNumbertoUseEE = Int(objFileCollectionEE.Count * Rnd) + 1
intFileLooperEE = 1
For Each objFileEE in objFileCollectionEE
If intFileLooperEE = intFileNumbertoUseEE Then
Set objImageFiletoUseEE = objFileEE
Exit For
End If
intFileLooperEE = intFileLooperEE + 1
Next
Set objFileCollectionEE = Nothing
strImageSrcTextEE = IMGS_DIREE & objImageFiletoUseEE.Name
Set objImageFiletoUseEE = Nothing
%>
<%
Randomize
Const IMGS_DIRGB = "./Random/GBImages/"
Dim ObjFSOGB, objFolderObjectGB, objFileCollectionGB, objFileGB
Dim intFileNumbertoUseGB, intFileLooperGB
Dim objImageFiletoUseGB
Dim strImageSrcTextGB
Set ObjFSOGB = Server.CreateObject("Scripting.FileSystemObject")
Set objFolderObjectGB = ObjFSOGB.GetFolder(Server.MapPath(IMGS_DIRGB))
Set ObjFSOGB = Nothing
Set objFileCollectionGB = objFolderObjectGB.Files
Set objFolderObjectGB = Nothing
intFileNumbertoUseGB = Int(objFileCollectionGB.Count * Rnd) + 1
intFileLooperGB = 1
For Each objFileGB in objFileCollectionGB
If intFileLooperGB = intFileNumbertoUseGB Then
Set objImageFiletoUseGB = objFileGB
Exit For
End If
intFileLooperGB = intFileLooperGB + 1
Next
Set objFileCollectionGB = Nothing
strImageSrcTextGB = IMGS_DIRGB & objImageFiletoUseGB.Name
Set objImageFiletoUseGB = Nothing
%>
<%
Randomize
Const IMGS_DIRCH = "./Random/CHImages/"
Dim ObjFSOCH, objFolderObjectCH, objFileCollectionCH, objFileCH
Dim intFileNumbertoUseCH, intFileLooperCH
Dim objImageFiletoUseCH
Dim strImageSrcTextCH
Set ObjFSOCH = Server.CreateObject("Scripting.FileSystemObject")
Set objFolderObjectCH = ObjFSOCH.GetFolder(Server.MapPath(IMGS_DIRCH))
Set ObjFSOCH = Nothing
Set objFileCollectionCH = objFolderObjectCH.Files
Set objFolderObjectCH = Nothing
intFileNumbertoUseCH = Int(objFileCollectionCH.Count * Rnd) + 1
intFileLooperCH = 1
For Each objFileCH in objFileCollectionCH
If intFileLooperCH = intFileNumbertoUseCH Then
Set objImageFiletoUseCH = objFileCH
Exit For
End If
intFileLooperCH = intFileLooperCH + 1
Next
Set objFileCollectionCH = Nothing
strImageSrcTextCH = IMGS_DIRCH & objImageFiletoUseCH.Name
Set objImageFiletoUseCH = Nothing
%>
<%
Randomize
Const IMGS_DIRCN = "./Random/CNImages/"
Dim ObjFSOCN, objFolderObjectCN, objFileCollectionCN, objFileCN
Dim intFileNumbertoUseCN, intFileLooperCN
Dim objImageFiletoUseCN
Dim strImageSrcTextCN
Set ObjFSOCN = Server.CreateObject("Scripting.FileSystemObject")
Set objFolderObjectCN = ObjFSOCN.GetFolder(Server.MapPath(IMGS_DIRCN))
Set ObjFSOCN = Nothing
Set objFileCollectionCN = objFolderObjectCN.Files
Set objFolderObjectCN = Nothing
intFileNumbertoUseCN = Int(objFileCollectionCN.Count * Rnd) + 1
intFileLooperCN = 1
For Each objFileCN in objFileCollectionCN
If intFileLooperCN = intFileNumbertoUseCN Then
Set objImageFiletoUseCN = objFileCN
Exit For
End If
intFileLooperCN = intFileLooperCN + 1
Next
Set objFileCollectionCN = Nothing
strImageSrcTextCN = IMGS_DIRCN & objImageFiletoUseCN.Name
Set objImageFiletoUseCN = Nothing
%>
<%
Randomize
Const IMGS_DIRBZ = "./Random/BZImages/"
Dim ObjFSOBZ, objFolderObjectBZ, objFileCollectionBZ, objFileBZ
Dim intFileNumbertoUseBZ, intFileLooperBZ
Dim objImageFiletoUseBZ
Dim strImageSrcTextBZ
Set ObjFSOBZ = Server.CreateObject("Scripting.FileSystemObject")
Set objFolderObjectBZ = ObjFSOBZ.GetFolder(Server.MapPath(IMGS_DIRBZ))
Set ObjFSOBZ = Nothing
Set objFileCollectionBZ = objFolderObjectBZ.Files
Set objFolderObjectBZ = Nothing
intFileNumbertoUseBZ = Int(objFileCollectionBZ.Count * Rnd) + 1
intFileLooperBZ = 1
For Each objFileBZ in objFileCollectionBZ
If intFileLooperBZ = intFileNumbertoUseBZ Then
Set objImageFiletoUseBZ = objFileBZ
Exit For
End If
intFileLooperBZ = intFileLooperBZ + 1
Next
Set objFileCollectionBZ = Nothing
strImageSrcTextBZ = IMGS_DIRBZ & objImageFiletoUseBZ.Name
Set objImageFiletoUseBZ = Nothing
%>
<%
Randomize
Const IMGS_DIRUS = "./Random/USImages/"
Dim ObjFSOUS, objFolderObjectUS, objFileCollectionUS, objFileUS
Dim intFileNumbertoUseUS, intFileLooperUS
Dim objImageFiletoUseUS
Dim strImageSrcTextUS
Set ObjFSOUS = Server.CreateObject("Scripting.FileSystemObject")
Set objFolderObjectUS = ObjFSOUS.GetFolder(Server.MapPath(IMGS_DIRUS))
Set ObjFSOUS = Nothing
Set objFileCollectionUS = objFolderObjectUS.Files
Set objFolderObjectUS = Nothing
intFileNumbertoUseUS = Int(objFileCollectionUS.Count * Rnd) + 1
intFileLooperUS = 1
For Each objFileUS in objFileCollectionUS
If intFileLooperUS = intFileNumbertoUseUS Then
Set objImageFiletoUseUS = objFileUS
Exit For
End If
intFileLooperUS = intFileLooperUS + 1
Next
Set objFileCollectionUS = Nothing
strImageSrcTextUS = IMGS_DIRUS & objImageFiletoUseUS.Name
Set objImageFiletoUseUS = Nothing
%>
<%
Randomize
Const IMGS_DIRGT = "./Random/GTImages/"
Dim ObjFSOGT, objFolderObjectGT, objFileCollectionGT, objFileGT
Dim intFileNumbertoUseGT, intFileLooperGT
Dim objImageFiletoUseGT
Dim strImageSrcTextGT
Set ObjFSOGT = Server.CreateObject("Scripting.FileSystemObject")
Set objFolderObjectGT = ObjFSOGT.GetFolder(Server.MapPath(IMGS_DIRGT))
Set ObjFSOGT = Nothing
Set objFileCollectionGT = objFolderObjectGT.Files
Set objFolderObjectGT = Nothing
intFileNumbertoUseGT = Int(objFileCollectionGT.Count * Rnd) + 1
intFileLooperGT = 1
For Each objFileGT in objFileCollectionGT
If intFileLooperGT = intFileNumbertoUseGT Then
Set objImageFiletoUseGT = objFileGT
Exit For
End If
intFileLooperGT = intFileLooperGT + 1
Next
Set objFileCollectionGT = Nothing
strImageSrcTextGT = IMGS_DIRGT & objImageFiletoUseGT.Name
Set objImageFiletoUseGT = Nothing
%>
<%
Randomize
Const IMGS_DIRMX = "./Random/MXImages/"
Dim ObjFSOMX, objFolderObjectMX, objFileCollectionMX, objFileMX
Dim intFileNumbertoUseMX, intFileLooperMX
Dim objImageFiletoUseMX
Dim strImageSrcTextMX
Set ObjFSOMX = Server.CreateObject("Scripting.FileSystemObject")
Set objFolderObjectMX = ObjFSOMX.GetFolder(Server.MapPath(IMGS_DIRMX))
Set ObjFSOMX = Nothing
Set objFileCollectionMX = objFolderObjectMX.Files
Set objFolderObjectMX = Nothing
intFileNumbertoUseMX = Int(objFileCollectionMX.Count * Rnd) + 1
intFileLooperMX = 1
For Each objFileMX in objFileCollectionMX
If intFileLooperMX = intFileNumbertoUseMX Then
Set objImageFiletoUseMX = objFileMX
Exit For
End If
intFileLooperMX = intFileLooperMX + 1
Next
Set objFileCollectionMX = Nothing
strImageSrcTextMX = IMGS_DIRMX & objImageFiletoUseMX.Name
Set objImageFiletoUseMX = Nothing
%>
Della Vita
I feel particularly blessed
to have seen all that I have in my short lifetime. It has always
been a passion of mine to travel. Traveling allows you to better know
not only other cultures and peoples, but also yourself. It has been said that
in order to find oneself, one must first lose oneself. Without
doubt, I have come to realize how large this world of ours truly
is. Throughout my travels, I have taken many photographs. Of some
I am proud, of some I am not. Nonetheless, I hope this gallery
allows you to look through my eyes and appreciate this world of
ours. Perhaps you may even be inspired to travel yourself.
