<%
Source=Request.QueryString("Source")
%>
<%=Source%>
<%If FileExists(Source) Then %>
<%Else%>
The source code for this page could not be found.
<%End If%>
<%
' Function to determine if a file exists
Function FileExists(Source)
On Error Resume Next
strFilename = Server.MapPath(Source)
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
FileExists = False
' Attempt to open the file
Set oTempStream = FileObject.OpenTextFile(strFilename, 1, FALSE, TRUE )
If Err = 0 Then FileExists = True
End Function
%>