Vil ikke gemme danske tegn i databasen
Jeg har et "mindre" problem (ironisk ment). Jeg har hentet et asp cms system ned og vil så tilrette mine sider, så jeg kun skal bruge wysiwyg editoren.Mit problem ligger i, når jeg forsøger at gemme tekst - så oversætter den æøå til noget volapyk, når det sættes ind i databasen i databasen; æøå (og der skulle altså stå æøå)
Jeg aner slet og ret ikke hvorfor (et par bandeord), den gør det. Nogen der kan hjælpe?
Koden er som følger: (og problemet ligger i pagedata og pagename)
<head>
<script language="Javascript1.2"><!-- // load htmlarea
_editor_url = ""; // URL to htmlarea files
var win_ie_ver = parseFloat(navigator.appVersion.split("MSIE")[1]);
if (navigator.userAgent.indexOf('Mac') >= 0) { win_ie_ver = 0; }
if (navigator.userAgent.indexOf('Windows CE') >= 0) { win_ie_ver = 0; }
if (navigator.userAgent.indexOf('Opera') >= 0) { win_ie_ver = 0; }
if (win_ie_ver >= 5.5) {
document.write('<scr' + 'ipt src="' +_editor_url+ 'editor.js"');
document.write(' language="Javascript1.2"></scr' + 'ipt>');
} else { document.write('<scr'+'ipt>function editor_generate() { return false; }</scr'+'ipt>'); }
// --></script>
<!-- #INCLUDE FILE="../common/checksession.asp" -->
<%
ID = request("ID")
if not isNumeric(id) or id = "" then
response.redirect("default.asp?not_number")
end if
%>
<!-- #INCLUDE FILE="../common/dbconn1.asp" -->
<!-- #INCLUDE FILE="../common/headerAdm.asp" -->
<!-- #INCLUDE FILE="../common/admin_nav.asp" -->
<!--- Type Content Below --->
<%
'==========SETUP IMAGES LIST===========
Set myFso = Server.CreateObject("Scripting.FileSystemObject")
Set Myfolder = Myfso.GetFolder(imageuploadpath)
'*****IF POSTBACK THEN UPDATE********
if request.form("postback") = 1 then
set updateRS = Server.CreateObject("ADODB.RecordSet")
updateSQL = "SELECT pagename, pagedata, active, directlink from tblPages where ID = " & ID & ";"
updateRS.Open updateSQL, whtConn, 1,3
recordcount = updateRS.recordcount
if recordcount <> 1 then
updateRS.Close
Set updateRS = Nothing
whtConn.Close
Set whtConn = Nothing
response.redirect("default.asp?norecord")
end if
updateRS("pagename") = Presubmit2(request.form("pagename"))
pagedata = Presubmit(request.form("pagedata"))
insertimage = request.form("insertimage")
if insertimage <> "" then
imagelink = "<img src='" & imagewebpath & insertimage & "'>"
'response.write imagelink
pagedata = replace(pagedata,"imagehere",imagelink)
end if
updateRS("pagedata") = pagedata
updateRS("directlink") = Presubmit2(request.form("directlink"))
updateRS("active") = request.form("active")
updateRS.update
updateRS.Close
set updateRS = Nothing
message = "<p><font color='#FF0000'>Update Successful</font></p>"
end if
Set dataRS = Server.CreateObject("ADODB.RecordSet")
ID = request("ID")
whtSQL = "Select ID, pagedata, pagename, active, directlink FROM tblPages where ID = " & ID & ";"
'Response.Write whtSQL
dataRS.Open whtSQL, whtConn, 1
recordcount = dataRS.recordcount
if recordcount <> 1 then
dataRS.Close
Set dataRS = Nothing
whtConn.Close
Set whtConn = Nothing
response.redirect("default.asp?norecord")
end if
pagename = dataRS("pagename")
ID = dataRS("ID")
pagedata = dataRS("pagedata")
directlink = dataRS("directlink")
active = dataRS("active")
if active = 1 then
activeform = "<input type='checkbox' name='active' value='1' checked class=""cssborder"">"
else
activeform = "<input type='checkbox' name='active' value='1' class=""cssborder"">"
end if
'close connections,etc..
dataRS.Close
Set dataRS = Nothing
whtConn.Close
Set whtConn = Nothing
%>
<%=message%>
<form action="editpage.asp" method="post" name="frm" language="javascript">
<table class="smallbold">
<tr>
<td>Page Title </td>
<td> <input type="text" name="pagename" value="<%=pagename%>" class="cssborder"></td>
</tr>
<tr>
<td nowrap>Page Direct Link </td>
<td><input type="text" name="directlink" value="<%=directlink%>" size="55" class="cssborder"></td>
</tr>
<tr>
<td>Active </td>
<td><%=activeform%></td>
</tr>
</table>
<textarea cols="75" rows="15" name="pagedata"><%=pagedata%></textarea>
<script language="JavaScript1.2" defer>
editor_generate('pagedata');
</script>
<p class="smalltext">To insert an image, type <strong>imagehere</strong> on your page where you want the image appear.
<br>Then select the image from the drop down box below and click update.</p>
<select name="insertimage" size="1" class="cssborder">
<option selected></option>
<%
filecount = 0
For Each myFile in MyFolder.Files
filename = myfile.name
Response.Write "<option>" & filename & "</option>"
filecount = filecount + 1
Next
Set MyFolder = Nothing
Set myFSO = Nothing
%>
</select>
<input type="hidden" name="postback" value="1">
<input type="hidden" name="id" value="<%=id%>">
<input type="submit" name="Update" value="Update" class="cssborder">
</form>
<!-- #INCLUDE FILE="../common/footer.asp" -->
