Follow along with the video below to see how to install our site as a web app on your home screen.
Anmerkung: This feature currently requires accessing the site using the built-in Safari browser.
<%@ Language=VBScript %>
<%
//Verbindung zu Datenbank herstellen
SET con = Server.CreateObject("ADODB.Connection")
con.Open "DSN=portal"
//Datenbank auslesen
SET rs = con.Execute("SELECT * FROM tbl_guestbook")
//HTML Seite schreiben
%>
<html>
<head>
<title>Guestbook</title>
<link rel="stylesheet" href="../css/guestbook.css" type="text/css">
</head>
<body>
<table width="70%" border="0" cellpadding="0" bgcolor="#000000" align="center" cellspacing="1">
<tr>
<td bgcolor="#FFFFFF">
<div align="center">Einträge</div>
</td>
</tr>
</table>
<%
//Einträge schreiben
DO WHILE NOT rs.EOF
%>
<table width="70%" border="0" cellpadding="1" align="center" cellspacing="1">
<tr>
<td width="15%" nowrap valign="top" height="98" class="style2">
<p><b>
<% =(rs(1))%>
</b><br>
<a href="mailto:<% =(rs("email"))%>" target="_blank"><font size="1">EMAIL</font></a><br>
<% IF cstr(rs("url")) <> "0" THEN %><font size="1"><a href="<% =(rs("url"))%>" target="_blank">URL</a></font><BR><% END IF %>
<% IF cstr(rs("icq")) <> "0" THEN %><font size="1"><a href="<% =(rs("icq"))%>" target="_blank">ICQ</a></font><% END IF %>
</p>
</td>
<td valign="top" width="85%" align="justify" class="style1" height="98">
<p><% =(rs("nachricht"))%></p>
<%
//Falls Kommentar vorhanden ist, den schreiben
IF rs("kommentar") <> "" THEN
%>
<blockquote><span class="klein"><b>Kommentar:</b>
<% =(rs(9))%>
</span></blockquote>
<%
END IF
%>
</td>
</tr>
<tr class="klein">
<td width="15%" nowrap class="style2">IP: <% =(rs("ip"))%>
</td>
<td class="style2">15.12.2001 um 15.32 Uhr</td>
</tr>
</table>
<%
rs.MoveNext
LOOP
//Wenn alle Einträge geschreiben sind, Ende der Seite anzeigen
%>
<p align="center"><a href="newpost.asp">neuer Eintrag</a> </p>
</body>
</html>