<%@LANGUAGE="VBSCRIPT"%>

<!--#include file="Connections/directory.asp" -->
<%'Basic-UltraDev navigation letters rsFeat
Dim Begin_navLetter
if (CStr(Request.QueryString("nav_letter"))<>"") Then
  Begin_navLetter = Asc(CStr(Request.QueryString("nav_letter")))
Else
  Begin_navLetter = 65
End If
tfm_navLetter = " ASCII(Upper(LINK_NAME)) = " & Begin_navLetter
tfm_navLetter = tfm_navLetter & " ORDER BY LINK_NAME"
%>
<%
Dim rsFeat__nav_Letter
rsFeat__nav_Letter = "%"
If (Request.QueryString("nav_Letter") <> "") Then 
  rsFeat__nav_Letter = Request.QueryString("nav_Letter")
End If
%>
<%
set rsFeat = Server.CreateObject("ADODB.Recordset")
rsFeat.ActiveConnection = MM_directory_STRING
rsFeat.Source = "SELECT *  FROM LINKS, pricing, priority  WHERE LINK_EXPIRED >= getDate() AND LINK_APPROVED = 1 AND paymentAmount = id and PID = priorityid and priorityid in (2,3) and LInk_name LIKE  '" + Replace(rsFeat__nav_Letter, "'", "''") + "%'  ORDER BY pid desc, LINK_Name ASC"
rsFeat.CursorType = 0
rsFeat.CursorLocation = 2
rsFeat.LockType = 3
rsFeat.Open()
rsFeat_numRows = 0
%>
     <%
Dim RepeatFeat__numRows
Dim RepeatFeat__index

RepeatFeat__numRows = 60
RepeatFeat__index = 0
rsFeat_numRows = rsFeat_numRows + RepeatFeat__numRows
%>
<%
Dim Repeat3__numRows
Dim Repeat3__index

Repeat3__numRows = 5
Repeat3__index = 0
SmallBanner_numRows = SmallBanner_numRows + Repeat3__numRows
%> 
<%
Dim RecordCounter
RecordCounter = 0
%>
<%
Dim HLooper1__numRows
HLooper1__numRows = -4
Dim HLooper1__index
HLooper1__index = 0
rsSub_numRows = rsSub_numRows + HLooper1__numRows
%>
<%
'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

' set the record count
rsFeat_total = rsFeat.RecordCount

' set the number of rows displayed on this page
If (rsFeat_numRows < 0) Then
  rsFeat_numRows = rsFeat_total
Elseif (rsFeat_numRows = 0) Then
  rsFeat_numRows = 1
End If

' set the first and last displayed record
rsFeat_first = 1
rsFeat_last  = rsFeat_first + rsFeat_numRows - 1

' if we have the correct record count, check the other stats
If (rsFeat_total <> -1) Then
  If (rsFeat_first > rsFeat_total) Then rsFeat_first = rsFeat_total
  If (rsFeat_last > rsFeat_total) Then rsFeat_last = rsFeat_total
  If (rsFeat_numRows > rsFeat_total) Then rsFeat_numRows = rsFeat_total
End If
%>
<%
Dim MM_paramName 
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (rsFeat_total = -1) Then

  ' count the total records by iterating through the recordset
  rsFeat_total=0
  While (Not rsFeat.EOF)
    rsFeat_total = rsFeat_total + 1
    rsFeat.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (rsFeat.CursorType > 0) Then
    rsFeat.MoveFirst
  Else
    rsFeat.Requery
  End If

  ' set the number of rows displayed on this page
  If (rsFeat_numRows < 0 Or rsFeat_numRows > rsFeat_total) Then
    rsFeat_numRows = rsFeat_total
  End If

  ' set the first and last displayed record
  rsFeat_first = 1
  rsFeat_last = rsFeat_first + rsFeat_numRows - 1
  If (rsFeat_first > rsFeat_total) Then rsFeat_first = rsFeat_total
  If (rsFeat_last > rsFeat_total) Then rsFeat_last = rsFeat_total

End If
%>
<%
' *** Move To Record and Go To Record: declare variables

Set MM_rs    = rsFeat
MM_rsCount   = rsFeat_total
MM_size      = rsFeat_numRows
MM_uniqueCol = ""
MM_paramName = ""
MM_offset = 0
MM_atTotal = false
MM_paramIsDefined = false
If (MM_paramName <> "") Then
  MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "")
