AdMentor homepage

/asp/freeapps/prodmentor/showfaq.asp

<%
OPTION EXPLICIT
Response.Buffer = True
%>
<!--#include file="incfaq.asp"-->
<%
Dim nCATEGORYId
nCATEGORYId = Request.QueryString("fldAuto")
if nCATEGORYId = "" Then
    Response.Redirect "demo.asp"
End If
Dim oCATEGORYConn, oCATEGORY
Set oCATEGORYConn = CATEGORY_GetDatabaseConn()
Set oCATEGORY = oCATEGORYConn.Execute("select model, model.fldAuto as qid, category.name as categoryname, brand.name as brandname from "&CATEGORY_GetTablePrefix()&"model as model, "&CATEGORY_GetTablePrefix()&"category as category, "&CATEGORY_GetTablePrefix()&"brand as brand where model.brand_fldAuto=brand.fldAuto AND brand.category_fldAuto=category.fldAuto AND category.fldAuto = " & nCATEGORYId & " order by brand.orderingfield, model.orderingfield" )
%>
<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">CATEGORY: <%=oCATEGORY("categoryname")%></font>
      <hr>
     <% 'Present the questions...
      Dim sCurrentSubcat
    Response.Write "<table cellPadding=3 cellSpacing=0 width=""100%"">"
    While Not oCATEGORY.EOF
        If sCurrentSubcat <> Trim( oCATEGORY("brandname").Value ) Then
            'Start a new one...
            If sCurrentSubcat <> "" Then
                'Avsluta gamla
                Response.Write "</UL></FONT></TD></TR>"
            End If
            Response.Write "<TR><TD bgColor=#e0e0e0 vAlign=top><FONT color=#880000 face=""Verdana, Arial, Helvetica""><B>" & oCATEGORY("brandname").Value  & "</B></FONT></TD></TR>"
            Response.Write "<TR><TD bgColor=#f0f0f0 vAlign=top><FONT color=#000000 face=""Verdana, Arial, Helvetica""><UL>"
        End If
        Response.Write "<LI><A href=""showquestion.asp?fldAuto=" & oCATEGORY("qid") & """>"
        Response.Write Trim(oCATEGORY("model").Value) & "</a>" & "<br>"
        sCurrentSubcat = oCATEGORY("brandname").Value
        oCATEGORY.MoveNext
    Wend
    If sCurrentSubcat <> "" Then
        Response.Write "</UL></FONT></TD></TR>"
    End If
        
    Response.Write "</table>"
      oCATEGORY.CLose
      Set oCATEGORY = Nothing
      oCATEGORYConn.Close
      Set oCATEGORYConn = Nothing
      %>
    </td>
  </tr>
</table>
      <p>This Product Manager is maintained with ProdMentor - a totally free product
      available for download <a href="http://www.aspcode.net/products/prodmentor">here</a>.<p>&nbsp;

<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