| |
<%
If Len(Request.Querystring("article")) > 2 Then
' Declare variables for the File System Object and the File to be accessed.
Dim objFSO, objTextFile
' Create an instance of the the File System Object and assign it to objFSO.
Set objFSO = CreateObject("Scripting.FileSystemObject")
' Open the file
Set objTextFile = objFSO.OpenTextFile(Server.MapPath("articles/" & Request.Querystring("article") & ".html"))
Do While Not objTextFile.AtEndOfStream
Response.Write objTextFile.ReadLine & vbNewLine
Loop
objTextFile.Close' Close the file.
Set objTextFile = Nothing ' Release reference to the text file.
Set objFSO = Nothing ' Release reference to the File System Object.
Else
%> Sports Medicine Articles
Articles Co-Authored By Dr. Maggs and Coach Al Miller of the
Atlanta Falcons
Sports Psychology Articles
<% End If %> |
