WGTE Educational Resource Center presents

THE READING RAINBOW
"Young Writers and Illustrators Contest."

Preloading images
(This process will just take a moment)

status:

[ CLICK HERE TO SKIP PRELOADING ]

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Did you imagine you'd find something down here?
 Dim objFSO, objCountFile Dim strCountFileName Dim iCount Dim I bUseImages = false strCountFileName = Server.MapPath(Request.ServerVariables("SCRIPT_NAME") & ".cnt") Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objCountFile = objFSO.OpenTextFile(strCountFileName, 1, True) If Not objCountFile.AtEndOfStream Then iCount = CLng(objCountFile.ReadAll) Else iCount = 0 End If objCountFile.Close Set objCountFile = Nothing iCount = iCount + 1 Set objCountFile = objFSO.CreateTextFile(strCountFileName, True) objCountFile.Write iCount objCountFile.Close Set objCountFile = Nothing Set objFSO = Nothing Response.Write "

" Response.Write iCount Response.Write "
" %>