AdMentor homepage

/asp/freeapps/linkmentor/showlinks.asp

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


<%
'Some before doings...
Dim oConn, sRubrik
Set oConn = IncLink_GetDatabaseConn()

Dim nPageNo, nLastPage
nPageNo = Request.QueryString("pageno")
If nPageNo = "" Then
    nPageNo = 1
End If

'Lets get the links
Dim oRS
Set oRS = Server.CreateObject("ADODB.Recordset")
Set oRS.ActiveConnection = oConn
oRS.CursorLocation = 3
oRS.PageSize=10
oRS.Open "select id, sitename, sitedescription, bannerurl  from " & FAQ_GetTablePrefix() & "ref_site order by firstordering desc",,3,1
If oRS.EOF = False Then
    nLastPage=oRS.PageCount 
    oRS.AbsolutePage = nPageNo
End If    

%>

<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>LinkMentor demo</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>LinkMentor</b></font><BR><b><font size="3">Demo</font></b></td>
    <td width="50%"><%=FAQ_GetAd( 1 )%></td>
  </tr>
</table>
<table border="0" width="100%">
  <tr>
    <td valign="top">
      <br>
      <font size="4">Some&nbsp; links</font>
      <hr>
      <table border="0" width="100%">
        <tr>
          <td width="50%"><%WritePrev%></td>
          <td width="50%">
            <p align="left"><%WriteNext%></td>
        </tr>
      </table>
<br><br>
      <table border="0" width="100%">
<%
Dim sButton, sSiteName, sSiteDescription, nCount
For nCount=1 To oRS.PageSize
    sButton = ""
    sSiteName = ""
    sSiteDescription = ""
    If oRS.EOF = False Then
    
    If IsNull(oRS("bannerurl")) Or Trim(oRS("bannerurl")) = "" Then
    Else
        sButton = "<a href=" & """" & "goto.asp?p=aspcode.net&id=" & oRS("id") & """" & " target=_blank><img src=" & """" & oRS("bannerurl") & """" & "></a>"     
    End If
    sSiteName = "<a href=" & """" & "goto.asp?p=aspcode.net&id=" & oRS("id") & """" & " target=_blank>" & oRS("sitename") & "</a>"     
    sSiteDescription = oRS("sitedescription")
%>      
        <tr>
          <td width="100"><%=sButton%></td>
          <td><b><%=sSiteName%></b><br>
            <font size="1"><%=sSiteDescription%></font><br><br></td>
        </tr>
<%
    oRS.MoveNext
    End If
Next
oRS.Close
Set oRS = Nothing
oConn.Close
Set oConn = Nothing



Sub WritePrev()
    '
    If CInt(nPageNo) <> 1 Then
        Response.Write "<a href=""showlinks.asp?pageno=" & nPageNo-1 & """><b>&lt;&lt;Previous Page</b></a>"
    End If
End Sub

Sub WriteNext()
    '
    If CInt(nPageNo) <> CInt(nLastPage) Then
        Response.Write "<a href=""showlinks.asp?pageno=" & nPageNo+1 & """><b>Next Page&gt;&gt;</b></a>"
    End If
End Sub

%>      
      </table>
      <p>
      <br>
      </p>
      <table border="0" width="100%">
        <tr>
          <td width="50%"><%WritePrev%></td>
          <td width="50%">
            <p align="left"><%WriteNext%></td>
        </tr>
      </table>
      <p>&nbsp;</p>
    </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</font></td>
    <td width="50%"><%=FAQ_GetAd( 2 )%></td>
  </tr>
  <br>
  <br>
  <%=FAQ_GetAd( 3 )%>
</table>

      <p align="center">&nbsp;</p>

</body>

</html>
Privacy policy