<%
SQL = "SELECT * FROM SC_Gaestebuch WHERE TStamp >(getdate()-120) order by TStamp DESC;"
SET RS = DBConn.Execute(SQL)
%>
Willkommen
im Gästebuch von Action-Fotos! |
<%
IF NOT RS.EOF Then
%>
<%
WHILE NOT RS.EOF
IF RS.Fields("Flag") = TRUE THEN
%>
von <%=RS("Nickname")%>
<%If RS.Fields("Wohnort") <> "" Then Response.Write("aus ")%>
<%=RS("Wohnort")%> vom <%=LEFT(RS("TStamp"),16)%> Uhr
<%If RS.Fields("Smiley") <> 9 Then%>
 .gif">
<%End If%>
<%=RS("Nachricht")%>
<%'IF RS.Fields("Webseite") <>"" THEN %>
<%'END IF%>
<%IF RS.Fields("Email") <>"" THEN %>
" class="Link"> <%=RS("Email")%>
<%END IF%>
|
<%
END IF
RS.MoveNext
WEND
%>
<%
ELSE
%>
keine aktuellen Einträge im Gästebuch vorhanden
<%
END IF
%>
|
|
|
|
