% Option explicit %>
Author of levels: " & ReplaceUnderscore(writerchoice) & " | ||
Collectionname: " & collectionchoice & " | " & vbcrlf dim objDownloadfile, downloadFile Set objDownloadfile = CreateObject("Scripting.FileSystemObject") if objDownloadfile.FileExists(strDownloadPath) then Set downloadFile = objDownloadfile.GetFile(strDownloadPath) Response.write "Download " & collectionchoice & " (" & downloadFile.Size & " bytes) | " & vbcrlf else Response.write "not available for download | " & vbcrlf end if Response.write "
Level in collection: " & (lineno+21)/23 & " of " & number & " | " & vbcrlf Response.write "" & vbcrlf Response.write " |
" & vbcrlf
For s=1 To 20
strLine = objFileTextStream.ReadLine
no= no +1
Str=""
For t=1 To Len(strLine)
Str = Str & ""
Next
Response.Write Str & " " + vbCrLf Next Response.Write " |