<!-- #INCLUDE FILE="../includes/I_DBInfo.asp" -->
User-agent: ia_archiver
Disallow: /
<%	' 11-12-03	JC;	add User-agent: slurp
	' 03-18-04	JC; 	add User-agent: ia_archiver
				'Disallow: /
	' 08-16-04	JC;	disallow Zor_6077/CURVES_FOR_WOMEN.htm '
	' 11-08-04	JC;	disallow /?r=MLIC04 for User-agent: Googlebot
	' 11-18-04	JC;	remove disallow Zor_6077/CURVES_FOR_WOMEN.htm
	' 11-30-04	JC; 	add Disallow lenders.asp
	' 07-22-05	JC;	add Disallow: /forum/disclaimer.htm
' 09-28-05	JC;	add Disallow: /Zor_329029/Solar_Graphics.htm
' 11-20-07	JC;	add disallow: /franchisetrader-resale/ and /franchisetrader/ since trader is moved to resale
' 02-24-09	JC; 	add Disallow contact.asp  
' 03-16-09	JC; add Disallow /advertising/goldleaf.htm
' 08-18-09	JC; add Disallow about us pages

aVar = 1
	
Response.ContentType = "text/plain"

Set aConn = Server.CreateObject("ADODB.Connection")
aConn.ConnectionString = SEARCHDBCONNECTSTRING 

aConn.Open()


'seoDomainName = Lcase(Request.ServerVariables("SERVER_NAME"))
seoDomainName = stripDomain(Request.ServerVariables("SERVER_NAME"))
'seoDomainName = Replace(seoDomainName,"staging.","")
SqlState = "sp_GetDomainInfoByDomainName '" & seoDomainName & "'"
'REsponse.WRite SqlState
Set aRS = aConn.Execute(SqlState)

Dim isAlias, isInfo, isFeeder

isAlias = 0
isInfo = 0 
isFeeder = 0

do while (not aRS.EOF)
	isAlias	= aRS("isAlias")
	isInfo = aRS("isInfo")
	isFeeder = aRS("isFeeder")
	aRS.Movenext
loop

'Response.Write "Int: " & gintSiteID & vbCRLF
'Response.Write "isAlias: " & isAlias & vbCRLF
'Response.Write "isInfo " & isInfo & vbCRLF
'Response.Write "isFeeder " & isFeeder & vbCRLF
Response.Write  vbCRLF
Response.Write  "Sitemap: http://www.franchiseopportunities.com/Sitemap.xml"
Response.Write  vbCRLF
Response.Write "User-agent: *" & vbCRLF
Response.Write "Disallow: /contact.asp" & vbCRLF
Response.Write "Disallow: /aboutus.asp" & vbCRLF
Response.Write "Disallow: /aboutmanagement.asp" & vbCRLF
Response.Write "Disallow: /aboutaccexecs.asp" & vbCRLF
Response.Write "Disallow: /404.html" & vbCRLF
Response.Write "Disallow: /500codes.asp" & vbCRLF
Response.Write "Disallow: /404codes.asp" & vbCRLF
Response.Write "Disallow: /marketing/" & vbCRLF
Response.Write "Disallow: /SiteContent/" & vbCRLF
Response.Write "Disallow: /fo/" & vbCRLF
Response.Write "Disallow: /track/" & vbCRLF
' disallow assistance/; fundingsources/; contest/
Response.Write "Disallow: /assistance/" & vbCRLF
Response.Write "Disallow: /fundingsources/" & vbCRLF
Response.Write "Disallow: /contest/" & vbCRLF
Response.Write "Disallow: /forum/" & vbCRLF
'Response.Write "Disallow: /Zor_6077/CURVES_FOR_WOMEN.htm" & vbCRLF
Response.Write "Disallow: /Zor_329029/Solar_Graphics.htm" & vbCRLF
Response.Write "Disallow: /lenders.asp" & vbCRLF	
Response.Write "Disallow: /franchisetrader/" & vbCRLF
Response.Write "Disallow: /franchisetrader-resale/" & vbCRLF
Response.Write "Disallow: /advertising/goldleaf.htm" & vbCRLF
Response.Write "Disallow: /suppliers.asp" & vbCRLF
Response.Write "Disallow: /suptrain.asp" & vbCRLF
Response.Write "Disallow: /supprom.asp" & vbCRLF
Response.Write "Disallow: /supoffi.asp" & vbCRLF
Response.Write "Disallow: /supwebtools.asp" & vbCRLF
Response.Write "Disallow: /supwebhost.asp" & vbCRLF
Response.Write "Disallow: /supsearch.asp" & vbCRLF
Response.Write "Disallow: /supinsure.asp" & vbCRLF
Response.Write "Disallow: /supfina.asp" & vbCRLF
Response.Write "Disallow: /supinvest.asp" & vbCRLF
Response.Write "Disallow: /suploans.asp" & vbCRLF
Response.Write "Disallow: /supink.asp" & vbCRLF
Response.Write "Disallow: /suphard.asp" & vbCRLF
Response.Write "Disallow: /supdomain.asp" & vbCRLF
Response.Write "Disallow: /supinte.asp" & vbCRLF
Response.Write "Disallow: /supreal.asp" & vbCRLF
Response.Write "Disallow: /suponline.asp" & vbCRLF
Response.Write "Disallow: /supfinance.asp" & vbCRLF
Response.Write "Disallow: /supcompaccess.asp" & vbCRLF
Response.Write "Disallow: /supsoft.asp" & vbCRLF
Response.Write "Disallow: /suphard.asp" & vbCRLF
Response.Write "Disallow: /bmfranchises.asp" & vbCRLF


if (isAlias = 1)  then
	Response.Write vbCRLF & "User-agent: Googlebot" & vbCRLF
	Response.Write "Disallow: /" & vbCRLF
	Response.Write vbCRLF & "User-agent: slurp" & vbCRLF
	Response.Write "Disallow: /" & vbCRLF
end if
'Response.Write "User-agent: Googlebot" & vbCRLF
'Response.Write "Disallow: /?r=MLIC04" & vbCRLF

aConn.Close()
Set aRS = Nothing
Set aConn = Nothing

Function stripDomain(vstrDomain)
	Dim intCharIndex, strTemp
	if (vstrDomain = "" or isNull(vstrDomain) or vstrDomain=null) then
		stripDomain = ""
	else
		vstrDomain = LCase(vstrDomain) 'Set string to lower case for the comparision
		if left(vstrDomain, 7) = "http://" then vstrDomain = right(vstrDomain, len(vstrDomain) - 7)
		intCharIndex = InStr(vstrDomain,"/") - 1
		if intCharIndex > 0 then vstrDomain = left(vstrDomain, intCharIndex)
		if left(vstrDomain, 4) = "www." then vstrDomain = right(vstrDomain, len(vstrDomain) - 4)
		if left(vstrDomain, 8) = "staging." then vstrDomain = right(vstrDomain, len(vstrDomain) - 8)
		stripDomain = vstrDomain
	end if
End Function

%>