Redirecionando domínios para pastas de acordo com o endereço

Bom aspianos esse é um código muito simples e muito eficaz, não sei se a maioria já se perguntou é possivel fazer o espelhamento de dominio para a pasta determina utilizando o ASP? eu fiz esta pergunta para mim mesmo e desenvolvi um codigo para isso, entao vamos maos a obra.

Iniciando o codigo:

'[[default.asp]] - na raiz do site
<%@ Language=VBScript %>
<%
'----------------------------------------------------------------------
'----------------------Script desenvolvido por -------------------
'----------------------Heber Almeida------------------------------
'----------------------heber@heberonline.com.br---------------
'----------------------www.heberalmeida.com------------------
'----------------------------------------------------------------------

Dim sURL, sPath
sURL = Request.ServerVariables("HTTP_HOST")
sPath = Request.ServerVariables("PATH_INFO")
	Select Case sURL
		Case "www.heberonline.com.br", "heberonline.com.br"
		Response.Redirect "2010" & sPath 
                                          Case "www.h3ber.com", "h3ber.com"
		Response.Redirect "2010" & sPath
		Case "www.heberalmeida.com", "heberalmeida.com"
		Response.Redirect "2010"
	End Select
%>

'[[default.asp]] - na raiz do site

<%@ Language=VBScript %>

'----------------------------------------------------------------------

'----------------------Script desenvolvido por -------------------

'----------------------Heber Almeida------------------------------

'----------------------heber@heberonline.com.br---------------

'----------------------www.heberalmeida.com------------------

'----------------------------------------------------------------------

Dim sURL, sPath

sURL = Request.ServerVariables("HTTP_HOST")

sPath = Request.ServerVariables("PATH_INFO")

Select Case sURL

Case "www.heberonline.com.br", "heberonline.com.br"

Response.Redirect "2010" & sPath

Case "www.h3ber.com", "h3ber.com"

Response.Redirect "2010" & sPath

Case "www.heberalmeida.com", "heberalmeida.com"

Response.Redirect "2010"

End Select

Heber Almeida

Autor

Em 1999 começou sua história com internet, buscando várias informações sobre o assunto, manteve-se no interesse. Mas somente em 2005 foi que vingou, graduando Tecnlogia de Desenvolvimento de Sistemas Web na Unaes em Campo Grande-ms, escolheu uma linguagem de programação. asp (o que mais programo) e o .net, possui amplo conhecimento gráfico em adobe photoshop, adobe illustrator e adobe fireworks. Possui conhecimento também em adobe flash, javascript, ajax, dhtml, php, mysql e c#.

Ver todas as publicações de Heber Almeida