%
'***********************************
'// By Ferruh Mavituna
'// http://ferruh.mavituna.com
'// ferruh@mavituna.com
'// Freelance Designer & Developer, Security Adviser
'// 246 Country
'// Contact with me for commercial projects
'// date : 09.03.2000
'// PRJ.Whois Lookup v1.7
'***********************************
'// Cache ?
On Error Resume Next
Response.Expires = 0
Response.Expiresabsolute = Now() - 1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Dim WhoisQ, BoolFound, Domain, DomainOK, intLoopCounter, strTextInput, ClearTopStr, ClearBottomStr, PosCounter, ClearTopPosCheck, ClearTopPos, ClearTopStrPlus, ClearBottomPos, ClearBottomPlus
DomainOK = True
Domain = Trim(Request.Querystring("domain"))
'// Clear String
For intLoopCounter = 0 to 44
Domain = Replace(Domain, CHR(intLoopCounter), "")
Next
For intLoopCounter = 58 to 96
strTextInput = Replace(strTextInput, CHR(intLoopCounter), "")
Next
For intLoopCounter = 123 to 255
strTextInput = Replace(strTextInput, CHR(intLoopCounter), "")
Next
'// Clear string
domain = Replace(domain,"www.","")
domain = Replace(domain,"http://","")
domain = Replace(domain,"/","")
domain = Server.HTMLEncode(domain)
'// Check Valid String
If domain = "" OR Len(domain) < 2 Then
domainOK = False
End If
'// Activate for fm_whois.asp?xxx.com
'Domain = Trim(Request.Servervariables("QUERY_STRING"))
Domain = Lcase(Domain)
%>
Register your domain name
Use email right away
Hosting your own website
Secure a business name
Reseller account available
Domain Types
2 Year Registration
.co.uk | .org.uk | .net.uk | .ltd.uk | .plc.uk | .me.uk
£10.00
.com | .net | .org | .info | .biz | .be
£30.00
Register or Transfer the domain name of your choice to Virtualapps UK. Run a website, with email from £22.00 per year or choose a Web Mail package from £16.99 per year.
Our hosting packages are fantastic value for money, starting at just £1.83 per month! We believe in offering great value for money plus load of great feature.
Why not signup today!