Thomas >> jeg har fået MANGE og jeg mener MANGE kunder via eksperten så jeg er sikker på at der er penge i det...
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"database.mdb\")
%>
<% mode = request(\"mode\") %>
<% if mode = \"\" then %>
<%
SQL = \"SELECT * FROM Tekst\"
set rs = Conn.execute(SQL)
if rs.EOF then
%>
Intet i db\'en
<%
else
%>
<table>
<tr>
<td>ID1:</td>
<td>Tekst:</td>
</tr>
<%
Do Until rs.EOF
%>
<tr>
<td valign=\"top\"><a href=\"?mode=ret&id=<%=rs(\"id1\")%>\"><%=rs(\"id1\")%></td>
<td valign=\"top\"><%=re(\"tekst\")%></td>
</tr>
<%
rs.MoveNext
Loop
end if
%>
<% end if %>
<% if mode = \"ret\" then %>
<form method=\"POST\" action=\"?mode=ret2&id=<%=Request.QueryString(\"id1\")%>\">
<%
SQL = \"Select * From tekst where id1=\"& Request.QueryString(\"id1\")
set rs = Conn.execute(SQL)
%>
Id: <%=rs(\"id\")%><br><br>
Tekst:<br>
<textarea name=teksten rows=3 cols=40><%=rs(\"tekst\")%></textarea><br><br>
<input type=\"submit\" value=\"Send\" name=\"B1\">
</form>
<% end if %>
<% if mode = \"ret2\" then %>
<%
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"Select * From tekst where id1=\" & Request.QueryString(\"id1\")
rs.Open strSQL, Conn, 1, 3
rs(\"tekst\") = Request.form(\"tekst\")
rs.Update
%>
Rettet
<% end if %>
