<%
'********************************************************************
' 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 = "abby_site.txt"

If UCase(objPage.Tracking.ShellID) = "BLS"   Then
	strFileName = "abby_bls.txt"
ElseIf UCase(objPage.Tracking.ShellID) = "OCP"   Then
	strFileName = "abby_ocp.txt"
ElseIf UCase(objPage.Tracking.ShellID) = "TRD"   Then
	strFileName = "abby_trd.txt"
ElseIf UCase(objPage.Tracking.ShellID) = "IIC"   Then
	strFileName = "abby_IIC.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

%>