End If
%>
<%
' *** Move To Record: handle 'index' or 'offset' parameter

if (Not MM_paramIsDefined And MM_rsCount <> 0) then

  ' use index parameter if defined, otherwise use offset parameter
  r = Request.QueryString("index")
  If r = "" Then r = Request.QueryString("offset")
  If r <> "" Then MM_offset = Int(r)

  ' if we have a record count, check if we are past the end of the recordset
  If (MM_rsCount <> -1) Then
    If (MM_offset >= MM_rsCount Or MM_offset = -1) Then  ' past end or move last
      If ((MM_rsCount Mod MM_size) > 0) Then         ' last page not a full repeat region
        MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
      Else
        MM_offset = MM_rsCount - MM_size
      End If
    End If
  End If

  ' move the cursor to the selected record
  i = 0
  While ((Not MM_rs.EOF) And (i < MM_offset Or MM_offset = -1))
    MM_rs.MoveNext
    i = i + 1
  Wend
  If (MM_rs.EOF) Then MM_offset = i  ' set MM_offset to the last possible record

End If
%>
<%
' *** Move To Record: if we dont know the record count, check the display range

If (MM_rsCount = -1) Then

  ' walk to the end of the display range for this page
  i = MM_offset
  While (Not MM_rs.EOF And (MM_size < 0 Or i < MM_offset + MM_size))
    MM_rs.MoveNext
    i = i + 1
  Wend

  ' if we walked off the end of the recordset, set MM_rsCount and MM_size
  If (MM_rs.EOF) Then
    MM_rsCount = i
    If (MM_size < 0 Or MM_size > MM_rsCount) Then MM_size = MM_rsCount
  End If

  ' if we walked off the end, set the offset based on page size
  If (MM_rs.EOF And Not MM_paramIsDefined) Then
    If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then
      If ((MM_rsCount Mod MM_size) > 0) Then
        MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
      Else
        MM_offset = MM_rsCount - MM_size
      End If
    End If
  End If

  ' reset the cursor to the beginning
  If (MM_rs.CursorType > 0) Then
    MM_rs.MoveFirst
  Else
    MM_rs.Requery
  End If

  ' move the cursor to the selected record
  i = 0
  While (Not MM_rs.EOF And i < MM_offset)
    MM_rs.MoveNext
    i = i + 1
  Wend
End If
%>
<%
' *** Move To Record: update recordset stats

' set the first and last displayed record
rsFeat_first = MM_offset + 1
rsFeat_last  = MM_offset + MM_size
If (MM_rsCount <> -1) Then
  If (rsFeat_first > MM_rsCount) Then rsFeat_first = MM_rsCount
  If (rsFeat_last > MM_rsCount) Then rsFeat_last = MM_rsCount
End If

' set the boolean used by hide region to check if we are on the last record
MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount)
%>

<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "="
MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone=""

' add the URL parameters to the MM_keepURL string
For Each Item In Request.QueryString
  NextItem = "&" & Item & "="
  If (InStr(1,MM_removeList,NextItem,1) = 0) Then
    MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item))
  End If
Next

' add the Form variables to the MM_keepForm string
For Each Item In Request.Form
  NextItem = "&" & Item & "="
  If (InStr(1,MM_removeList,NextItem,1) = 0) Then
    MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item))
  End If
Next

' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
if (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
if (MM_keepURL <> "")  Then MM_keepURL  = Right(MM_keepURL, Len(MM_keepURL) - 1)
if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)

' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
  If (firstItem <> "") Then
    MM_joinChar = "&"
  Else
    MM_joinChar = ""
  End If
End Function
%>
<%
' *** Move To Record: set the strings for the first, last, next, and previous links

MM_keepMove = MM_keepBoth
MM_moveParam = "index"

' if the page has a repeated region, remove 'offset' from the maintained parameters
If (MM_size > 0) Then
  MM_moveParam = "offset"
  If (MM_keepMove <> "") Then
    params = Split(MM_keepMove, "&")
    MM_keepMove = ""
    For i = 0 To UBound(params)
      nextItem = Left(params(i), InStr(params(i),"=") - 1)
      If (StrComp(nextItem,MM_moveParam,1) <> 0) Then
        MM_keepMove = MM_keepMove & "&" & params(i)
      End If
    Next
    If (MM_keepMove <> "") Then
      MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1)
    End If
  End If
End If

