% @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
%>
We have many other names for sale please use the search below.
Domain name
Cost
<%
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"
%>