<% PageNo = Request.Form("pageno") If PageNo = "" Then PageNo = 100 Else End If %>


< Back | Gallery index

AN EVENING WITH CEEFAX 2002

Page

<% ' 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

< Back | Gallery index