Domain Kontrol Kodunda Hata Yardimci olurmusunuz lutfen...

[programcim]

Arkadaslar asagidaki kodu siteme eklyorum fakat domain sorusturmasi yaptigimda sonuc hepsi musait cikiyor burdaki hata nedir?

Klas Ticaret Hosting ve Domain Hizmetleri Domain Sorgulama Sonuçları
<br><br>
<center>
<%
Set obj = CreateObject("SOFTWING.ASPtear")
domain=request("domain")
url1="http://www.internic.net/cgi/whois?whois_nic="
url1=url1&domain&".com"
url1=url1&"&type=domain"
txtURL1 = obj.Retrieve(url1, 2, "", "", "")

url2="http://www.internic.net/cgi/whois?whois_nic="
url2=url2&domain&".net"
url2=url2&"&type=domain"
txtURL2 = obj.Retrieve(url2, 2, "", "", "")

url3="http://www.internic.net/cgi/whois?whois_nic="
url3=url3&domain&".org"
url3=url3&"&type=domain"
txtURL3 = obj.Retrieve(url3, 2, "", "", "")

on error resume next

a1=InStr(1,txtURL1,"Domain Name:")
if a1>0 then
MESAJ1="Müsait Değil"
else
MESAJ1="Müsait"
end if

a2=InStr(1,txtURL2,"Domain Name:")
if a2>0 then
MESAJ2="Müsait Değil"
else
MESAJ2="Müsait"
end if

a3=InStr(1,txtURL3,"Domain Name:")
if a3>0 then
MESAJ3="Müsait Değil"
else
MESAJ3="Müsait"
end if

response.write " <table width=""100%"" cellpadding=""1"" cellspacing=""1"" border=""0"" align=""left"">"
response.write " <tr> "
response.write " <td> </td>"
response.write " </tr>"

response.write " <tr > "
response.write " <td><font style=""font: bold 11px tahoma;"" color=""red"">ALAN ADI</font></td>"
response.write " <td><font style=""font: bold 11px tahoma;"" color=""red"">ALAN DURUMU</font></td>"
response.write " <td><font style=""font: bold 11px tahoma;"" color=""red"">İŞLEM</font></td>"
response.write " </tr>"

response.write " <tr> "
if MESAJ1="Müsait Değil" then
response.write " <td><font style=""font: bold 11px tahoma;"" color=""blue""><a target=""_blank"" href=""http://www."&domain&".com"">http://www."&domain&".com</a></font></td>"
else
response.write " <td><font style=""font: bold 11px tahoma;"" color=""blue"">http://www."&domain&".com</font></td>"
end if
response.write " <td><font style=""font: bold 11px tahoma;"" color=""gray"">"&MESAJ1&"</font></td>"
if MESAJ1="Müsait" then
response.write " <td><font style=""font: bold 11px tahoma;"" color=""red""><a href="".?/=domainReg&forward=domainRegForm&domain="&domain&"&uzanti=com&s="&s&""">Satın Al</a></font></td>"
else
response.write " <td><font style=""font: bold 11px tahoma;"" color=""red""><a href=""#"" onclick=""penc('whoisdetay.asp?Nick="&domain&".com')"">Detay</a></font></td>"
end if
response.write " </tr>"

response.write " <tr> "
if MESAJ2="Müsait Değil" then
response.write " <td><font style=""font: bold 11px tahoma;"" color=""blue""><a target=""_blank"" href=""http://www."&domain&".net"">http://www."&domain&".net</a></font></td>"
else
response.write " <td><font style=""font: bold 11px tahoma;"" color=""blue"">http://www."&domain&".net</font></td>"
end if
response.write " <td><font style=""font: bold 11px tahoma;"" color=""gray"">"&MESAJ2&"</font></td>"
if MESAJ2="Müsait" then
response.write " <td><font style=""font: bold 11px tahoma;"" color=""red""><a href="".?/=domainReg&forward=domainRegForm&domain="&domain&"&uzanti=net&s="&s&""">Satın Al</a></font></td>"
else
response.write " <td><font style=""font: bold 11px tahoma;"" color=""red""><a href=""#"" onclick=""mesaj('whoisdetay.asp?Nick="&domain&".net')"">Detay</a></font></td>"
end if
response.write " </tr>"

