Database til Textarea
Jeg er igang med at lave en side om Counter-Strike, og har brug for lidt hjælp.Hvordan trækker man noget ud fra en DB, så det kan stå i et textarea ??
Min kode indtil videre :
*******************************************
<%
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 = Replace(Server.HTMLEncode(rs(\"Kommentar\")),vbCrLf,\"<br>\")
End If
%>
<!-- #include file=\"include/header.inc\"-->
<tr>
<td width=\"488\"><B>Ret Nyheder</B><br>Indtast den information du ønsker skal publiceres.</b><br><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\" value=\"<%=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\"-->
******************************************
Scriptet skal bruges til udbyggelse til et news-script, så man også kan rette fejlene i allerede postede nyheder.
Include-filen \"header.inc\" indeholder styles osv. + body, html og head tags.
Include-filen \"footer.inc\" afslutter dokumentet med body og html tags.
En demo af scriptet kan ses på http://www15.brinkster.com/crazycounter/
|\\| £ 0 / Crazh Quiet
