Danske tegn

Tags:    asp

Når jeg gemmer i min access base bliver Fjeldsøe til Fjeldsøe og min:

Response.Redirect "update_egne.asp?msg=" & Server.URLEncode ("Ændringer er gemt!")

bliver til:
ndringer er gemt!

Hvad sker der lige?
Herunder er det væsentlige fra de 2 filer jeg bruger:

formsiden:

<%
Session.LCID=1030
msg= request.querystring("msg")
fornavn=request.querystring("fornavn")
efternavn=request.querystring("efternavn")
email= request.querystring("Email")
adresse= request.querystring("adresse")
postnummer= request.querystring("postnummer")
by= request.querystring("by")
land= request.querystring("land")
tlf= request.querystring("tlf")

Dim adoCon 'Holds the Database Connection Object
Dim rs 'Holds the recordset for the record to be updated
Dim strSQL 'Holds the SQL query for the database

Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("medlemsrs.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")

strSQL = "SELECT * FROM medlem WHERE medlemsnr='" & session("UserID") &"'"

rs.Open strSQL, adoCon
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//DK" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<meta http-equiv="Content-Language" content="da" />
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />

<head>
<title>Hovedmenu -</title>



Og den side der gemmer:

<%
Session.LCID=1030

'Dimension variables
Dim adoCon 'Holds the Database Connection Object
Dim rs 'Holds the recordset for the record to be updated
Dim strSQL 'Holds the SQL query for the database

if Request.form("kodeord") <> Request.form("kodeord2") then
Response.Redirect "update_egne.asp?msg=" & Server.URLEncode ("Kodeord stemmer ikke overens!.")& "&fornavn=" & Server.URLEncode(strFornavn)& "&efternavn=" & Server.URLEncode(strEfterNavn)& "&adresse=" & Server.URLEncode(stradresse)& "&postnummer=" & Server.URLEncode(strpostnummer)& "&by=" & Server.URLEncode(strby)& "&land=" & Server.URLEncode(strland)& "&tlf=" & Server.URLEncode(strtlf)& "&email=" & Server.URLEncode(stremail)& "&apua=" & Server.URLEncode(strapua)
end if

Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("medlemsrs.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")

strmedlemsnr=Session("userid")

strSQL = "SELECT * FROM medlem WHERE medlemsnr= '" & strmedlemsnr & "'"

rs.CursorType = 2
rs.LockType = 3
rs.Open strSQL, adoCon

rs.Fields("fornavn") = Request.Form("fornavn")
rs.Fields("efternavn") = Request.Form("efternavn")
rs.Fields("adresse") = Request.Form("adresse")
rs.Fields("postnummer")= Request.Form("postnummer")
rs.Fields("by") = Request.Form("by")
rs.Fields("land") = Request.Form("land")
rs.Fields("tlf") = Request.Form("tlf")
rs.Fields("email") = Request.Form("email")
rs.Fields("kodeord") = Request.Form("kodeord")

if Request.Form("apua") = "ON" then
rs.Fields("apua") = true
else
rs.Fields("apua") = false
end if

rs.Update

rs.Close
Set rs = Nothing
Set adoCon = Nothing

Response.Redirect "update_egne.asp?msg=" & Server.URLEncode ("Ændringer er gemt!")


Jeg håber der er en ekspert der kan hjælpe mig.




1 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 3 karma
Sorter efter stemmer Sorter efter dato

Skifte din meta ud med denne, her bruger den det danske charset.


<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">


fister.





t