Database til Textarea #2
Ja, så er der en anden fejl !Jeg kan godt få noget til at stå i textarea\'et, men der bliver ikke vist noget fra databasen !?
(Læs http://www.eksperten.dk/spm/41143 for det grundlæggende)
Min kode nu :
*******************************************
<%
\' Opret indlæg-formen til news-script
\' Rune J. Jacobsen - www15.brinkster.com/crazycounter
Response.Buffer = True
SET rs = Server.CreateObject(\"ADODB.Connection\")
rs.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"DB/all.mdb\")
\' Chekker om brugeren har en session.
\' Hvis ikke så smides han af
IF Session(\"password-session\") = \"\" Then
Response.Redirect(\"login.asp\")
end if
Sql = \"Select * FROM news WHERE ID = \" & Request.QueryString(\"ID\")
set rs = rs.Execute(SQL)
If Not (rs.BOF Or rs.EOF) Then
strAf = rs(\"Af\")
strEmail = rs(\"Email\")
strNavn = rs(\"Overskrift\")
strKommentar = rs(\"Kommentar\")
End If
%>
<!-- #include file=\"include/header.inc\"-->
<tr>
<td width=\"488\"><B>Ret Nyheder</B><br></td>
</tr>
<tr align=\"center\">
<td width=\"100%\">
<form method=\"POST\" action=\"u-opret_data.asp?mode=ret&id=<% = request.querystring(\"id\") %>\">
<table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"2\">
<tr>
<td valign=\"middle\" align=\"left\" colspan=\"2\"><B><br>
</B>Indtast venligst oplysningerne i følgende felter:<B><br>
</B></td>
</tr>
<tr>
<td valign=\"middle\" align=\"left\"><div align=\"right\"><p><B><font face=\"arial\" size=\"2\">Overskrift</font></B></td>
<td valign=\"middle\" align=\"left\"><input type=\"text\" name=\"Overskrift\" size=\"40\" value=\"<%=rs(\"Overskrift\")%>\"></td>
</tr>
<tr>
<td valign=\"middle\" align=\"left\"><div align=\"right\"><p><B><font face=\"arial\" size=\"2\">Af</font></B></td>
<td valign=\"middle\" align=\"left\"><input type=\"text\" name=\"Af\" value=\"<%=rs(\"Af\")%>\" size=\"40\"></td>
</tr>
<tr>
<td valign=\"middle\" align=\"left\"><div align=\"right\"><p><B><font face=\"arial\" size=\"2\">E-mail</font></B></td>
<td valign=\"middle\" align=\"left\"><input type=\"text\" name=\"Email\" value=\"<%=rs(\"Email\")%>\" size=\"40\"></td>
</tr>
<tr>
<td valign=\"top\" align=\"left\"><div align=\"right\"><p><B><font face=\"arial\" size=\"2\">Brødtekst</font></B></td>
<td valign=\"middle\" align=\"left\"><textarea rows=\"3\" name=\"Kommentar\" cols=\"40\">text her<%=rs(\"Kommentar\")%></textarea></td>
</tr>
<tr>
<td valign=\"middle\" align=\"left\" colspan=\"2\"><br>
<input type=\"submit\" value=\"Gem\" name=\"Gem\"> <input type=\"button\" value=\"Annuller\" name=\"Annuller\" onClick=\"java script:history.back();\"></td>
</tr>
</table>
</form>
</tr>
<!-- #include file=\"include/footer.inc\"-->
******************************************