' set the strings for the move to links
If (MM_keepMove <> "") Then MM_keepMove = MM_keepMove & "&"
urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "="
MM_moveFirst = urlStr & "0"
MM_moveLast  = urlStr & "-1"
MM_moveNext  = urlStr & Cstr(MM_offset + MM_size)
prev = MM_offset - MM_size
If (prev < 0) Then prev = 0
MM_movePrev  = urlStr & Cstr(prev)
%>
<!--#include file="inc_header.asp" -->
 
      <!--#include file="inc_nav.asp" -->
      <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
              <tr> 
          <td height="0" valign="top"> <strong><span class="box1"><strong><font face="Verdana, Arial, Helvetica, sans-serif"><font face="Verdana"><a href="default.asp" class="box1">Home 
            </a>&raquo;</font></font></strong></span> <span class="box1">Featured 
            Businesses </span></strong></td>
                <td width="125" rowspan="2" valign="top"><div align="center">
                    <!--#include file="inc_side.asp" -->
                  </div></td>
              </tr>
              <tr> 
                <td valign="top"><table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
                    <tr> 
                      <td align="center" valign="top"> <div align="left"> <br>
                        </div></td>
                    </tr>
                    <% If Not rsFeat.EOF Or Not rsFeat.BOF Then %>
                    <tr> 
                      <td align="right" valign="top"><div class = "links"></div></td>
                    </tr>
                    <tr> 
                      <td align="center" valign="top"> <table width="99%" border="0" cellspacing="0" cellpadding="0">
                          <tr> 
                            <td align="left" valign="top"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
                                <tr align="left" valign="middle"> 
                                  
                            <td><font face="Verdana, Arial, Helvetica, sans-serif"><font color="#333333"></font></font></td>
                                  <td>&nbsp;</td>
                                </tr>
                                <tr align="left" valign="middle"> 
                                  
                            <td> <div align="center"> 
                                <p><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><a href="dirSub.asp?catid=<%=rsFeat.Fields.Item("cat_ID").Value %>&%20subid%20<%=rsFeat.Fields.Item("sub_ID").Value %>" class="box1"><font color="#990000"><br>
                                  All</font></a></font><font face="Verdana, Arial, Helvetica, sans-serif"><span class="box1"> 
                                  | 
                                  <%