response.write " <tr> "
if MESAJ3="Müsait Değil" then
response.write " <td><font style=""font: bold 11px tahoma;"" color=""blue""><a target=""_blank"" href=""http://www."&domain&".org"">http://www."&domain&".org</a></font></td>"
else
response.write " <td><font style=""font: bold 11px tahoma;"" color=""blue"">http://www."&domain&".org</font></td>"
end if
response.write " <td><font style=""font: bold 11px tahoma;"" color=""gray"">"&MESAJ3&"</font></td>"
if MESAJ3="Müsait" then
response.write " <td><font style=""font: bold 11px tahoma;"" color=""red""><a href="".?/=domainReg&forward=domainRegForm&domain="&domain&"&uzanti=org&s="&s&""">Satın Al</a></font></td>"
else
response.write " <td><font style=""font: bold 11px tahoma;"" color=""red""><a href=""#"" onclick=""mesaj('whoisdetay.asp?Nick="&domain&".org')"">Detay</a></font></td>"
end if
response.write " </tr>"

response.write " <tr> "
if MESAJ3="Müsait Değil" then
response.write " <td><font style=""font: bold 11px tahoma;"" color=""blue""><a target=""_blank"" href=""http://www."&domain&".info"">http://www."&domain&".info</a></font></td>"
else
response.write " <td><font style=""font: bold 11px tahoma;"" color=""blue"">http://www."&domain&".info</font></td>"
end if
response.write " <td><font style=""font: bold 11px tahoma;"" color=""gray"">"&MESAJ3&"</font></td>"
if MESAJ3="Müsait" then
response.write " <td><font style=""font: bold 11px tahoma;"" color=""red""><a href="".?/=domainReg&forward=domainRegForm&domain="&domain&"&uzanti=info&s="&s&""">Satın Al</a></font></td>"
else
response.write " <td><font style=""font: bold 11px tahoma;"" color=""red""><a href=""#"" onclick=""mesaj('whoisdetay.asp?Nick="&domain&".info')"">Detay</a></font></td>"
end if
response.write " </tr>"

response.write " <tr> "
if MESAJ3="Müsait Değil" then
response.write " <td><font style=""font: bold 11px tahoma;"" color=""blue""><a target=""_blank"" href=""http://www."&domain&".name"">http://www."&domain&".name</a></font></td>"
else
response.write " <td><font style=""font: bold 11px tahoma;"" color=""blue"">http://www."&domain&".name</font></td>"
end if
response.write " <td><font style=""font: bold 11px tahoma;"" color=""gray"">"&MESAJ3&"</font></td>"
if MESAJ3="Müsait" then
response.write " <td><font style=""font: bold 11px tahoma;"" color=""red""><a href="".?/=domainReg&forward=domainRegForm&domain="&domain&"&uzanti=name&s="&s&""">Satın Al</a></font></td>"
else
response.write " <td><font style=""font: bold 11px tahoma;"" color=""red""><a href=""#"" onclick=""mesaj('whoisdetay.asp?Nick="&domain&".name')"">Detay</a></font></td>"
end if
response.write " </tr>"

response.write " <tr> "
if MESAJ3="Müsait Değil" then
response.write " <td><font style=""font: bold 11px tahoma;"" color=""blue""><a target=""_blank"" href=""http://www."&domain&".biz"">http://www."&domain&".biz</a></font></td>"
else
response.write " <td><font style=""font: bold 11px tahoma;"" color=""blue"">http://www."&domain&".biz</font></td>"
end if
response.write " <td><font style=""font: bold 11px tahoma;"" color=""gray"">"&MESAJ3&"</font></td>"
if MESAJ3="Müsait" then
response.write " <td><font style=""font: bold 11px tahoma;"" color=""red""><a href="".?/=domainReg&forward=domainRegForm&domain="&domain&"&uzanti=biz&s="&s&""">Satın Al</a></font></td>"
else
response.write " <td><font style=""font: bold 11px tahoma;"" color=""red""><a href=""#"" onclick=""mesaj('whoisdetay.asp?Nick="&domain&".biz')"">Detay</a></font></td>"
end if
response.write " </tr>"

response.write " <tr> "
if MESAJ3="Müsait Değil" then
response.write " <td><font style=""font: bold 11px tahoma;"" color=""blue""><a target=""_blank"" href=""http://www."&domain&".us"">http://www."&domain&".us</a></font></td>"
else
response.write " <td><font style=""font: bold 11px tahoma;"" color=""blue"">http://www."&domain&".us</font></td>"
end if
response.write " <td><font style=""font: bold 11px tahoma;"" color=""gray"">"&MESAJ3&"</font></td>"
if MESAJ3="Müsait" then
response.write " <td><font style=""font: bold 11px tahoma;"" color=""red""><a href="".?/=domainReg&forward=domainRegForm&domain="&domain&"&uzanti=us&s="&s&""">Satın Al</a></font></td>"
else
response.write " <td><font style=""font: bold 11px tahoma;"" color=""red""><a href=""#"" onclick=""mesaj('whoisdetay.asp?Nick="&domain&".us')"">Detay</a></font></td>"
end if
response.write " </tr>"
response.write "<tr>"
response.write "<td colspan=3><br><br>"
with response
.write "<table width=""100%"" cell-padding=2 cell-spacing=3>"
.write "<tr bgcolor=efefef>"
.write "<td width=""20%"">"
.write ".com.tr<br>"
.write ".org.tr<br>"
.write ".gov.tr<br>"
.write ".bel.tr<br>"
.write ".k12.tr"
.write "</td>"
.write "<td>"
.write "30 $<br>"
.write "20 $<br>"
.write "20 $<br>"
.write "20 $<br>"
.write "20 $"
.write "</td>"
.write "</tr>"
.write "<tr>"
.write "<td colspan=2 align=center><br>"
.write "<a href=.?/=contact&mod=3&s="&s&">Özel Kurumsal Paketlerinizin Siparişleri İçin Lütfen Bizimle İrtibata Geçiniz..</a>"
.write "</td>"
.write "</tr>"
.write "</table>"
end with
response.write "</td>"
response.write "</tr>"

response.write " </table>"
set obj = nothing





%>
</center>

[programcim]

arkadaslar yardimci olucak yokmu?