<%Dim strHost Response.ContentType = "text/plain" strHost = LCase(Request.ServerVariables("HTTP_HOST")) if strHost="www./" or strHost="/" then response.write "User-agent: *" & vbCrLf response.write "Disallow: /boletin/acceso/" & vbCrLf response.write "Disallow: /boletin/tema/" & vbCrLf response.write "Disallow: /listado.asp" & vbCrLf response.write "Disallow: /detallescurso.asp" & vbCrLf response.write "Sitemap: /sitemap.xml" else response.write "User-agent: *" & vbCrLf response.write "Disallow: /" end if%>