He lijsters,
Ik heb jullie inzicht even nodig..
Situatie:
CMS beheerpagina haalt record uit mssql database. De betreffende invoervelden laten juiste data zien. Na het opslaan veranderd de é in een i en de ë in een k ??? In de database is het ook als zodanig opgeslagen. Verander ik de data weer in de de database dan laat de beheerpagina het weer goed zien. Wat gaat er fout tijdens het opslaan?
De pagina heeft de volgende structuur:
De database heeft een nederlandse taal instelling.
De update qeury (in verkorte vorm) is als volgt:
De stringchecker functie:
Het zal toch niet zo zijn dat ik alle rare karakters moet definieren in deze functie? dat is bijna onbegonnen werk. Kan er op de database een rare karakterset geladen worden?
Ik heb jullie inzicht even nodig..
Situatie:
CMS beheerpagina haalt record uit mssql database. De betreffende invoervelden laten juiste data zien. Na het opslaan veranderd de é in een i en de ë in een k ??? In de database is het ook als zodanig opgeslagen. Verander ik de data weer in de de database dan laat de beheerpagina het weer goed zien. Wat gaat er fout tijdens het opslaan?
De pagina heeft de volgende structuur:
code:
1
2
3
4
| <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> |
De database heeft een nederlandse taal instelling.
De update qeury (in verkorte vorm) is als volgt:
code:
1
2
3
4
5
6
7
| Sprojectnaam = Stringchecker(Uploader.Form("projectnaam"))
DIM SQLUpdateProject,RecordUpdateProject
SQLUpdateProject = "UPDATE project SET "
SQLUpdateProject = SQLUpdateProject & "projectnaam = '"&Sprojectnaam&"' "
SQLUpdateProject = SQLUpdateProject & "WHERE id_project = '"&SidGekozenProject&"'"
Set RecordUpdateProject = connectie.Execute(SQLUpdateProject) |
De stringchecker functie:
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
| Function Stringchecker(Vstringcheck)
If IsBlank(Vstringcheck) = FALSE THEN
Dim Vstring_array(5,2)
Dim Vaantal_in_array
Dim i
Vstring_array (0,0) = "'"
Vstring_array (0,1) = "’"
Vstring_array (1,0) = "‘"
Vstring_array (1,1) = "‘"
Vstring_array (2,0) = "’"
Vstring_array (2,1) = "’"
Vstring_array (3,0) = "–"
Vstring_array (3,1) = "–"
Vstring_array (4,0) = "“"
Vstring_array (4,1) = "“"
Vstring_array (5,0) = "”"
Vstring_array (5,1) = "”"
Vaantal_in_array = Ubound(Vstring_array)
WHILE i < Vaantal_in_array
Vstringcheck = Replace(Vstringcheck,Vstring_array(i,0),Vstring_array(i,1))
i = i + 1
WEND
Stringchecker = Vstringcheck
ELSE
Stringchecker = Vstringcheck
END IF
End Function |
Het zal toch niet zo zijn dat ik alle rare karakters moet definieren in deze functie? dat is bijna onbegonnen werk. Kan er op de database een rare karakterset geladen worden?