Tekil Mesaj gösterimi - Domain Sorgusunda Hata...

Konu Domain Sorgusunda Hata...
15-11-2006, 10:00:56
Arkadaslar hosting sitesi actim fakat domain sorgusu cekildiginde her domain icin musait diyor...

annamadim gitti..

hatta google bile musait gozukuyor..Bi bakip bana yardimci olursaniz cok sevinirim..
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>