delimiter = "|"
Dim tfm_RegExp
Set tfm_RegExp = New RegExp
tfm_RegExp.Pattern = "nav_letter=\w{1}"
tfm_RegExp.IgnoreCase = True
For i = 65 to 90 
   TFM_character = Chr(i)
   if(TFM_character = Begin_navLetter) Then Response.Write("")
   if(InStr(MM_moveFirst,"nav_letter=")<> 0) Then
     MM_moveFirst = tfm_RegExp.Replace(MM_moveFirst,"nav_letter=" & TFM_character)
   Else
     MM_moveFirst = MM_moveFirst & "&nav_letter=" & TFM_character
   End If
   Response.Write("<a href=""" & MM_moveFirst)
   Response.Write(""">" + TFM_character + "</a>")
   If(TFM_character = Begin_navLetter) Then Response.Write("")
   If(i<90)Then Response.Write(delimiter)
Next
%>
                                  </span></font><font size="2" face="Verdana, Arial, Helvetica, sans-serif"></font></p>
                                <p><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><span class="box1">Records: 
                                  <%=(rsFeat_first)%> to <%=(rsFeat_last)%> of <%=(rsFeat_total)%> </span></font><br>
                                </p>
                              </div></td>
                                  <td>&nbsp;</td>
                                </tr>
                              </table></td>
                          </tr>
                          <tr> 
                            <td align="left" valign="top"> <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" >
                                <tr> 
                                  <td align="left" valign="top" ><div class = "links"> 
                                <table width="100%" border="0" cellspacing="1" cellpadding="0">
                                  <tr> 
                                    <td colspan="5">&nbsp;</td>
                                  </tr>
                                  <tr> 
                                    <td width="54%" background="img/title.gif" class="tableheader">
									<b>&nbsp;Business 
                                      Name</b></td>
                                    <td width="19%" background="img/title.gif" class="tableheader">
									<b>&nbsp;City</b></td>
                                    <td width="10%" background="img/title.gif" class="tableheader">
									<b>&nbsp;State</b></td>
                                    <td width="8%" background="img/title.gif" class="tableheader">
									<b>&nbsp;Zip</b></td>
                                    <td width="3%" background="img/title.gif" class="tableheader">
									<b>Quicklist</b></td>
                                  </tr>
                                  <% If Not rsFeat.EOF Or Not rsFeat.BOF Then %>
                                  <% 
While ((RepeatFeat__numRows <> 0) AND (NOT rsFeat.EOF)) 
%>
                                  <tr> 
                                    <td><font face="Verdana, Arial, Helvetica, sans-serif"><a href="businessdetail.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "Biz_ID=" & rsFeat.Fields.Item("LINK_ID").Value %>" class="box1"><font face="Verdana, Arial, Helvetica, sans-serif"><strong><%=(rsFeat.Fields.Item("LINK_NAME").Value)%></strong></font></a><font face="Verdana, Arial, Helvetica, sans-serif"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><font color="#0000FF"> 
                                      &nbsp;</font></font><font size="2"> </font></font><font face="Verdana, Arial, Helvetica, sans-serif" size="2"> 
                                      <font color="#0000FF"> 
                                      <% If rsFeat.Fields.Item("LINK_DATE").Value > Date() - 30 Then %>
                                      </font><b><img src="img/newest.gif" width="74" height="12"></b></font></font><font color="#0000FF"> 
                                      <% End If %>
                                      </font></td>
                                    <td class="box1"><%=(rsFeat.Fields.Item("LINK_CITY").Value)%></td>
                                    <td class="box1"><%=(rsFeat.Fields.Item("LINK_STATE").Value)%></td>
                                    <td class="box1"><%=(rsFeat.Fields.Item("LINK_ZIP").Value)%></td>
                                    <td width="3%" class="box1"><div align="center"><a href="fav.asp?biz_id=<%=rsFeat("Link_ID")%>"><img src="img/point4.gif" width="10" height="8" border="0"></a></div></td>
                                  </tr>
                                  <tr > 
                                    <td height="1" colspan="5" background="img/line_bkg.gif"><img src="img/spacer.gif" width="1" height="1"></td>
                                  </tr>
                                  <% 
  RepeatFeat__index=RepeatFeat__index+1
  RepeatFeat__numRows=RepeatFeat__numRows-1
  rsFeat.MoveNext()
Wend
%>
                                  <% End If ' end Not rsFeat.EOF Or NOT rsFeat.BOF %>
                                </table>
                                <br>
                                <br>
                                <table width="100%" border="0" align="center">
                                  <tr> 
                                    <td width="7%" height="28" align="center"> 
                                      <div align="left"> 
                                        <% If MM_offset <> 0 Then %>
                                        <a href="<%=MM_moveFirst%>"><img src="First.gif" border=0></a> 
                                        <% End If ' end MM_offset <> 0 %>
                                      </div></td>
                                    <td width="10%" align="center"> <div align="left"> 
                                        <% If MM_offset <> 0 Then %>
                                        <a href="<%=MM_movePrev%>"><img src="Previous.gif" border=0></a> 
                                        <% End If ' end MM_offset <> 0 %>
                                      </div></td>
                                    <td width="70%" align="center">&nbsp; </td>
                                    <td width="7%" align="center"> <div align="right"> 
                                        <% If Not MM_atTotal Then %>
                                        <a href="<%=MM_moveNext%>"><img src="Next.gif" border=0></a> 
                                        <% End If ' end Not MM_atTotal %>
                                      </div></td>
                                    <td width="6%" align="center"> <div align="right"> 
                                        <% If Not MM_atTotal Then %>
                                        <a href="<%=MM_moveLast%>"><img src="Last.gif" border=0></a> 
                                        <% End If ' end Not MM_atTotal %>
                                      </div></td>
                                  </tr>
                                </table>
                              </div></td>
                                </tr>
                              </table></td>
                          </tr>
                        </table></td>
                    </tr>
                    <tr> 
                      <td align="left" valign="top">&nbsp;</td>
                    </tr>
                    <% End If ' end Not rsFeat.EOF Or NOT rsFeat.BOF %>
                  </table>
            <div align="center">
              <% If rsFeat.EOF And rsFeat.BOF Then %>
              No Records Found! <font color="#990000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><br>
              <a href="javascript:history.go(-1);">&laquo;Back</a></font> 
              <% End If ' end rsFeat.EOF And rsFeat.BOF %>
            </div></td>
              </tr>
            </table>
      <!--#include file="inc_footer.asp" -->
<%
rsFeat.Close()
%>