<% Option Explicit Dim strConnectionstring Dim strSQL Dim rsDomains Dim strDomain Dim strBuyoutPrice Dim strLeasingPrice Dim strCategory Dim strPurpose Dim strSearch Dim strHeader Dim i Const adOpenKeyset = 1 Const adLockReadOnly = 1 Const adOpenStatic = 3 Const adLockPessimistic = 2 Const adCmdText = &H0001 Const adCmdTable = &H0002 strCategory = Request.QueryString("category") strSearch = Request.QueryString("search") If Trim(strSearch) = "" Then strHeader = strCategory Else strHeader = "Search results for "" & strSearch & """ End If '*********************** ' begin GET CATEGORIES * '*********************** strConnectionString = "driver=Microsoft Access Driver (*.mdb); DBQ=" & Server.Mappath("database/domains.mdb") & ";" Set rsDomains = Server.CreateObject("ADODB.Recordset") Dim iId Dim iCategories Dim sCategory strSQL = "SELECT * " & _ "FROM categories " & _ "WHERE deleted = False " & _ "ORDER BY category;" 'Response.Write strSQL & "
" 'Response.end rsDomains.Open strSQL, strConnectionString, adOpenStatic, adLockReadOnly, adCmdText iCategories = rsDomains.Recordcount ReDim iId(iCategories) ReDim sCategory(iCategories) i = 0 Do While Not rsDomains.EOF i = i + 1 iId(i) = rsDomains.Fields("id") sCategory(i) = "" & rsDomains.Fields("category") rsDomains.MoveNext Loop rsDomains.Close %> Wilson Alvarez Consulting Group

Search for:

<% For i = 1 To iCategories %> <%=sCategory(i)%>
<% Next %> 		<% strConnectionString = "driver=Microsoft Access Driver (*.mdb); DBQ=" & Server.Mappath("database/domains.mdb") & ";" Set rsDomains = Server.CreateObject("ADODB.Recordset") If strCategory = "" Then strSQL = "SELECT * " & _ "FROM domains " & _ "LEFT OUTER JOIN categories ON domains.CategoryId = categories.id " & _ "WHERE(DomainName LIKE '%" & strSearch & "%' " & _ "OR category LIKE '%" & strSearch & "%' " & _ "OR Purpose LIKE '%" & strSearch & "%') " & _ "AND DontShow = False " & _ "ORDER BY DomainName;" Else strSQL = "SELECT * " & _ "FROM domains " & _ "LEFT OUTER JOIN categories ON domains.CategoryId = categories.id " & _ "WHERE(DomainName LIKE '%" & strSearch & "%' " & _ "OR category LIKE '%" & strSearch & "%' " & _ "OR Purpose LIKE '%" & strSearch & "%' " & _ "OR Categories.id = " & strCategory & ") " & _ "AND DontShow = False " & _ "ORDER BY DomainName;" End If 'Response.Write strSQL & "
" 'Response.end rsDomains.Open strSQL, strConnectionString, adOpenStatic, adLockReadOnly, adCmdText If rsDomains.RecordCount > 0 Then %> <% Do While Not rsDomains.EOF strDomain = LCase("" & rsDomains.Fields("DomainName")) strCategory = "" & rsDomains.Fields("category") strBuyoutPrice = "" & rsDomains.Fields("BuyoutPrice") strLeasingPrice = "" & rsDomains.Fields("LeasingPrice") strPurpose = "" & rsDomains.Fields("Purpose") If Isnumeric(strBuyoutPrice) = True Then strBuyoutPrice = FormatCurrency(strBuyoutPrice) Else strBuyoutPrice = " " End If If Isnumeric(strLeasingPrice) = True Then strLeasingPrice = FormatCurrency(strLeasingPrice) Else strLeasingPrice = " " End If %> <% rsDomains.MoveNext Loop %>
 Domain 
Name
 		Category
 		 Buyout 
Price
 		 Leasing 
Price
 		Purpose
 		E-mail

<%=strDomain%>

<%=strCategory%>

<%=strBuyoutPrice%>

<%=strLeasingPrice%>

<%=strPurpose%>

info"wilsonalvarez.com

<% Else %>

No domain names matching your search criteria were found

<% End If Set rsDomains = Nothing %>