<%@Language=VBScript%>
<% Option Explicit %>
<% Response.Buffer = True %>
<%
'Dim refer
'refer = Request.ServerVariables("HTTP_REFERER")
'If (refer = "") Or (InStr(refer, "http://www.devoltaaomercado.com.br/") <> 0) Then
' Response.Redirect("/devoltaaomercado/")
'Response.End
'End If
Select Case LCase(Request.ServerVariables("HTTP_HOST"))
Case "www.asbelascoisas.com.br"
Response.Redirect "/asbelascoisas/"
Response.End
Case "www.devoltaaomercado.com.br"
Response.Redirect "/devoltaaomercado/"
Response.End
Case "www.acidadedosol.com.br"
Response.Redirect "/a_cidade_do_sol/"
Response.End
Case "www.omundoeoquevocecome.com.br"
Response.Redirect "/o_mundo_e_o_que_voce_come/"
Response.End
Case "www.ocacadordepipas.com.br"
Response.Redirect "/ocacadordepipas/"
Response.End
End Select
%>
Nova Fronteira
_
_