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ä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> "
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
