%
function mstrGetURL()
mstrGetURL= Request.serverVariables("SERVER_NAME")
End function
'Response.Write(mstrGetURL)
if InStr(mstrGetURL,"www")>0 then
varRaw = mstrGetURL
varLocDashOne = instr(varRaw,".")+1
'varLocDashTwo = instr(varRaw,"[")
DNName = mid(varRaw,varLocDashone)
Else
DNname = mstrGetURL
End if
DNName = Trim(DNname)
DNName = LCase(DNname)
'Response.Write(DNname & "
")
' ***********************************************************************
Set conn = Server.CreateObject ("ADODB.Connection")
%>
<%
sql = "select * from URLForwarding where DomainName = '" & DNname & "'"
Set accInfoObj = conn.Execute (sql)
If accInfoObj.EOF then
'Response.Write(DNname & " No Existe" & "
" )
%>
|
<%
If DNName = "odnr.com" or DNName = "www.odnr.com" then
Else
Response.Write("" & DNName & " ")
%>
Coming Soon !
|
<%
end if
%>
|
|||||||||||||||||||||||||
|
|
|||||||||||||||||||||||||||
|
|
|||||||||||||||||||||||||||
|
|

Advertise
on $10-Domains.com
| Terms
of Service
|
Legal
Notice
Dispute
Policy
|
Uniform
Rules
Copyright
© 1999 - 2002 $10-Domains.com - Parava Networks, Inc.. registro de dominios,
dominios,dominio,registro,registrate,internic,internet,direccion,web,sitio,domain,registration,icann,url,whois,
hosting, nombres, nombre, domainnames, domain,domains,registrateya,registrate
ya,spanish,registration,register,url,domain registration,web
internet,address,icann,register your domain,register,website,site, bajo
construccion, under construccion, parava networks, preregistro, .com, .net,
.org, .biz, .info, naame.com, neulevel, afilias, domain auctions, search engine,
$10 Domains, $10Domains, ten dollar domains
Total
or partial reproduction of this site is prohibited.
Please read our Dispute Policy
and Rules.
![]()