Domain Name Registration Pakistan

	">

<% Function GetStatusName(st) if st = "R" then GetStatusName = "Registered" if st = "E" then GetStatusName = "Expired" if st = "A" then GetStatusName = "Available" if st = "X" then GetStatusName = "Not Checked" End Function If request("domain") <> "" Then selected_id = request("id") domain = request("domain") suffix = request("suffix") com = request("com") net = request("net") org = request("org") compk = request("compk") netpk = request("netpk") selected = request("selected") i = 0 com_id = 10 net_id = 10 org_id = 10 compk_id = 28 netpk_id = 28 %>

Search Results :

<%if selected <> "" then %> <%end if%>

<%if selected="A" then i = i + 1 NotAllowed = false '----- Check for invalid .pk domain (minimum 4 characters ------------------------- if suffix = ".pk" and Len(domain) < 4 then NotAllowed = true end if '-------------------------------------------------------------------------------- %> <%if NotAllowed = false then%> <%else%> <%end if%> <%else%> <%end if%>	<%=domain & suffix%>	<% if NotAllowed = false then response.Write( GetStatusName(selected) ) else response.Write("Not Allowed") end if %>	<%if selected="A" then%> <%If NotAllowed = false then%> <%End if%> <%end if%> <%if selected = "R" then%> WWW <%if suffix = ".pk" then%> Whois <%elseif suffix = ".org.pk" or suffix = ".biz.pk" or suffix = ".edu.pk" or suffix = ".web.pk" then%> Whois <%else%> Whois <%end if%> <%end if%> <%if selected = "E" then%> Contact Sales Dept. <%end if%>
<%if com = "A" then i = i + 1 %> <%else%> <%end if%>	<%=domain & ".com"%>	<%=GetStatusName(com)%>	<%if com="A" then%> <%end if%> <%if com = "R" then%> " target="_blank">WWW " target="_blank">Whois <%end if%> <%if com = "E" then%> Contact Sales Dept. <%end if%>
<%if net = "A" then i = i + 1 %> <%else%> <%end if%>	<%=domain & ".net"%>	<%=GetStatusName(net)%>	<%if net="A" then%> <%end if%> <%if net = "R" then%> " target="_blank">WWW " target="_blank">Whois <%end if%> <%if net = "E" then%> Contact Sales Dept. <%end if%>
<%if org = "A" then i = i + 1 %> <%else%> <%end if%>	<%=domain & ".org"%>	<%=GetStatusName(org)%>	<%if org="A" then%> <%end if%> <%if org = "R" then%> " target="_blank">WWW " target="_blank">Whois <%end if%> <%if org = "E" then%> Contact Sales Dept. <%end if%>
<%if compk = "A" then i = i + 1 %> <%else%> <%end if%>	<%=domain & ".com.pk"%>	<%=GetStatusName(compk)%>	<%if compk="A" then%> <%end if%> <%if compk = "R" then%> " target="_blank">WWW " target="_blank">Whois <%end if%> <%if compk = "E" then%> Contact Sales Dept. <%end if%>
<%if netpk = "A" then i = i + 1 %> <%else%> <%end if%>	<%=domain & ".net.pk"%>	<%=GetStatusName(netpk)%>	<%if netpk="A" then%> <%end if%> <%if netpk = "R" then%> " target="_blank">WWW " target="_blank">Whois <%end if%> <%if netpk = "E" then%> Contact Sales Dept. <%end if%>

<% End If %>

<% cn.close set cn = nothing %>