<html>
<head>
<title>Guestbook</title>
<link rel=stylesheet type=text/css href=http://www.Lyricsarchiv.de/Styles/style.css>
</head>
<body BACKGROUND=http://www.Lyricsarchiv.de/Images/backg.jpg bgcolor=#FBE3AD>
<p>
<img src="http://www.Lyricsarchiv.de/Images/Logos/Guestbook.jpg" width="297" height="96">
</p>
<table width=390 border=0 cellspacing=0 cellpadding=0 align=center>
<tr bgcolor=#000000>
<td>
<table border="0" cellpadding="4" cellspacing="1" width=100% height="100%">
<form name=Eingabe action=http://songtexte.netpure.de/cgi-bin/baseportal.pl?htx=/songtexte/Lyricsarchiv/Blue/Guestbook/Guestb&cmd=add method=post enctype=multipart/form-data>
<input type=hidden name=cmd= value=add>
<input type=hidden name=htx= value=/songtexte/Lyricsarchiv/Blue/Guestbook/Guestbook>
<tr>
<td bgcolor=#800000>
<font face="arial,helvetica" size=2 color=#FBE3AD>Name:</font>
</td>
<td bgcolor=#FFBB77>
<center><INPUT type=text value="" name=Name:= size=30></center>
</td>
</tr>
<tr>
<td bgcolor=#800000>
<font face="arial,helvetica" size="2" color="#FBE3AD">E-mail:</font>
</td>
<td bgcolor=#FF9933>
<center><input type=text value="" name=Email:= size=30></center>
</td>
</tr>
<tr>
<td bgcolor=#800000>
<font face="arial,helvetica" size="2" color="#FBE3AD">Homepage:</font>
</td>
<td bgcolor=#FFBB77>
<center><input type=text value="http://" name=URL:= size=30></center>
</td>
</tr>
<tr>
<td bgcolor=#800000 colspan="2"><font face="Arial,Helvetica" size="2" color="#FBE3AD"><center>Na, was hast Du mir zu sagen?</center></font></td>
</tr>
<tr bgcolor="#FF9933">
<td colspan="2">
<center><TEXTAREA name="Kommentar:=" rows=6 wrap=virtual cols=35></TEXTAREA></center>
</td>
</tr>
<tr bgcolor="#FF9933">
<td colspan="2">
<div align="center">
<input type=submit value=Abschicken>
<input type=reset value=Zurücksetzen>
</div>
</td>
</tr>
</form>
</table>
</td>
</tr>
</table>
<do action=input>
<br>
<br>
<center>
<font face="Arial" size="2" color="800000">
<loop code=perl db=Guestbook range=0,30>
out "";
</loop>
<perl>
my $newrange=$_range+$_range_length;
my $oldrange=$_range-$_range_length;
$oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;
out "<a href=\"$_link&range=$oldrange,$_range_length$append\"><< Zurück</a> " if $oldrange>=0;
out "<a href=\"$_link&range=$newrange,$_range_length$append\">Weiter >></a>" if $newrange<$_amount_query;
</perl>
<br><br>
<perl>
get "", Guestbook;
if
(($_range+$_range_length) < $_amount_query)
{
$bis=($_amount_query-$_range-$_range_length);
$von=($_amount_query-$_range-1);
$gesamt=($_amount_query-1);
out "$gesamt Einträge ($von bis $bis)<br>";
}
else
{
}
</perl>
</face>
<br>
<loop db=Guestbook sort=-Datum range^=0,30>...
