danske tegn i access
HmmHvorfor ændrer den nu æ ø å til mærkelige tegn.. har da Session.LCID=1030 med ?
<%
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!")
%>
