<%@ LANGUAGE="VBScript" %>
<!--#include file="ADOVBS.inc"-->
<!--#include file="IASUtil.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<html>
<head>
<title>Frank Sinatra Tribute List - KARAOKE CENTER GERMANY</title>
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html;
charset=iso-8859-1">
<meta NAME="description" CONTENT="Verleih - KARAOKE CENTER GERMANY
(Karaoke Show ab 350,- DM!!!)">
<meta NAME="keywords" CONTENT="Karaoke, LaserCD, GraphicCD, Music, CD,
Show, Unterhaltung, Gesang, Singing, Sing, Pioneer">
<meta NAME="GENERATOR" CONTENT="Microsoft FrontPage 3.0">
</head>
<body TEXT="#FFFFFF" BGCOLOR="#000000" LINK="#80FFFF"
VLINK="#80FFFF" ALINK="#00FFFF"
background="../rfkbgr1.gif">
<table border="0" width="620" cellspacing="5"
cellpadding="5">
<tr>
<td><div align="center"><center><table BORDER="2"
WIDTH="2">
<tr>
<td> </td>
<td><img SRC="../2center.gif" WIDTH="307"
HEIGHT="59"></td>
<td> </td>
</tr>
</table>
</center></div><p align="center"><a
HREF="../2index.htm"><img SRC="../2navig.gif"
ALT="navigbutton" BORDER="0" WIDTH="120"
HEIGHT="34"></a></p>
<dl>
<p align="center"><font face="Verdana, Arial, Helvetica"
size="4"><strong><i>Hommage to
Frank Sinatra<br>
<br>
<img src="../sinatra.gif" alt="sinatra.gif (4806 Byte)"
WIDTH="78"
HEIGHT="99"></i></strong></font></p>
</dl>
</td>
</tr>
<tr>
<td><font face="Times New Roman"
size="6"><strong>I</strong></font><font
face="Verdana, Arial, Helvetica" size="2">n memorial to this
wonderful, outstanding artist
we would like to express our deepest emotions and admiration by publishing a <a
href="sinatra1.asp#list">tribute listing</a> which everybody is invited
to join. Frank
Sinatra will remain in our hearts forever...</font></td>
</tr>
<tr>
<td><font face="Times New Roman"
size="6"><strong>I</strong></font><font
face="Verdana, Arial, Helvetica" size="2">n Gedenken an diesen großartigen,
unerreichten
Entertainer möchten wir uns an dieser Stelle erlauben, eine <a
href="sinatra1.asp#list">Tribut-Liste</a>
zu veröffentlichen, an der sich jeder beteiligen kann. Wir hoffen damit, unsere
Bewunderung ausdrücken zu dürfen und die Gewißheit, daß Frank Sinatra für ewig in
unseren Herzen weiterleben wird...<br>
PS: Wenn Ihnen die Liste gefällt, helfen Sie uns beim Bekanntmachen und geben die Adresse
an Bekannte und Freunde weiter! Und kommen Sie zurück, um die ständig wachsende Zahl der
Bewunderer zu erfahren!</font></td>
</tr>
<tr>
<td><form method="POST" action="sinatra1.asp#list">
<input type="hidden" name="datum"
value="<%=Now%>"><table border="0"
cellspacing="0" cellpadding="0">
<tr>
<td></td>
<td></td>
<td><a name="list"></a><font face="Times New
Roman" size="6"><strong>F</strong></font><font
face="Verdana, Arial, Helvetica" size="2">rank Sinatra Tribute
Form</font></td>
</tr>
<tr>
<td><font face="Verdana, Arial, Helvetica" size="2">Your
name: </font></td>
<td><img src="../line13.gif" width="6" height="1"
alt="line13.gif (816 Byte)" border="0"></td>
<td><input type="text" name="name"
size="20"></td>
</tr>
<tr>
<td><font face="Verdana, Arial, Helvetica" size="2">Your
favorite<br>
Sinatra song:</font></td>
<td></td>
<td><input type="text" name="song"
size="40"></td>
</tr>
<tr>
<td><font face="Verdana, Arial, Helvetica" size="2">Your
country:</font></td>
<td></td>
<td><input type="text" name="country"
size="40"></td>
</tr>
<tr>
<td><font face="Verdana, Arial, Helvetica" size="2">E-Mail
or<br>
Message:<br>
(optional)</font></td>
<td></td>
<td><textarea rows="2" name="message"
cols="40"></textarea></td>
</tr>
<tr>
<td></td>
<td></td>
<td><img src="../line13v.gif" width="1" height="6"
alt="line13v.gif (816 Byte)" border="0"></td>
</tr>
<tr>
<td></td>
<td></td>
<td><table border="0" cellspacing="0"
cellpadding="0">
<tr>
<td align="center"><img src="../1pixelred.gif"
width="320" height="1" alt="1pixelred.gif (35 Byte)"
border="0"><br>
<input type="submit"
value=">>>>>>> Join tribute list
>>>>>>>>"
name="tribute"><br>
<img src="../1pixelred.gif" width="320" height="1"
alt="1pixelred.gif (35 Byte)" border="0"></td>
</tr>
<tr>
<td align="center"><img src="../line13v.gif"
width="1" height="12" alt="line13v.gif (816 Byte)"
border="0"><table border="0" cellspacing="0"
cellpadding="0">
<tr>
<td width="100%" bgcolor="#009CD0"><font face="Verdana,
Arial, Helvetica" size="2">Help us
make this list grow!</font></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td colspan="3"><font face="Verdana, Arial, Helvetica"
size="1">If you like the idea,
please, tell everybody to join and be a part of this tiny (but heartfelt) sign of
admiration for this great artist! And come back to find out how many people joined the
hommage!</font></td>
</tr>
</table>
</form>
</td>
</tr>
<tr>
<td><div align="center"><center><table border="0"
cellspacing="0" cellpadding="0">
<tr>
<td valign="bottom" align="right"><font face="Times New
Roman" size="6"><strong>F</strong></font><font
face="Verdana, Arial, Helvetica" size="2">rank Sinatra Tribute List
- </font></td>
<td valign="bottom" align="center"
bgcolor="#009CD0"><font face="Verdana, Arial, Helvetica"
size="2"><%
name = Replace(Request("name"), "'",
"''")
country = Replace(Request("country"), "'",
"''")
song = Replace(Request("song"), "'",
"''")
message = Replace(Request("message"), "'",
"''")
datum = Replace(Request("datum"), "'",
"''")
' Perform IDC style DefaultParameter processing.
If IsEmpty(Request("name")) Or Request("name") =
"" Then
name = " "
End If
' Perform IDC style DefaultParameter processing.
If IsEmpty(Request("country")) Or
Request("country") = "" Then
country = " "
End If
' Perform IDC style DefaultParameter processing.
If IsEmpty(Request("song")) Or Request("song") =
"" Then
song = " "
End If
' Perform IDC style DefaultParameter processing.
If IsEmpty(Request("message")) Or
Request("message") = "" Then
message = " "
End If
' Perform IDC style DefaultParameter processing.
If IsEmpty(Request("datum")) Or Request("datum") =
"" Then
datum = Now
End If
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "DSN=ka3_trib"
SQLStmt1 = "INSERT INTO tribute (name, country, song, message,
datum) "
SQLStmt1 = SQLStmt1 & "VALUES ('" & name &
"','" & country & "','" & song & "','" &
message & "','" & datum & "') "
Set RS1 = Connection.Execute(SQLStmt1)
%> <% Connection.Close %><%Set Connection =
Server.CreateObject("ADODB.Connection")
Connection.Open "DSN=ka3_trib"
SQLStmt1 = "SELECT name, country, song, datum FROM tribute "
SQLStmt1 = SQLStmt1 & "WHERE name NOT LIKE ' ' "
SQLStmt1 = SQLStmt1 & " GROUP BY name, country, song, datum
"
Set RS1 = Connection.Execute(SQLStmt1)
%><%
CurrentRecord1 = 0
members=0
Do While CheckRS(RS1)%><%
RS1.MoveNext
CurrentRecord1 = CurrentRecord1 + 1
members=CurrentRecord1
Loop
%></font><font face="Times New Roman"
size="6"><strong><%=
members%></strong></font></td>
<td valign="bottom" align="left"><font face="Times New
Roman"
size="6"><strong> </strong></font><font
face="Verdana, Arial, Helvetica" size="2">members (since May 18,
1998)</font></td>
</tr>
<tr>
<td colspan="3"><font face="Verdana, Arial, Helvetica"
size="2"><img src="../1pixelwhite.gif" width="480"
height="1" alt="1pixelwhite.gif (807
Byte)"></font></td>
</tr>
</table>
</center></div></td>
</tr>
<tr>
<td><%Connection.Close%>
<%Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "DSN=ka3_trib"
SQLStmt = "SELECT name, country, song, datum FROM tribute "
SQLStmt = SQLStmt & "WHERE name NOT LIKE ' ' "
SQLStmt = SQLStmt & " GROUP BY name, country, song, datum
"
SQLStmt = SQLStmt & " ORDER BY datum DESC "
Set RS = Connection.Execute(SQLStmt)
%>
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="../line13.gif" alt="line13.gif (816 Byte)"
WIDTH="38" HEIGHT="1"><strong><font face="Verdana,
Arial, Helvetica" size="2"><br>
Name</font></strong></td>
<td><img src="../line13.gif" width="12" height="1"
alt="line13.gif (816 Byte)" border="0"></td>
<td><img src="../line13.gif" alt="line13.gif (816 Byte)"
WIDTH="38" HEIGHT="1"><font face="Verdana, Arial,
Helvetica" size="2"><strong><br>
Country</strong></font></td>
<td><img src="../line13.gif" width="12" height="1"
alt="line13.gif (816 Byte)" border="0"></td>
<td><img src="../line13.gif" width="220" height="1"
alt="line13.gif (816 Byte)" border="0"><font face="Verdana,
Arial, Helvetica" size="2"><strong><br>
Favorite Frank Sinatra Song</strong></font></td>
<td><img src="../line13.gif" width="12" height="1"
alt="line13.gif (816 Byte)" border="0"></td>
<td><img src="../line13.gif" alt="line13.gif (816 Byte)"
WIDTH="38" HEIGHT="1"><nobr><font face="Verdana,
Arial, Helvetica" size="2"><strong><br>
Date posted</strong></font></nobr></td>
</tr>
<tr>
<td colspan="7"><img src="../1pixelwhite.gif"
width="540" height="1" alt="1pixelwhite.gif (807 Byte)"
border="0"></td>
</tr>
<%
CurrentRecord = 0
Do While CheckRS(RS)%>
<tr>
<td><font face="Verdana, Arial, Helvetica" size="2"><%=
RS("name")%></font></td>
<td></td>
<td><font face="Verdana, Arial, Helvetica" size="2"><%=
RS("country")%></font></td>
<td></td>
<td><em><font face="Verdana, Arial, Helvetica"
size="2"><%= RS("song")%></font></em></td>
<td></td>
<td><font face="Verdana, Arial, Helvetica" size="2"><%=
FormatDateTime(RS("datum"),2)%></font> </td>
</tr>
<tr>
<td colspan="7"><img src="../1pixelred.gif"
width="540" height="1" alt="1pixelred.gif (35 Byte)"
border="0"></td>
</tr>
<% RS.MoveNext
CurrentRecord = CurrentRecord + 1
Loop
%>
</table>
</td>
</tr>
<tr>
<td align="center"><hr>
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td><font face="Verdana, Arial, Helvetica" size="2">*
Weitere Information und viel mehr
Links zu Frank Sinatra findet Ihr zum Beispiel unter folgenden Adressen:<br>
- Sinatra, ein Leben wie im Film (deutsch): <a
href="http://www.bboxbbs.ch/home/sabarr/sinhome.html">http://www.bboxbbs.ch/home/sabarr/</a><br>
- Frank Sinatra Biografie, Fotos, Liedtexte uvm. (deutsch): <a
href="http://home.kaj.ch/sands/">http://home.kaj.ch/sands/</a><br>
- Sinatra Family Album: <a
href="http://www.sinatrafamily.com/main_container.html">http://www.sinatrafamily.com/main_container.html</a><br>
- The Frank Sinatra WWW Page: <a
href="http://www.vex.net/~buff/sinatra/">http://www.vex.net/~buff/sinatra/</a><br>
- The Sinatra List: <a
href="http://www.sinatralist.com/index.html">http://www.sinatralist.com/index.html</a><br>
- Sending E-Mail tributes to Blue Eyes: <a
href="http://www.blue-eyes.com/">http://www.blue-eyes.com/</a><br>
- Sinatra Tribute & Guestbook: <a
href="http://www.compunews.com/~jsav/tribute.htm">http://www.compunews.com/~jsav/tribute.htm</a><br>
- Club Sinatra: <a
href="http://www.asylum.com/sinatra/index.html">http://www.asylum.com/sinatra/index.html</a></font></td>
</tr>
</table>
<p><a HREF="../2index.htm"><img SRC="../2navig.gif"
ALT="navigbutton" BORDER="0" WIDTH="120"
HEIGHT="34"></a><br>
<font face="Verdana, Arial, Helvetica" size="2">(Klicken Sie auf
die mittlere Taste, um
ins Hauptmenü zurückzugelangen)</font></td>
</tr>
</table>
</body>
</html>