[aspdebeginners] Re: jetzt wird`s kompliziert !!!

Wolfgang Bezold \(XL-Design\) Mon, 12 Nov 2001 12:19:05 -0800

Buh, das ist wirklich zu kompliziert f�r mich, aber evtl hab ich eine Idee.
Ich hab mir den Quelltest angesehen und er bricht mitten in der Tabelle ab


Du hast einmal stehen

<%
Do While iRecordsShown < iPageSize And Not RS.EOF
%>

blabla

<%
iRecordsShown = iRecordsShown+1
rs.movenext
loop
%>

Ich bin mir nicht sicher, aber lass doch mal das rs.movenext weg
Nur so eine Idee.

Aber sag mir wenn es klappt. W�re mal super, wenn ich auch meinen Beitrag zu
der Liste hier leisten k�nnte.

Gru� Wolfgang





----- Original Message -----
From: "Fichte" <[EMAIL PROTECTED]>
To: "ASP Diskussionsliste fuer Anfaenger" <[EMAIL PROTECTED]>
Sent: Monday, November 12, 2001 8:55 PM
Subject: [aspdebeginners] jetzt wird`s kompliziert !!!


> Wenn du mal folgenden Link aufrufst, www.aspfreak.de/forum/view.asp und
ganz
> nach unten scrollst, dann f�llt dir bestimmt auf, das noch eine kleine
> tabelle erzeugt wird, obwohl garkeine Datens�tze mehr vorhanden liegen.
>
>
> Hier der Quelltext der komplette Site:
>
> <!--#include file="config.asp"-->
> <head>
>
> <style type="text/css">
> <!--
> BODY
> {
>  MARGIN-LEFT: 0px;
>  MARGIN-RIGHT: 0px;
>  MARGIN-TOP: 0px;
>  FONT-FAMILY: Verdana, Arial, Helvetica;
>  BACKGROUND-COLOR: #B0C4DE;
>  color : #000000;
>  font-size : 8pt;
>  scrollbar-face-color: #B0C4DE;
> }
> .Link_Schwarz
> {
>   color: #000000;
>   font-weight : bold;
> }
> .Link_Blau
> {
>   color: #7B9DCB;
>   font-weight : bold;
> }
> .Button
> {
>   color: #7B9DCB;
>   font-weight : bold;
>   background-color : #000066;
>   border : 1px solid Black;
> }
> .Feld
> {
>   color: #000000;
>   font-weight : bold;
>   background-color : #FFFFFF;
>   border : 1px solid Black;
> }
> .Tabel
> {
>   border : 1px solid Black;
> }
>
> //-->
>
>
> //-->
> </style>
>
> <meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-7">
> <title>Guestbook</title>
>
> </head>
> <%
> Set Connc = Server.CreateObject("ADODB.Connection")
> Connc.Open Conn_String
> SQLcfg = "select * from config"
> set rscfg = Connc.execute (SQLcfg)
> %>
>
> <%
> dim conn
> dim rs
> dim sql
> Dim iPageSize
> Dim iPageCount
> Dim iPageCurrent
> dim iRecordsShown
> dim i
>
> iPageSize = rscfg("entries")
> if request("entry")="" then
> iPageCurrent = 1
> else
>  iPageCurrent = cint(request.querystring("entry"))
> end if
> %>
>
> <%
> Set Conn = Server.CreateObject("ADODB.Connection")
> Set Rs = Server.CreateObject("ADODB.Recordset")
> Conn.Open Conn_String
> SQL = "select * from book order by id desc"
> set rsobj = Conn.execute (SQL)
> %>
>
>
> <%
> rs.open sql, conn,adOpenStatic, adLockReadOnly, adCmdText
>
> RS.PageSize = iPageSize
> RS.CacheSize = iPageSize
> RS.AbsolutePage = iPageCurrent
>
> iPageCount = RS.PageCount
>
> iRecordsShown = 0
>
> response.write "Insgesamt: " & rs.recordcount & " Eintraege" & "<br><br>"
> %>
> <body bgcolor=#b0c4de text="black" link="black" alink="black"
vlink="black">
>  <div align="center">
>   <div align="left">
>    <p><a name="top"></a></p>
>    <div align="center">
>     <div align="center">
>      <table border="0" cellpadding="0" cellspacing="0" width="100%">
>       <tr>
>        <td width="2%"></td>
>        <td width="42%" valign="top">
>         <div align="center">
>          <div align="left">
>           <p><br>
>           </p>
>           <p><font size="2"
face="Verdana"><b>G&auml;stebuch</b></font></p>
>           <p><br>
>           </p>
>          </div>
>         </div>
>         <form method="post" action="update.asp" name="G�stebuch">
>          <table border="0" class="Tabel" cellpadding="5" cellspacing="0"
> width="42%">
>           <tr>
>            <td valign="middle" bgcolor="#4682b4"><b><font size="1"
> face="Verdana">Name:</font></b></td>
>            <td><input type="inpute" class="Feld" name="name"
size="32"></td>
>           </tr>
>           <tr>
>            <td bgcolor="#4682b4"><font face="Verdana"
> size="1"><b>email:</b></font></td>
>            <td><input type="inpute" class="Feld" name="email"
> size="32"></td>
>           </tr>
>           <tr>
>            <td valign="top" bgcolor="#4682b4"><b><font size="1"
> face="Verdana">Kommentar:</font></b></td>
>            <td><textarea rows="8" class="Feld" name="comments"
> cols="46"></textarea>
>             <div align="right">
>              <p><input type="hidden" name="func" value="add"
size="20"><br>
>              </p>
>              <p><input type="submit" class="Button" value="senden"
> name="B1"></p>
>             </div>
>            </td>
>           </tr>
>          </table>
>         </form>
>         <div align="left">
>          <p><br>
>          </p>
>         </div>
>         <div align="left">
>          <table border="0" class="Tabel" width="43%" cellspacing="3"
> cellpadding="0" bgcolor='<%=rscfg("tablecolor")%>'
> bordercolor='<%=rscfg("tablecolor")%>' height="1">
>           <tr>
>            <td align=LEFT width="467" height="1" valign="top"
> bgcolor='<%=rscfg("tablecolor")%>'>
>             <div align="left">
>              <font size="1" face="Verdana" color="black">
> <%
> Do While iRecordsShown < iPageSize And Not RS.EOF
> %></font>
>              <p><b><font size="1">Nickname: </font></b><font size="1"
> face="Verdana" color="black"><b><a href="mailto:<% =
> RS("email")%>"><%=rs("name")%></a>
> <b><br>
>                 </b></b></font><font size="1"><b>Datum: </b></font><font
> size="1" face="Verdana" color="black"><b><%=rs("date")%><b><br>
>                 </b></b></font><br>
>              </p>
>              <p><font face="Verdana"
> size="1"><b><%=rs("comments")%></b></font></p>
>             </div>
>            </td>
>           </tr>
>          </table>
>         </div>
>         <div align="left">
>          <p><br>
>          </p>
>         </div>
>         <div align="left">
>          <table border="0" class="Tabel" width="43%" cellspacing="3"
> cellpadding="0" bgcolor='<%=rscfg("tablecolor")%>'
> bordercolor='<%=rscfg("tablecolor")%>' height="1">
>           <tr>
>            <td align=LEFT width="467" height="1" valign="top"
> bgcolor='<%=rscfg("tablecolor")%>'>
>             <div align="left">
>              <font face="Verdana" color="black" size="1"><b><font
> face="Verdana" size="1" color="black"><b>
> <%
> iRecordsShown = iRecordsShown+1
> rs.movenext
> loop
> %>
>
> </b></font></b></font></div>
>            </td>
>           </tr>
>          </table>
>         </div>
>         <div align="left">
>          <p><font size="1"><b><% for i=1 to ipagecount
>
>  response.write "<a href='view.asp?entry="&i&"'>" & i & "</a>&nbsp;"
>
> next
> %></b></font><br>
>           <font size="-1">Seite <b><%= iPageCurrent %></b>von <b><%=
> iPageCount %></b><br>
>            <br>
>            <br>
>           </font></p>
>         </div>
>         <div align="left">
>          <span class="link_schwarz"><a href="#top"><font size="1">Eintrag
> erstellen</font></a></span><br>
>          <% rs.close
>  rscfg.close
>  Conn.Close
>  connc.Close
>  set Conn = nothing
> set Connc = nothing
>
> %></div>
>        </td>
>       </tr>
>      </table>
>      <p></p>
>     </div>
>    </div>
>   </div>
>  </div>
>
>
>
>
> | Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
> | [aspdebeginners] als [EMAIL PROTECTED] subscribed
> | http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
> | Sie knnen sich unter folgender URL an- und abmelden:
> | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
>


| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp

[aspdebeginners] Re: jetzt wird`s kompliziert !!!

Antwort per Email an