AdMentor homepage

/asp/freeapps/prodmentor/default.asp

<%
OPTION EXPLICIT
Response.Buffer = True
%>
<!--#include file="incfaq.asp"-->

<html>

<head>
<meta http-equiv="Content-Language" content="en">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Free asp applications</title>
<style type="text/css">
<!--
     body {  font-family: Verdana,Arial,Helvetica; font-size: smaller; color: #000000}
     td {  font-family: Verdana,Arial,Helvetica; font-size: smaller; color: #000000}
     th {  font-family: Verdana,Arial,Helvetica; font-size: smaller; color: #000000}
     A:link {text-decoration: none;}
     A:visited {text-decoration: none;}
     A:hover {text-decoration: underline;}
-->
</style>
</head>

<body>

<table border="0" width="100%">
  <tr>
    <td width="50%"><FONT color=#660000 face=Tahoma,Verdana,Arial 
      size=+3><B>ASPCode.net</B></FONT><BR><b><font size="3">The place to find
      free ASP code</font></b></td>
    <td width="50%"><%=CATEGORY_GetAd( 1 )%></td>
  </tr>
</table>
<table border="0" width="100%">
  <tr>
    <td valign="top">
      <br>
      <font size="4">CATEGORIES on this site</font>
      <hr>
      <table border="0" width="100%">
        <tr>
          <td width="50%" bgcolor="#003399"><font color="#FFFFFF"><b>CATEGORY</b></font></td>
          <td width="50%" bgcolor="#003399"><font color="#FFFFFF"><b>Number of
            Entries</b></font></td>
        </tr>
<%
    Dim oCATEGORYConn, nCount
    Set oCATEGORYConn = CATEGORY_GetDatabaseConn()
    Dim oRSCATEGORY, sURL
    Set oRSCATEGORY = oCATEGORYConn.Execute("select max(category.fldAuto) as categoryid, max(category.name) as name, count(*) as antal from "&CATEGORY_GetTablePrefix()&"category as category,  "&CATEGORY_GetTablePrefix() & "brand as brand,  " & CATEGORY_GetTablePrefix() & "model as model where model.brand_fldAuto=brand.fldAuto AND brand.category_fldAuto=category.fldAuto group by category.fldAuto" )
    While Not  oRSCATEGORY.EOF
    sURL = "showfaq.asp?fldAuto=" & oRSCATEGORY("categoryid")
%>        
        <tr>
          <td width="50%"><a href="<%=sURL%>"><%=oRSCATEGORY("name")%></a></td>
          <td width="50%"><%=oRSCATEGORY("antal")%></td>
        </tr>
      <%
      oRSCATEGORY.MoveNext
      Wend
      oRSCATEGORY.Close
      Set oRSCATEGORY = Nothing
      oCATEGORYConn.Close
      Set oCATEGORYConn = Nothing
      %>
      </table>
      <p>This Product Manager maintained with ProdMentor - a totally free product
      available for download <a href="http://www.aspcode.net/products/prodmentor">here</a>.<p>&nbsp;
    </td>
  </tr>
</table>

<table border="0" width="100%">
  <tr>
    <td width="50%"><FONT face="Arial,sans serif" size=2>� </FONT> <font size="1" face="Arial,sans serif">2000
      Stefan Holmberg <a href="http://www.aspcode.net">http://www.aspcode.net</a></font></td>
    <td width="50%"><%=CATEGORY_GetAd( 2 )%></td>
  </tr>
</table>

  <%=CATEGORY_GetAd( 3 )%>

</body>

</html>
Privacy policy