<%
Dim test
Dim oFileSys
Dim oFileStream
Dim filePath
Dim sFileName
Dim text
test = RequestString("test","0")
on error resume next
filePath = server.MapPath("HTML") & "\"
Set oFileSys = Server.CreateObject("Scripting.FileSystemObject")
If test = "1" Then
sFileName = "testProductIndex.HTM"
Else
sFileName = "ProductIndex.HTM"
End If
Set oFileStream = oFileSys.OpenTextFile(filePath & sFileName,1)
If err.number = 0 Then
text = oFileStream.ReadAll
oFileStream.Close
Else
text = "Failed to locate file HTML\" & sFileName & ""
End If
Set oFileStream = Nothing
Set oFileSys = Nothing
%>
