Uha, det er første gang at jeg bevæger mig ud i det her med tegnsæt. Men siden er som følger og den er skrevet i Stones Webwriter. Indputtet i databasen bliver også genereret i sider lavet af Webwriter. Her er siden - og der er endnu ikke valideret html mv. Men hjælper det dig lidt på vej?!? Serveren er i øvrigt hos starthotel hvis du skal bruge det.
<% Session.LCID = 1030 %>
<!--#include file="includes/db_open.asp" -->
<!--#include file="includes/common_login_check.asp" -->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "
http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html>
<head>
<html xmlns="
http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<!--#include file="includes/common_css.asp" -->
<title>Administration</title>
<meta name="Generator" content="Stone's WebWriter 4" />
</head>
<body bgcolor="#434343" style="margin:0px;" text="#000000">
<br /><br /><table width="100%" border="0">
<tr>
<td align="center" bgcolor="#FFFFFF"><!--#include file="includes/common_menu.asp" --></td>
</tr>
</table><br /><br /><table width="100%" border="0">
<tr>
<td align="center" bgcolor="#FFFFFF"><br /><table width="768" border="0">
<tr>
<td align="left"><font face="Trebuchet MS" size="2" color="#000000"><%
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM "&request("sql")&";"
rs.Open strSQL, conn, 1, 3
If Not (rs.BOF Or rs.EOF) Then
rs.move 0
Do While Not rs.EOF
strInput = rs("beskrivelse")
strInput = replace(strInput, vbCrLf, "\r\n")
strInput = replace(strInput, "æ", "æ")
strInput = replace(strInput, "ø", "ø")
strInput = replace(strInput, "å", "å")
strInput = replace(strInput, "Æ", "Æ")
strInput = replace(strInput, "Ø", "Ø")
strInput = replace(strInput, "Å", "Å")
%><%=strInput%><%
rs.MoveNext
Loop
end if
rs.Close
Set rs = Nothing
%></font></td>
</tr>
</table><br /></td>
</tr>
</table>
</body>
</html>
<!--#include file="includes/db_close.asp" -->
