Martin Jensen wrote in dk.edb.internet.webdesign.serverside.asp:
> Linda Møller wrote in dk.edb.internet.webdesign.serverside.asp:
> > Helst
> > uden brug af funktioner - for det kan jeg (heller ikke) få til at
> > virke...
>
> Jeg prøver lige alligevel.
>
> Du kan enten sætte denne funktion ind i toppen af dit asp dokument,
> eller gemme det i en seperat fil, som du includer på alle de sider
> hvor du skal bruge funktionen
>
> Function ULCase(ByVal Tekst)
> Dim arrTekstDele
> Dim strDelTekst
> Tekst=trim(Tekst)
> arrTekstDele=split(Tekst," ")
> for each strDelTekst in arrTekstDele
> ULCase=ULCase & UCase(left(strDelTekst,1)) &
> Lcase(mid(strDelTekst,2)) & " "
> next
> ULCase=trim(Ulcase)
> end function
>
Desværre - Lige så snart jeg sætter funktionen ind får jeg samme fejl
som jeg efterhånden kender så godt - HTTP 500 - Internal server error
Og dette sker, selvom jeg ikke forsøger at bruge funktionen - bare jeg
skriver den i begyndelsen af min asp. Det underlige er, at jeg har
funktionen
Function InitCap(sStr)
InitCap = UCase(Left(sStr, 1)) & LCase(Right(sStr, Len(sStr) - 1))
End Function
i samme asp, og denne er der ingen problemer med - bortset fra, at den
jo ikke dækker mit behov...
--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials