Avatar billede florint Nybegynder
19. november 2001 - 17:30 Der er 3 kommentarer og
1 løsning

Paging ?

Hej,
Nu har jeg prøvet at \"bygge\" de efterfølgende scripts sammen, men jeg kommer ikke længere !! Jeg er meeeeeeget ny i asp og kan s.. ikke hitte ud af det.
Kan nogen hjælpe ?
Den her skal vis udtræk fra en db - dog må der kun vises eks 5 resultater ad gangen, så der skal være mulighed for at klikke på \"side 2, side 3 osv.
\'<%@ Language=VBScript %>
<%SetLocale(1030)%>
<% response.buffer = true %>
<%
levid = request.querystring(\"id\")
if levid = \"\" then
  response.redirect (\"startside.asp\")
end if

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"min database.mdb\")

SQLstmt = \"SELECT * FROM min tabel where Levnr = \'\" & levid & \"\'\"
Set rs = conn.Execute(SQLstmt)

SQLstmt = \"SELECT * FROM min tabel where Levnr = \'\" & levid & \"\'\"
Set rs1 = conn.Execute(SQLstmt)
firma = rs(\"firma\")

if firma <> \"\" then
show = firma
else
show = rs(\"Person\")
end if

%>
<html>
<head></head>
<body>
<%
                              response.write \"Udbud fra \" & show
                            %>
                            </b></font></td>
                          </tr>
                        </table>
                      </td>
                    </tr>
                  </table>
                  <div align=\"center\">
                    <center>
                    <table border=\"0\" width=\"100%\">
                      <tr>
                        <td>
                        <%
                        response.write show
                        response.write \"<br>\" & rs(\"Adresse\")
                        response.write \"<br>\" & rs(\"Postnr\")
                        response.write \"<br>Leverandør \" & rs(\"levnr\")
                        response.write \"<br>Tlf.\" & rs(\"Tel\")
                        response.write \"<br>Fax.\" & rs(\"Fax\")
                        %>
                        </td>
                        <td>
                        <%
                        response.write \"<br><br><br>\"
                        response.write \"<br>Website: <a href=http://\" & rs(\"Hjemmeside\") & \">\" & rs(\"Hjemmeside\") & \"</a>\"
                        response.write \"<br>Email: <a href=mailto:\" & rs(\"E-mail adresse\") & \">\" & rs(\"E-mail adresse\") & \"</a>\"
                        %>
                        </td>
                      </tr>
                      <tr>
                        <td></td>
                        <td></td>
                      </tr>
                    </table>
                    </center>
                  </div>
                  <br>
                  <FONT size=2>
<%
Do Until rs1.EOF
url = levid & \"/\" & rs1(\"Billedeadresse\")
%>
          <TABLE cellSpacing=4 cellPadding=0 width=\"100%\" bgColor=#c0c0c0 border=0>
          <TBODY>
          <TR>
              <TD width=\"25%\" rowSpan=11><A href=\"java script:displayWindow(\'showimg.asp?id=<%=url%>\',280,400)\">
<IMG height=146 src=\"billeder/<%=levid%>/<%=rs1(\"Billedeadresse\")%>\" width=100 border=0></A></TD>
              <HR><TD width=\"75%\"><FONT face=Verdana size=1>Plantenavn: <STRONG><%=rs1(\"Kultnavn\")%></STRONG></FONT></TD></TR>
              <TR><TD width=\"75%\"><FONT face=Verdana size=1>Plantehøjde: <STRONG><%=rs1(\"Plantehøjde\")%></STRONG></FONT></TD></TR>
              <TR><TD width=\"75%\"><FONT face=Verdana size=1>Plantebredde: <STRONG><%=rs1(\"Plantebredde\")%></STRONG></FONT></TD></TR>
              <TR><TD width=\"75%\"><FONT face=Verdana size=1>Potte str. cm: <STRONG><%=rs1(\"Pottestr\")%></STRONG></FONT></TD></TR>
              <TR><TD width=\"75%\"><FONT face=Verdana size=1>Pr. Kasse alm/eur: <STRONG><%=rs1(\"Stk i kassen alm/eur\")%></STRONG></FONT></TD></TR>
              <TR><TD width=\"75%\"><FONT face=Verdana size=1>Pr Container alm/eur: <STRONG><%=rs1(\"Kasser pr cc alm/eur\")%></STRONG></FONT></TD></TR>
              <TR><TD width=\"75%\"><FONT face=Verdana size=1>Udbud: <STRONG><%=rs1(\"Udbud lige nu\")%></STRONG></FONT></TD></TR>
              <TR><TD width=\"75%\"><FONT face=Verdana size=1>Sæson: <STRONG><%=rs1(\"Sæson\")%></STRONG></FONT></TD></TR>
              <TR><TD width=\"75%\"><FONT face=Verdana size=1>Farve: <STRONG><%=rs1(\"Farve\")%></STRONG></FONT></TD></TR>
              <TR><TD width=\"75%\"><FONT face=Verdana size=1>Opdateret: <STRONG><%=rs1(\"Sidst opdateret\")%></STRONG></FONT></TD></TR>
            </TBODY>
            </TABLE>
<%
  rs1.MoveNext
  Loop
%>
</body>

Det skal så bygges sammen med det næste stykke kode som jeg har fra activeserverpages og nu har jeg prøvet mange gang ......

<html>
<head>
<title>Paging af et recordset</title>
</head><body>

<%
intPage = Request(\"page\")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If

Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"SELECT LinkURL FROM Links\"
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"/_vti_log/data1.mdb\")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 2
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
    Response.Write \"<p><b>Side \" & intPage & \" af \" & intPageCount & \"</b></p>\"
    Do While Not rs.EOF And intRecCount > 0
        Response.Write rs(\"LinkURL\") & \"<br>\"
    intRecCount = intRecCount - 1
    rs.MoveNext
    Loop
End If
rs.Close
Set rs = Nothing

Response.Write \"<p>Gå til side \"
For intNum = 1 To intPageCount
    Response.Write \"<a href=paging.asp?page=\" & intNum & \">\" & intNum & \"</a> \"
Next

Response.Write \"<p>\"
If Clng(intPage) > 1 Then
    Response.Write \"<a href=paging.asp?page=\" & intPage - 1 & \">&lt;&lt;</a>\"
Else
    Response.Write \"&lt;&lt;\"
End If

Response.Write \"&nbsp;\"

If Clng(intPage) < Clng(intPageCount) Then
    Response.Write \"<a href=paging.asp?page=\" & intPage + 1 & \">&gt;&gt;</a> \"
Else
    Response.Write \"&gt;&gt;\"
End If
%>

</body>
</html>

Er der nogen der er kl.... end mig ? Og kan hjælpe ?
På forhånd tak !
Avatar billede d797fni Nybegynder
19. november 2001 - 19:48 #1
JEg er ikke klogere, men har brugt noget som fungere for mig.


Kig på dette:


<%

intPage = Request(\"page\")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
Conn.Open \"Driver={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath (\"db/dbwww.foreningen-norden.dk.mdb\")
strSQL = \"SELECT * From tagwall Order By ID DESC\"
rs.Open strSQL, Conn, 1, 3

If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 5
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
    Response.Write \"<p><b>Side \" & intPage & \" af \" & intPageCount & \"</b></p>\"
    %>
    <table border=\"0\" width=\"100%\">
<tr>
<td>&nbsp;</td>
<td align=\'right\'>
<%

Response.Write \"Gå til side \"
For intNum = 1 To intPageCount
    Response.Write \"<a href=list_guest.asp?page=\" & intNum & \">\" & intNum & \"</a> \"
Next

%>
</td>

</tr>
</table>

    <%
    response.write \"<table border=0 cellspacing=0 cellpadding=3 width=\"\"100%\"\" bgcolor=\" & cellcolor & \">\"

    Do While Not rs.EOF And intRecCount > 0

\'while not objrec.BOF

ConvString = rs(\"besked\")
besked = ConvString
%>   
<tr>
    <td width=\"50%\"><%=format%>Navn: <%=rs(\"navn\")%></font></td>
    <td width=\"50%\"><i><p align=\"right\"><%=format%>Dato: <%=rs(\"dato\")%></font></p></i></td>
  </tr>
  <tr>
  <td colspan=\"2\"><%=format%><% response.write (\"Email: <a href=\'mailto:\") & rs(\"email\") & (\"\'>\") & rs(\"email\") & (\"</a></font></td>\")
  %>
  </tr>
  <tr>
  <td colspan=\"2\"><%=format%><% response.write (\"Hjemmeside: <a href=\'//\") & rs(\"Hjemmeside\") & (\"\'>\") & rs(\"Hjemmeside\") & (\"</a></font></td>\")
  %>
  </tr>
  <tr>
  <td colspan=\"2\"><%=format%>By: <%=rs(\"by\")%></font></td>
  </tr>
 
  <tr>
    <td width=\"100%\" colspan=\"2\"><%=format%>Besked: <br><br>
    <%=besked%></font></td>


  </tr>
 
  <tr height=\"1\">
  <td height=\"1\" colspan=\"2\"><hr>
  </td>
  </tr>
<%

intRecCount = intRecCount - 1
rs.movenext
\'rs.moveprevious
loop
response.write \"</table>\"
End If
rs.Close
Set rs = Nothing

%>
<br>
<br>

Avatar billede d797fni Nybegynder
19. november 2001 - 19:49 #2
Når jeg ser på det er det jo det samme script, men min måde fungere !!!!
Avatar billede florint Nybegynder
20. november 2001 - 08:59 #3
Hej d797fni -
Jeg prøver at at sætte det sammen i løbet af idag. så må vi se om jeg er klog nok.
Jeg lader høre fra mig senere.
Foreløbig tak.
Avatar billede keysersoze Ekspert
21. november 2001 - 12:02 #4
pr. e-mail er vi sammen kommet frem til denne løsning;

<%@ Language=VBScript %>
<%SetLocale(1030)%>
<% response.buffer = true %>
<%
levid = request.querystring(\"id\")
if levid = \"\" then
  response.redirect (\"startside.asp\")
end if

intPage = Request(\"page\")                                  \'<-INDSAT
If isNumeric(intPage) = False Or intPage < 1 Then          \'<-INDSAT
    intPage = 1                                            \'<-INDSAT
End If                                                      \'<-INDSAT

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"din database.mdb\")

SQLstmt = \"SELECT * FROM Leverandører where Levnr = \'\" & levid & \"\'\"
Set rs = conn.Execute(SQLstmt)

strSQL = \"SELECT * FROM Registrering1995 where Levnr = \'\" & levid & \"\'\"
Set rs1 = Server.CreateObject(\"ADODB.RecordSet\")            \'<-INDSAT
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"din database.mdb\")            \'<-INDSAT
\'Set rs1 = conn1.Execute(SQLstmt)                            \'<-FJERNET
rs1.Open strSQL, strDSN, 1                                  \'<-INDSAT

firma = rs(\"firma\")

if firma <> \"\" then
show = firma
else
show = rs(\"Person\")
end if

%>
<html>
<head>
<title>Prøveplanter.dk - En del af Link2Green.net</title>
<meta name=\"copyright\" content=\"Florint FlowerWeb\">
<meta name=\"description\" content=\"Danmarks eneste portal, søgemaskine og indeks for Dansk Gartnerierhverv\">
<meta name=\"keywords\" content=\"it, web, mail, index, internet, news, search, search engine, business, click, e-mail,
computer, link, register, family, international,  indeks, musik, søgemaskine, søgemaskiner, søg, emneindeks, emneindex,
portal,  browse, job, jobs, artikel, artikler, artiklen, indhold, nyheder, it-nyheder, sport, edb, job, jobs, rekruttering,
jobdatabase, cv, erhverv, ferie, fritid, job, mobil, sms, spil, games, trafik, veje, tv, vejr, vejret, vejrudsigt, epost,
e-post, email, webmail, domæne, domain, oplysning,weather,blomster,flowers,greenhouse,gasa,florex,bog madsen,bøg madsen,
exposa,advokat,emballage,bocchiflower,gartnerier,gartneri,nursery,blumen,deg,salg,salgsformidling,småplanter,webdesign,
danpot,deg,Danpot,DEG,frø,proveplanter.dk, prøveplanter.dk, prøver, planter,\">
<meta name=\"language\" content=\"da\">
<meta name=\"author\" content=\"Florint FlowerWeb\">
<meta name=\"classification\" content=\"Internet Services\">
<meta name=\"rating\" content=\"SAFE FOR KIDS\">
<meta name=\"revisit-after\" content=\"30 Days\">
<meta name=\"robots\" content=\"ALL\">
<meta name=\"ProgId\" content=\"FrontPage.Editor.Document\">
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1252\">
<meta http-equiv=\"Content-Language\" content=\"da\">
<meta http-equiv=\"reply-to\" content=\"florint@florint.dk\">

<link rel=stylesheet href=\"links.css\" type=\"text/css\" title=\"Link2Green.net style sheet\">
<SCRIPT>
<!--
function displayWindow(url, width, height)
{
var Win = window.open(url,\"displayWindow\",\'width=\' + width + \',height=\' + height + \',resizable=no,scrollbars=no,menubar=no,status=no\' );
}
//-->
</SCRIPT>

</head>
<body bgcolor=\"#FFFFFF\" text=\"#000000\" background=\"tpl_images/background.gif\" link=\"#333333\" vlink=\"#333333\" alink=\"#FFFFFF\" leftmargin=\"0\" topmargin=\"0\" marginwidth=\"0\" marginheight=\"0\">
<script language=\"JavaScript1.2\">
<!--
//Datoscript **************
function MakeArray(size)
    {
      this.length = size;
    for(var i = 1; i <= size; i++)
        {this[i] = 0;
        }
        return this;
    }

function dato()
    {
        dag = new Date();
        document.writeln(convertDay(dag.getDay()) + \' d. \' + dag.getDate() + \'. \' + convertMonth(dag.getMonth())+dag.getFullYear());
    }
function convertDay(dayValue) {
        strDay= new MakeArray(7);
        strDay[0] = \"Søndag\";
        strDay[1] = \"Mandag\";
        strDay[2] = \"Tirsdag\";
        strDay[3] = \"Onsdag\";
        strDay[4] = \"Torsdag\";
            strDay[5] = \"Fredag\";
        strDay[6] = \"Lørdag\";
        return strDay[dayValue];
    }

function convertMonth(monthValue) {
        strMonth= new MakeArray(12);
        strMonth[0] = \"jan \";
        strMonth[1] = \"feb \";
        strMonth[2] = \"mar \";
        strMonth[3] = \"apr \";
        strMonth[4] = \"maj \";
        strMonth[5] = \"jun \";
        strMonth[6] = \"jul \";
        strMonth[7] = \"aug \";
        strMonth[8] = \"sep \";
        strMonth[9] = \"okt \";
        strMonth[10] = \"nov \";
        strMonth[11] = \"dec \";
        return strMonth[monthValue];
    }

    // -->
</script>
<table border=\"0\" cellspacing=\"0\" cellpadding=\"0\" align=\"center\" width=\"700\">
  <tr>
    <td bgcolor=\"#666666\" width=\"1\"><img src=\"tpl_images/spacer.gif\" width=\"1\" height=\"1\"></td>
    <td bgcolor=\"#DCDCDC\" align=\"center\">
      <table border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
        <tr>
          <td><img src=\"tpl_images/spacer.gif\" width=\"15\" height=\"9\"></td>
          <td></td>
          <td><img src=\"tpl_images/spacer.gif\" width=\"15\" height=\"15\"></td>
        </tr>
        <tr>
          <td> </td>
          <td><img src=\"tpl_images/logo.gif\" width=\"150\" height=\"60\"><img src=\"tpl_images/mellem.gif\" width=\"50\" height=
D\"60\"><script language=\"JavaScript\">  var now = new Date(); var eadsIndex = now.getTime(); document.write(\'<s\' + \'cript language=javascript1.1 SRC=\"http://www.eads.dk/getbanner.asp?hsize=60&count=true&id=33&nocache=\' + eadsIndex + \'\"></s\'+\'cript>\'); </script> <NOSCRIPT><A HREF=http://www.eads.dk/noscript.asp?mode=ahref&hsize=60&count=true&id=33><IMG SRC=http://www.eads.dk/noscript.asp?mode=img&hsize=60&count=true&id=33></A></NOSCRIPT></td>
          <td> </td>
        </tr>
        <tr>
          <td> </td>
          <td bgcolor=\"#666666\">
            <table width=\"670\" border=\"0\" cellspacing=\"1\" cellpadding=\"3\">
              <tr>
                <td bgcolor=\"#99CC33\">
                  <table border=\"0\" cellspacing=\"0\" cellpadding=\"0\" width=\"100%\">
                    <tr>
                      <td bgcolor=\"#666666\">
                        <table border=\"0\" cellspacing=\"1\" cellpadding=\"0\" width=\"100%\">
                          <tr>
                            <td height=\"17\" background=\"tpl_images/button_bg.gif\" align=\"center\"><a href=\"http://www.proveplanter.dk\" class=\"menu\"> Forside </a></td>
                            <td height=\"17\" background=\"tpl_images/button_bg.gif\" align=\"center\"><a class=\"menu\" href=\"search.asp\" target=\"_top\"> SøgeSide </a></td> 
                            <td height=\"17\" background=\"tpl_images/button_bg.gif\" align=\"center\"><a class=\"menu\" href=\"startside.asp\" target=\"_top\"> Gartnerier </a></td>
                            <td height=\"17\" background=\"tpl_images/button_bg.gif\" align=\"center\"><a href=\"tilbud.asp\" class=\"menu\" target=\"_top\"> Tilbud </a></td>
                            <td height=\"17\" background=\"tpl_images/button_bg.gif\" align=\"center\"><a href=\"services.asp\" class=\"menu\" target=\"_top\"> Services </a></td>
                            <td height=\"17\" background=\"tpl_images/button_bg.gif\" align=\"center\"><a href=\"http://proveplanter.dk/nyheder\" class=\"menu\" target=\"_top\"> Nyheder </a></td>
                            <td height=\"17\" background=\"tpl_images/button_bg.gif\" align=\"center\"><a href=\"inspiration.asp\" class=\"menu\" target=\"_top\"> Inspiration </a></td>
                            <td height=\"17\" background=\"tpl_images/button_bg.gif\" align=\"center\"><a href=\"http://www.link2green.net/cgi-bin/links/subscribe.cgi\" class=\"menu\" target=\"_blank\"> Nyhedsbrev </a></td>
                            <td height=\"17\" background=\"tpl_images/button_bg.gif\" align=\"center\"><a href=\"http://www.florint.dk/Showdiary.asp\" target=\"_blank\" class=\"menu\"> Kalender </a></td>
                          </tr>
                        </table>
                      </td>
                    </tr>
                  </table>
                </td>
              </tr>
            </table>
          </td>
          <td> </td>
        </tr>
        <tr>
          <td><img src=\"tpl_images/spacer.gif\" width=\"15\" height=\"30\"></td>
          <td> </td>
          <td> </td>
        </tr>
        <tr>
          <td> </td>
          <td>
            <table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
              <tr>
                <td valign=\"top\">
                  <table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
                    <tr>
                      <td bgcolor=\"#666666\">
                        <table width=\"100%\" border=\"0\" cellspacing=\"1\" cellpadding=\"3\">
                          <tr>
                            <td bgcolor=\"#99CC33\"><b><font size=\"2\" color=\"#FFFFFF\">
                            <%
                              response.write \"Udbud fra \" & show
                            %>
                            </b></font></td>
                          </tr>
                        </table>
                      </td>
                    </tr>
                  </table>
                  <div align=\"center\">
                    <center>
                    <table border=\"0\" width=\"100%\">
                      <tr>
                        <td>
                        <%
                        response.write show
                        response.write \"<br>\" & rs(\"Adresse\")
                        response.write \"<br>\" & rs(\"Postnr\")
                        response.write \"<br>Leverandør \" & rs(\"levnr\")
                        response.write \"<br>Tlf.\" & rs(\"Tel\")
                        response.write \"<br>Fax.\" & rs(\"Fax\")
                        %>
                        </td>
                        <td>
                        <%
                        response.write \"<br><br><br>\"
                        response.write \"<br>Website: <a href=http://\" & rs(\"Hjemmeside\") & \">\" & rs(\"Hjemmeside\") & \"</a>\"
                        response.write \"<br>Email: <a href=mailto:\" & rs(\"E-mail adresse\") & \">\" & rs(\"E-mail adresse\") & \"</a>\"
                        %>
                        </td>
                      </tr>
                      <tr>
                        <td></td>
                        <td></td>
                      </tr>
                    </table>
                    </center>
                  </div>
                  <br>
                  <FONT size=2>
<%

If Not (rs1.BOF Or rs1.EOF) Then                                                        \'<-INDSAT
    rs1.PageSize = 2                                                                    \'<-INDSAT
    rs1.AbsolutePage = intPage                                                          \'<-INDSAT
    intRecCount = rs1.PageSize                                                          \'<-INDSAT
    intPageCount = rs1.PageCount                                                        \'<-INDSAT
    Response.Write \"<p><b>Side \" & intPage & \" af \" & intPageCount & \"</b></p>\"        \'<-INDSAT
    Do While Not rs1.EOF And intRecCount > 0                                            \'<-INDSAT
       
\'Do Until rs1.EOF                                                                      \'<-FJERNET
url = levid & \"/\" & rs1(\"Billedeadresse\")
%>
          <TABLE cellSpacing=4 cellPadding=0 width=\"100%\" bgColor=#c0c0c0 border=0>
          <TBODY>
          <TR>
              <TD width=\"25%\" rowSpan=11><A href=\"java script:displayWindow(\'showimg.asp?id=<%=url%>\',280,400)\">
<IMG height=146 src=\"billeder/<%=levid%>/<%=rs1(\"Billedeadresse\")%>\" width=100 border=0></A></TD>
              <HR><TD width=\"75%\"><FONT face=Verdana size=1>Plantenavn: <STRONG><%=rs1(\"Kultnavn\")%></STRONG></FONT></TD></TR>
              <TR><TD width=\"75%\"><FONT face=Verdana size=1>Plantehøjde: <STRONG><%=rs1(\"Plantehøjde\")%></STRONG></FONT></TD></TR>
              <TR><TD width=\"75%\"><FONT face=Verdana size=1>Plantebredde: <STRONG><%=rs1(\"Plantebredde\")%></STRONG></FONT></TD></TR>
              <TR><TD width=\"75%\"><FONT face=Verdana size=1>Potte str. cm: <STRONG><%=rs1(\"Pottestr\")%></STRONG></FONT></TD></TR>
              <TR><TD width=\"75%\"><FONT face=Verdana size=1>Pr. Kasse alm/eur: <STRONG><%=rs1(\"Stk i kassen alm/eur\")%></STRONG></FONT></TD></TR>
              <TR><TD width=\"75%\"><FONT face=Verdana size=1>Pr Container alm/eur: <STRONG><%=rs1(\"Kasser pr cc alm/eur\")%></STRONG></FONT></TD></TR>
              <TR><TD width=\"75%\"><FONT face=Verdana size=1>Udbud: <STRONG><%=rs1(\"Udbud lige nu\")%></STRONG></FONT></TD></TR>
              <TR><TD width=\"75%\"><FONT face=Verdana size=1>Sæson: <STRONG><%=rs1(\"Sæson\")%></STRONG></FONT></TD></TR>
              <TR><TD width=\"75%\"><FONT face=Verdana size=1>Farve: <STRONG><%=rs1(\"Farve\")%></STRONG></FONT></TD></TR>
              <TR><TD width=\"75%\"><FONT face=Verdana size=1>Opdateret: <STRONG><%=rs1(\"Sidst opdateret\")%></STRONG></FONT></TD></TR>
            </TBODY>
            </TABLE>
<%
intRecCount = intRecCount - 1                                                                                            \'<-INDSAT
  rs1.MoveNext
  Loop
End If                                                                                                                    \'<-INDSAT

Response.Write \"<p>Gå til side \"                                                                                          \'<-INDSAT
For intNum = 1 To intPageCount                                                                                            \'<-INDSAT
    Response.Write \"<a href=udbud.asp?id=\" & request.querystring(\"id\") & \"&page=\" & intNum & \">\" & intNum & \"</a> \"      \'<-INDSAT
Next                                                                                                                      \'<-INDSAT

Response.Write \"<p>\"                                                                                                      \'<-INDSAT
If Clng(intPage) > 1 Then                                                                                                \'<-INDSAT
    Response.Write \"<a href=udbud.asp?id=\" & request.querystring(\"id\") & \"&page=\" & intPage - 1 & \">&lt;&lt;</a>\"        \'<-INDSAT
Else                                                                                                                      \'<-INDSAT
    Response.Write \"&lt;&lt;\"                                                                                            \'<-INDSAT
End If                                                                                                                    \'<-INDSAT

Response.Write \"&nbsp;\"                                                                                                  \'<-INDSAT

If Clng(intPage) < Clng(intPageCount) Then                                                                                \'<-INDSAT
    Response.Write \"<a href=udbud.asp?id=\" & request.querystring(\"id\") & \"&page=\" & intPage + 1 & \">&gt;&gt;</a> \"        \'<-INDSAT
Else                                                                                                                      \'<-INDSAT
    Response.Write \"&gt;&gt;\"                                                                                            \'<-INDSAT
End If                                                                                                                    \'<-INDSAT

%>

            </FONT>
                </td>
                <td width=\"15\"><img src=\"tpl_images/spacer.gif\" width=\"15\" height=\"15\"></td>
                <td width=\"175\" valign=\"top\" align=\"right\">
                  <table width=\"175\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
                    <tr>
                      <td bgcolor=\"#666666\">
                        <table width=\"175\" border=\"0\" cellspacing=\"1\" cellpadding=\"3\">
                          <tr>
                            <td bgcolor=\"#CCCCCC\"><b><font size=\"2\">Søg på
                              Link2Green.net</font></b></td>
                          </tr>
                          <tr>
                            <td bgcolor=\"#E2E2E2\">
                              <form action=\"http://www.link2green.net/cgi-bin/links/search.cgi\" method=\"GET\">
                                <table border=\"0\" cellspacing=\"1\" cellpadding=\"3\">
                                  <tr>
                                    <td>
                                      <input type=\"text\" size=18 name=\"query\">
                                    </td>
                                  </tr>
                                  <tr>
                                    <td>
                                      <input type=submit value=\"Søg!\" name=\"submit\" class=buttonsearch>
                                    </td>
                                  </tr>
                                  <tr>
                                    <td><a href=\"http://www.link2green.net/cgi-bin/links/search.cgi\"><font size=\"1\" class=footer>Avanceret Søgning</a><br><br>
<script>
<!--
dato()
//-->
</script>
</font></td>
                                  </tr>
                                </table>
                              </form>
                            </td>
                          </tr>
                        </table>
                      </td>
                    </tr>
                  </table>
                  <br>
                  <table width=\"175\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
                    <tr>
                      <td bgcolor=\"#666666\">
                        <table width=\"175\" border=\"0\" cellspacing=\"1\" cellpadding=\"3\">
                          <tr>
                            <td bgcolor=\"#CCCCCC\"><font size=\"2\"><b>Grønne Links !</b></font></td>
                          </tr>
                          <tr>
                            <td bgcolor=\"#E2E2E2\"><font size=\"1\" class=footer><br><a href=\"http://florint.dk/florint\">Hvem laver hvad ?</a><br><a href=\"http://florint.dk/kartotek\">Send Tilbud til Sælgere</a><br><a href=\"http://florint.dk/kartotek1\">Send Tilbud til Gartnere</a><br><a href=\"http://www.link2green.net\">GartnerLinks </a><br><a href=\"http://www.proveplanter.dk/maanedensplante.asp\">Månedens Potteplante </a><br><a href=\"http://www.proveplanter.dk/maanedensniche.asp\">Månedens Nichekultur </a><br><a href=\"http://www.florint.net\">Sæt dine planter på auktion </a><br><hr size=\"1\" noshade>

                              </font> </td>
                          </tr>
                        </table>
                    </td>
                    </tr>
                  </table>
                <br>
                  <table width=\"175\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
                    <tr>
                      <td bgcolor=\"#666666\">
                        <table width=\"175\" border=\"0\" cellspacing=\"1\" cellpadding=\"3\">
                          <tr>
                            <td bgcolor=\"#CCCCCC\"><font size=\"2\"><b>Ugens Tilbud</b></font></td>
                          </tr>
                          <tr>
                            <td bgcolor=\"#E2E2E2\">
                              <p align=\"center\"><font size=\"1\"><br>
                              <img border=\"0\" src=\"tpl_images/tilbud.jpg\" width=\"160\" height=\"213\">
                            <br>
                              </font> </p>
</td>
                          </tr>
                        </table>
                      </td>
                    </tr>
                  </table>
                </td>
              </tr>
            </table>
          </td>
          <td> </td>
        </tr>
        <tr>
          <td> </td>
          <td>

            <hr size=\"1\" noshade>
            <font size=\"1\" color=\"#666666\" class=footer>Sidst opdateret - <script>
<!--
dato()
//-->
</script>
            | All rights reserved : <a href=\"http://www.florint.dk/\">Florint FlowerWeb</a> | Copyright©2001 <a href=\"http://www.florint.dk\" target=\"_blank\">Florint.dk </a></font></td>
          <td> </td>
        </tr>
        <tr>
          <td> </td>
          <td> </td>
          <td> </td>
        </tr>
      </table>
    </td>
    <td bgcolor=\"#666666\" width=\"1\"><img src=\"tpl_images/spacer.gif\" width=\"1\" height=\"1\"></td>
  </tr>
  <tr>
    <td bgcolor=\"#666666\" colspan=\"3\"><img src=\"tpl_images/spacer.gif\" width=\"1\" height=\"1\"></td>
  </tr>
</table>
</body>
</html>
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester