---

Jeg er ved at lave en ASP applikation i VBscript.

Jeg læser nogle tekstfelter op fra en MS SQL Server, hvori der kan
står nationale karaktere (her i DK er det jo som bekendt ÆØÅ)

Alle nationale karakterer skal jeg have oversat inde de skrives i
HTMLen. F.eks. skal et Ø være Ø osv osv. Der er ret mange hvis
man tænker ud over landets grænser.

Der må da være nogen som har løst dette problem en gang for alle???

Takker

Flemming Petersen
Kbh.

---

Hej Flemming,
Jeg fandt en programsnut i mine gemmer,
som du måske kan anvende:

Public Function PC2HTML(st$) As String
Dim s As String
Dim iso As String
Dim i As Integer
s$ = st$
i = 1
Do Until i > Len(s$)
Select Case Mid$(s$, i, 1)
Case "£": iso$ = "£"
Case "À": iso$ = "À"
Case "Á": iso$ = "Á"
Case "Â": iso$ = "Â"
Case "Ã": iso$ = "Ã"
Case "Ä": iso$ = "Ä"
Case "Å": iso$ = "Å"
Case "Æ": iso$ = "Æ"
Case "Ç": iso$ = "Ç"
Case "È": iso$ = "È"
Case "É": iso$ = "É"
Case "Ê": iso$ = "Ê"
Case "Ë": iso$ = "Ë"
Case "Ì": iso$ = "Ì"
Case "Í": iso$ = "Í"
Case "Î": iso$ = "Î"
Case "Ï": iso$ = "Ï"
Case "Ñ": iso$ = "Ñ"
Case "Ò": iso$ = "Ò"
Case "Ó": iso$ = "Ó"
Case "Ô": iso$ = "Ô"
Case "Õ": iso$ = "Õ"
Case "Ö": iso$ = "Ö"
Case "Ø": iso$ = "Ø"
Case "Ù": iso$ = "Ù"
Case "Ú": iso$ = "Ú"
Case "Û": iso$ = "Û"
Case "Ü": iso$ = "Ü"
Case "Ý": iso$ = "Ý"
Case "à": iso$ = "à"
Case "á": iso$ = "á"
Case "â": iso$ = "â"
Case "ã": iso$ = "ã"
Case "ä": iso$ = "ä"
Case "å": iso$ = "å"
Case "æ": iso$ = "æ"
Case "è": iso$ = "è"
Case "é": iso$ = "é"
Case "ê": iso$ = "ê"
Case "ë": iso$ = "ë"
Case "ì": iso$ = "ì"
Case "í": iso$ = "í"
Case "î": iso$ = "î"
Case "ï": iso$ = "ï"
Case "ð": iso$ = "ð"
Case "ñ": iso$ = "ñ"
Case "ò": iso$ = "ò"
Case "ó": iso$ = "ó"
Case "ô": iso$ = "ô"
Case "õ": iso$ = "õ"
Case "ö": iso$ = "ö"
Case "ø": iso$ = "ø"
Case "ù": iso$ = "ù"
Case "ú": iso$ = "ú"
Case "û": iso$ = "û"
Case "ü": iso$ = "ü"
Case "ý": iso$ = "ý"
Case "ÿ": iso$ = "ÿ"
Case "ß": iso$ = "ß"
Case Else: iso$ = ""
End Select
If Len(iso$) Then
s$ = Left$(s$, i - 1) & iso$ & Mid$(s$, i + 1)
i = i + Len(iso$)
Else
i = i + 1
End If
Loop
PC2HTML = s$
End Function

mvh

Per



"Flemming Petersen" <flems@flems.com> wrote in message
news:knva9toj8avk5inc7p88s5s9rvp59oe1ki@4ax.com...
> Jeg er ved at lave en ASP applikation i VBscript.
>
> Jeg læser nogle tekstfelter op fra en MS SQL Server, hvori der kan
> står nationale karaktere (her i DK er det jo som bekendt ÆØÅ)
>
> Alle nationale karakterer skal jeg have oversat inde de skrives i
> HTMLen. F.eks. skal et Ø være &Oslash; osv osv. Der er ret mange hvis
> man tænker ud over landets grænser.
>
> Der må da være nogen som har løst dette problem en gang for alle???
>
> Takker
>
> Flemming Petersen
> Kbh.