<% response.buffer = true %>
<HTML>
<HEAD>
<TITLE>netsrac.dk - Freelance Webarkitekt</TITLE>
<STYLE TYPE="text/css">
<!--
A:link { text-decoration: none; color: f7740a }
A:visited { text-decoration: none; color: f7740a }
A:active { text-decoration: none; color: f7740a }
A:hover { text-decoration: underline; color: f7740a }
INPUT { background-color: #efefef }
-->
</STYLE>
</HEAD>
<BODY BGCOLOR="#DCD9D3" TEXT="#000000">
<TABLE BORDER="0" WIDTH="100%" HEIGHT="100%" cellspacing="0" cellpadding="0">
<TR><TD VALIGN="center" align="center">
<TABLE BORDER="1" BORDERCOLOR="#000000" WIDTH="600" HEIGHT="350" cellspacing="1" cellpadding="1">
<TR>
<TD BGCOLOR="#000000" VALIGN="top">
<TABLE BORDER="0" WIDTH="100%" HEIGHT="20" cellspacing="0" cellpadding="0">
<TR><TD><!-- #include file="menu.html" --></TD></TR></TABLE>
</TD>
</TR>
<TR>
<TD bgcolor="#efefef">
<TABLE BORDER="0" WIDTH="100%" HEIGHT="330" cellspacing="5" cellpadding="5">
<TR><TD VALIGN="top">
<FONT SIZE="2" FACE="Tahoma">
På denne side kan de søge på domains.<P>
Domain navne skal angives uden www. foran.<BR>
Domain navne må IKKE indeholde æ, ø, å samt _.<BR>
Domain navne må KUN indeholde et punktum.<BR>
Det er muligt at søge på dk, com, net og org domains<BR>
<FORM METHOD="POST" ACTION="domain.asp">
<INPUT TYPE="text" NAME="domain" SIZE="20"> <INPUT TYPE="submit" VALUE="Test" NAME="Test"></P>
</FORM>
<% if request.querystring("fejl") = "1" then %>
<FONT COLOR="f7740a">De kan kun søge på dk, com, net og org domains.</FONT>
<% end if %>
<% if request.querystring("fejl") = "2" then %>
<FONT COLOR="f7740a">De skal indtaste et domain.</FONT>
<% end if %>
<% if request.querystring("fejl") = "3" then %>
<FONT COLOR="f7740a">De skal ikke taste "www." foran domainet.</FONT>
<% end if %>
<% if request.querystring("fejl") = "4" then %>
<FONT COLOR="f7740a">Et domain navn må ikke indeholde æ, ø, å og _</FONT>
<% end if %>
<% if request.querystring("fejl") = "5" then %>
<FONT COLOR="f7740a">Et domain navn må KUN indeholde et punktum.</FONT>
<% end if %>
<%
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
StrDomain = trim(request.form("domain"))
if len(StrDomain) = 0 Then
response.redirect ("domain.asp?fejl=2")
end if
If InStr(StrDomain, "www.") > 1 then
response.redirect ("domain.asp?fejl=3")
end if
if InStr(1, StrDomain, ".") > 0 and InStr(InStr(1, StrDomain, ".")+1, StrDomain, ".") then
response.redirect ("domain.asp?fejl=5")
end if
If InStr(StrDomain, "æ") then
response.redirect ("domain.asp?fejl=4")
end if
If InStr(StrDomain, "ø") then
response.redirect ("domain.asp?fejl=4")
end if
If InStr(StrDomain, "å") then
response.redirect ("domain.asp?fejl=4")
end if
If InStr(StrDomain, "_") then
response.redirect ("domain.asp?fejl=4")
end if
' // .DK Domains
if InStr(StrDomain, ".dk") then
Set objSocket = Server.CreateObject("Socket.TCP")
objSocket.Host = "whois.dk-hostmaster.dk:43"
objSocket.Open
objSocket.SendLine(strDomain)
objSocket.WaitForDisconnect
tmpBuffer = objSocket.Buffer
If InStr(1, tmpBuffer, "% No entries found", 1) > 0 Then
Response.Write "<FONT COLOR='f7740a'>Domain navnet <B>" & strDomain & "</B> er ledigt hos DK-HOSTMASTER.</FONT>"
Else
Response.Write "<FONT COLOR='f7740a'>Desværre domainet <B>" & strDomain & "</B> er optaget.</FONT><BR>"
Response.Write "<BLOCKQUOTE><PRE>" & tmpBuffer & "</PRE></BLOCKQUOTE>"
End If
objSocket.Close
' // .COM og .NET og .ORG Domains
ElseIf InStr(StrDomain, ".com") OR InStr(StrDomain, ".net") OR InStr(StrDomain, ".org") then
Set objSocket = Server.CreateObject("Socket.TCP")
objSocket.Host = "whois.internic.net:43"
objSocket.Open
objSocket.SendLine(strDomain)
objSocket.WaitForDisconnect
tmpBuffer = objSocket.Buffer
If InStr(tmpBuffer, "Name Server") Then
Response.Write "<FONT COLOR='f7740a'>Desværre domainet <B>" & strDomain & "</B> er optaget.</FONT><BR>"
Response.Write "<BLOCKQUOTE><PRE>" & tmpBuffer & "</PRE></BLOCKQUOTE>"
Else
Response.Write "<FONT COLOR='f7740a'>Domain navnet <B>" & strDomain & "</B> er ledigt hos INTERNIC.</FONT>"
End if
objSocket.Close
else response.redirect("domain.asp?fejl=1")
end if%>
<BR>
Der gives ingen garanti for korrektheden af denne søgning.
<% End If %>
</FONT>
</TD></TR></TABLE>
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
</BODY>
</HTML>
Ny bruger
Nybegynder
Opret
Preview
