<% Const IMGS_DIR = "../images/lbabies/"
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
%>
|
State Newsletters - Perinatal Care Matters
- Perinatal Care
Matters, Summer 2005
Contact our office for a copy of the State Newsletter
Preventing Severe Hyperbilirubinemia
Exclusive Breastfeeding Among Latina Women
Birth Certificares MatterFetal Alcohol Syndrome (FAS)
Major Expansion Of The Newborn Screening Program
Public Policy Updates
|
