Har ikke en liggende men hvis du har en database med felterne "Navn", "Email" og "Kommentar" samt et "Id" felt som er sat til primær nøgle og auto..så kan du måske bruge følgende ..og/eller bygge ud på det (ikke testet!)
-------------------------
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DNS = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=din_sti_til_database.mdb"
Conn.Open DNS
If Request.Form("send") <> "" Then
strSQL = "Insert Into din_tabel (Navn, Email, Beskrivelse) Values ('"&Request.Form("navn")&"','"&Request.Form("email")&"','"&Request.Form("kommentar")&"')"
Conn.Execute(strSQL)
End If
%>
<form action="denne_side.asp" method="post">
<table width="300px" cellspacing="5" cellpadding="0" border="0">
<tr>
<td>Navn:</td>
<td><input type="text" name="navn" value="" size="27" maxlength="20"></td>
</tr>
<tr>
<td>Email:</td>
<td><input type="text" name="email" value="" size="27" maxlength="30"></td>
</tr>
<tr>
<td valign="top">Kommentar:</td>
<td><textarea cols="20" rows="6" name="kommentar"></textarea></td>
</tr>
<tr>
<td></td>
<td><input type="submit" name="send" value="Send"></td>
</tr>
<tr>
</table>
</form>
<br>
<table width="500px" cellspacing="0" cellpadding="0" border="0">
<%
strSql = "Select * From din_tabel Order By Id"
Set rs = Conn.Execute(strSQL)
Do While Not rs.EOF
%>
<tr>
<td><h><%=rs("Navn")%></h></td>
</tr>
<tr>
<td><b><%=rs("Email")%></b></td>
</tr>
<tr>
<td><%=rs("Kommentar")%></td>
</tr>
<%
rs.MoveNext
Loop
Conn.Close
Set Conn = Nothing
%>
</table>
