|
|||
<%
' Program this bit here with the path to the file on your server
' Example: Files for your site are stored in
' C:\inetpub\wwwroot\www.yoursite.com\teletextpages\
' You need to put "\teletextpages\" (With Quotes and slashes)
PathOnServer = "\gallery\ceefax\evening\20010101\"
PageRequired = Server.MapPath("/") & PathOnServer & PageNo & ".gif"
If PageNo > 99 Then
If PageNo < 900 Then
Set fs = Server.CreateObject("Scripting.FileSystemObject")
PageOK = fs.FileExists(PageRequired)
If PageOK = True Then %>
 <%
Else %>
<%
End If
Else %>
Your number was out of range.
The acceptable range is 100 to 899.<% End If Else %>Your number was out of range. The acceptable range is 100 to 899. <% End If %> |
|||
|
AEWC 2002 by Kirk Northrop |
