<%
'********************************************************************
' File    : robots.txt
' Purpose : Creates an on-the-fly robot text file
' Author  : KVS, August, 2009
'********************************************************************
%>
<!-- #include file="core/cls_Generic.asp" -->
<%
Dim objPage
Dim strFileName
Set objPage = New cls_Generic

strFileName = "home_site.txt"

If UCase(objPage.Tracking.ShellID) = "SLEEPSOLUTIONS"   Then
	strFileName = "home_sleep.txt"
ElseIf UCase(objPage.Tracking.ShellID) = " PICKETFENCE"   Then
	strFileName = "home_pick.txt"
End If

Response.Write Server.MapPath(strFileName)

Dim fs,f
set fs = Server.CreateObject("Scripting.FileSystemObject")
set f = fs.OpenTextFile(Server.MapPath(strFileName), 1)

Response.Write(f.ReadAll)

f.Close
set f=nothing
set fs=nothing

%>