<%
'********************************************************************
' 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 = "skit_site.txt"

If UCase(objPage.Tracking.ShellID) = "BOR"   Then
	strFileName = "skit_bor.txt"
ElseIf UCase(objPage.Tracking.ShellID) = "INT" or UCase(objPage.Tracking.ShellID) = "INTL"   Then
	strFileName = "skit_int.txt"
ElseIf UCase(objPage.Tracking.ShellID) = "ELE"   Then
	strFileName = "skit_ele.txt"
End If

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

%>