Använd lite inbyggt istället:
Session.LCID = 1053
SweTid = WeekDayName(Weekday(Date)) & " " & Day(Date) & ", " & FormatDateTime(Time, 4)
3 svar · 254 visningar · startad av Danielkun
Jag skrev ett inlägg tidigare med samma fråga fast jag fick inget svar på slutet så jag chansar igen..
Jag har sparat denna ASP fil i UTF-8 format och allt funkar fint utan när jag går igenom Text -> Bild Funktionen som gör om bokstäver till små bilder. Så fort jag använder den så blir alla åäö på hela sidan bara mystiska tecken.
Om jag däremot skriver ut resultatet från SweTid utan Bild_Bokstav funktionen funkar allt bra. Det funkar även bra att använda den funktionen så länge det inte finns ett åäö i SweTid.
Så det här skriptet funkar perfekt på alla dagar utom MÅndag, LÖrdag och SÖndag ;)
Nån som vet vad som skulle kunna orsaka detta?
function SweCorrectDay(Dag)
Select Case Dag
Case "1" SweCorrectDay = "Söndag"
Case "2" SweCorrectDay = "Måndag"
Case "3" SweCorrectDay = "Tisdag"
Case "4" SweCorrectDay = "Onsdag"
Case "5" SweCorrectDay = "Torsdag"
Case "6" SweCorrectDay = "Fredag"
Case "7" SweCorrectDay = "Lördag"
End Select
end function
och den är kopplad till detta:
SweTid = SweCorrectDay(Weekday(Date)) & " " & Day(Date) & ", " & FormatDateTime(Time, 4)
Ovan skapar dagens datum och skriver sen om det med Bokstav till Bild funktionen nedan:
function Bild_Bokstav(strCompleteSentence)
For i = 1 to len(strCompleteSentence)
strLetter = Mid(strCompleteSentence, i, 1)
If Asc(LCase(strLetter)) = Asc(strLetter) Then
if strLetter = " " then
Bild_Bokstav = Bild_Bokstav & " "
else
Bild_Bokstav = Bild_Bokstav & "<img src=""" & "Alfabet-s/" & strLetter & ".gif" & """>"
end if
Else
Bild_Bokstav = Bild_Bokstav & "<img src=""" & "Alfabet-l/" & strLetter & ".gif" & """>"
End If
Next
end function
Skriver ut bilderna så här: <%=Bild_Bokstav(SweTid)%>
Så det funkar ju felfritt.. utom när det finns ÅÄÖ i "Swetid". UTF8 formatet spökar säkert någonstans..
Använd lite inbyggt istället:
Session.LCID = 1053
SweTid = WeekDayName(Weekday(Date)) & " " & Day(Date) & ", " & FormatDateTime(Time, 4)
Du kommenterar inte ens spangos inlägg. Har du läst länken och provat?
Sorry. Glömde komentera det.
Jag läste den sidan och la till raden:
Response.CharSet = "utf-8"
högst uppe på sidan men utan resultat. Jag testade även att lägga till:
Response.CodePage = 65001
men då får jag felet:
Körningsfel i Microsoft VBScript fel '800a01b6'
Objektet stöder inte egenskapen eller metoden.: 'Response.CodePage'
Vide, Tack men det hjälpte inte :(