İlk Önce Hayırlı Bayramlar Arkadaşlar;
Aşagıdaki kodla domain sorguladığım zaman .com ve .net uzantılı bütün isimleri alına bilir gözüküyor .org,.biz,.info uzantılı domainlerde sorgulama doğru çalışıyor. .com ve .net uzantılarının çalışmama sebebi sizce neden dir ? Arkadaşlar konu hakkında yardımcı olursanız çok sevinirim...ekte ilgili dosyaları ekledim..



<%
On Error Resume Next

domain1 = Trim(Request.form("referer"))
domain2 = Trim(Request.form("uzanti"))
URL = ""&domain1&""&domain2&""

URL = Replace(****"http://","")
URL = Replace(****"www.","")
domaincikti = url

URL = "http://www."&url&""
domain = url

Function DomainControl(URL)
WhoisServer = "http://www.webservicex.net/whois.asmx/GetWhoIS?HostName=" & URL
Const adTypeText = 2
Const adReadAll = -1
Set objHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP" )
Set objStream = Server.CreateObject("ADODB.Stream" )
objHTTP.Open "GET" , WhoisServer, false

objHTTP.Send

objStream.Open
objStream.Type = adTypeText
objStream.WriteText(objHttp.ResponseBody)
objStream.Position = 0
objStream.CharSet = "latin1"
ControlResult = objStream.ReadText(adReadAll)
objStream.Close

Set objStream = Nothing
Set objHTTP = Nothing

%>
<form method="post" action="<%=Request.ServerVariables("SCRIPT_NAME")% >" name="whois">
<table border="0" cellpadding="0" style="border-collapse: collapse" width="340">
<tr>
<td height="26" width="340" colspan="4">
<p class="baslik">
Domain sorgulama ekran&yacute;
</p>
</td>
</tr>
<tr>
<td height="26" width="346" colspan="4">
<p class="dikkat">
Lütfen domain adresinizi do&eth;ru yazd&yacute;&eth;&yacute;n&yacute;zdan emin olun. Tescil sonras&yacute;nda de&eth;i&thorn;iklik yapman&yacute;z mümkün de&eth;ildir.
</p>
</td>
</tr>
<tr>
<td height="26" width="62">
<p align="left">
Webmaster Forum.
</p>
</td>
<td height="26" width="117">
<p align="left">
<input type="text" name="referer" size="20" class="textarea" />
</p>
</td>
<td height="26" width="64">
<p align="left">
<select size="1" name="uzanti">
<option value=".com">.com</option>
<option value=".net">.net</option>
<option value=".org">.org</option>
<option value=".biz">.biz</option>
<option value=".info">.info</option>
</select>
</p>
</td>
<td height="26" width="98">
<p align="left">
<input type="submit" value="Sorgula" onclick="javascript:this.form.submit();this.disabl ed=true;this.value='Bekleyin.';" class="button" />
</p>
</td>
</tr>
<tr>
<td height="26" width="340" colspan="4">
<p align="right">
<br />
</p>
<%
if domaincikti = "" then
response.write "Domain sadece 15 ytL"
else
If instr(ControlResult,"No match for")>0 Then
DomainControl = True

Response.Write "<p align='center'><span class='baslik'>"&domaincikti&"</span> al&yacute;nabilir durumda.</p><p align='right'><br /><p align='center'>"&domain&" adl&yacute; domain sipari&thorn;i için <a href='domain-siparis.asp?islem=siparis&domain="&domain&"'><b>t& yacute;klay&yacute;n&yacute;z.</b></a>"
Else
DomainControl = False
Response.Write "<p align='center'><span class='baslik'>"&domaincikti&"</span> adl&yacute; domain daha önce kaydedilmi&thorn;tir.</p>"
End If
End If
%>
</td>
</tr>
</table>
</form>
<%
End Function
Call DomainControl(URL)
%>