iyi geceler öncelikle
asp domain sorgulama kodları var fakat bu kodlarda uzantı açılır kutu ile tek bir tane seçiliyor.
benim istediğim ise checkbox ile birden fazla seçilmesi yani checkbox ile olması.
aşağıda kodları paylaşıyorum yardımcı olacak arkadaşlardan ALLAH razı olsun.
domain.asp
domainsorgu.asp
yardımlarınızı bekliyorum..
asp domain sorgulama kodları var fakat bu kodlarda uzantı açılır kutu ile tek bir tane seçiliyor.
benim istediğim ise checkbox ile birden fazla seçilmesi yani checkbox ile olması.
aşağıda kodları paylaşıyorum yardımcı olacak arkadaşlardan ALLAH razı olsun.
domain.asp
Kod:
<td align="left" valign="middle"><form id="form1" name="form1" method="post" action="domainsorgu.asp">
<label>
<input type="text" name="domain" id="domain" />
<select name="uzanti" id="uzanti">
<option value=".com">com</option>
<option value=".net">net</option>
<option value=".og">org</option>
<option value=".biz">biz</option>
</select>
</label>
<input name="button" title="Sorgulama için tıklayınız" type="submit" value="Sorgula »" />
</form></td>domainsorgu.asp
Kod:
DOMAIN SORGULAMA</strong></span></td>
</tr>
<tr>
<td width="28" height="144"> </td>
<td width="572" valign="top"><%
if left(request.form("domain"),4)="www." then
harfsayi=len(request.form("domain"))
harfsayi2=harfsayi-4
asildomain=right(request.form("domain"),harfsayi2) & request.form("uzanti")
GotothisURL = "http://www." & right(request.form("domain"),harfsayi2) & request.form("uzanti")
else
GotothisURL = "http://www." & request.form("domain") & request.form("uzanti")
asildomain=request.form("domain") & request.form("uzanti")
end if
Set GetConnection = CreateObject("Microsoft.XMLHTTP")
GetConnection.Open "get", GotothisURL, False
on error resume next
GetConnection.Send
ResponsePage = GetConnection.getResponseHeader("Date")
if ResponsePage="" then
durum="alinmamis"
else
durum="alinmis"
end if
Set GetConnection = Nothing
%>
<% if durum="alinmis" then %>
<% ="Almak istediğiniz alan adı kullanılmaktadır.<br>" %>
<span class="style13">
<% =asildomain %>
</span> - <a href="kimalmis.asp?strDomainName=<% =Trim(request.form("domain")) %>&strSuffix=
<% =Trim(request.form("uzanti")) %>"><strong>KİM ALMIŞ</strong></a>
<% end if %>
<% if durum="alinmamis" then %>
<% ="Almak istediğiniz alan adı boştadır.<br>" %>
<span class="style13">
<% =asildomain %>
</span> - <a href="domainsatinal.asp?alanadi=<% =Trim(request.form("domain")) %><% =Trim(request.form("uzanti")) %>"><strong>SATIN AL</strong></a>
<% end if %></td>yardımlarınızı bekliyorum..
