Nedenstående kode indsætter du i filen: index.asp
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Data Source=d:\..fysisk sti..\tekstdb.mdb;Provider=Microsoft.Jet.OLEDB.4.0;"
%>
<html>
<head>
</head>
<body>
<%
If Request.Form("S1") <> "" Then
SQL = "UPDATE teksttable SET Tekst = '" & Request.Form("S1") & "'"
Set RS = Conn.Execute(SQL)
Response.Redirect "index.asp"
Else
SQL = "SELECT * FROM teksttable"
Set RS = Conn.Execute(SQL)
RS.Movefirst
%>
<form method="POST" action="index.asp">
<p><textarea rows="18" name="S1" cols="61"><%=RS("Tekst")%></textarea><br>
<input type="submit" value="Opdater" name="B1"><input type="reset" value="Nulstil" name="B2"></p>
</form>
<%
End if
%>
</body>
</html>
Bemærk at connectionstring er til en Access 2000 database, hvis det skal være til en anden, skal de øverste linier bare ændres.
Databasen skal ligge i den fysiske sti, som du angiver under connectionstringen.
Den hedder 'tabledb.mdb' og indeholder tabellen 'Teksttable', som igen indeholder kolonnen 'Tekst'.
DU kan også hente databasen her:
http://www.megastar.dk/affe/tekstdb.zipKoden er testet :-)
