<% @Language = "VBScript" %> <%session.LCID = 2057%> <% 'on error resume next Set Conn = Server.CreateObject("ADODB.Connection") FilePath = Server.MapPath("domains.mdb") Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & FilePath & ";" %> <% 'get todays date and policy datestamp=formatDateTIME( date(), vblongDate ) search_text=trim(request("search_text")) field_search=trim(request("field_search")) orderby=trim(request("orderby")) sort="%" IF strfiltertext ="" THEN strfiltertext =0 IF SQL ="" THEN strdirection ="" IF strfiltercolumn ="" THEN strfiltercolumn ="name" IF strFieldName ="" THEN strFieldName="name" IF orderby ="" THEN orderby ="name" IF strOrderByField ="" THEN strOrderByField=orderby %> co.in domain names for sale www.TajMahal.co.in
tajmahal.co.in tajmahal.co.in
tajmahal.co.in
tajmahal.co.in

tajmahal.co.in
tajmahal.co.in
tajmahal.co.in
tajmahal.co.in
tajmahal.co.in
tajmahal.co.in
tajmahal.co.in


tajmahal.co.in
 
 
 
 
tajmahal.co.in
tajmahal.co.in
<% no=0+n IF SQL ="" THEN sql = "select * from Qry_domain_search " 'IF orderby <> "" THEN sql = sql&" ORDER BY "&orderby&" "&strdirection END IF 'response.write(sql) Set rsQuery = Conn.Execute(sql) i=1 FOR a = 1 TO n rsquery.movenext NEXT While (Not rsQuery.EOF) AND i < intMaxRows+1 no=no+1 name=rsquery("name") price=rsquery("price") 'strcurrency=rsquery("strcurrency") price="Make offer" %> <% rsquery.movenext i=i+1 WEND %>
Indian.co.in

Description : .co.in domain
Price : Make offer
Bet.co.in

Description : .co.in domain
Price : Make offer
Mobilephones.co.in

Description : .co.in domain
Price : Make offer
Diet.co.in

Description : .co.in domain
Price : Make offer
We have many other names for sale please use the search below.
Search For :   By    View top  records 
Domain name Cost
<%=name%> <%=strcurrency%> <%=price%>
<%IF n>0 THEN%>Previous <%=intMaxRows%> - <%END IF%> <%IF i=intmaxrows+1 THEN%>Next <%=intMaxRows%> <%END IF%>
 
©Copyright 200 ,Tajmahal.co.in,All right Reserved