7 svar · 429 visningar · startad av bigsky
Jag har en Sub som trimmar den inmatade texten. Suben finns i en sida som är inkluderad i de övriga sidorna. Den anropas med:
Call FixText("namn")
Ljuv musik uppstår och allt fungerar som det ska. Men då jag vill anropa suben inne i inkluderingssidan blir det fel.
Sub FixText(strPageText)
sMyString = strPageText
vMyArray = Split(sMyString, " ")
For i = LBound(vMyArray) To UBound(vMyArray)
vMyArray(i) = UCase(Left(vMyArray(i), 1)) & Right(vMyArray(i), Len(vMyArray(i)) - 1)
Next
strPageText = Join(vMyArray, " ")
Response.Write strPageText
End Sub
Hur ska jag anropa suben för att den ska fungera inne i inkluderingssidan?
Vad blir det för fel? Att koden körs från include-filen spelar ingen roll, eftersom en inkluderad fil "klistras in" i koden innan ASP-tolken får köra. Du bör dock skriva
Sub FixText(ByVal strPageText)
eller låta bli att pilla på strPageText inne i subben, eftersom du annars riskerar att sabba själva invärdet.
Felet är att resultatet blir noll... så här ser det ut:
Sub FixText(ByVal strPageText)
... Gör nåt
End Sub
Om jag anropar med FixText("text") blir resultatet "tomt", dvs inget returneras.
Och anropar jag med Call FixText("text") lite längre ner i samma fil som subben finns i blir det syntaxfel.
Däremot går det bra att anropa subben med Call FixText("text") från en annan sida än inkluderingssidan.
strHeaderMessage = Call FixText(rsGetListData("NewsletterStart"))
Felmeddelande:
Kompileringsfel i Microsoft VBScript fel '800a03ea'
Syntaxfel
/inc_functions.asp, rad 455
strHeaderMessage = Call FixText(rsGetListData("NewsletterStart"))
-------------------^
Använd funktioner om du vill returnera värden.
Ok, men det blir ändå syntaxfel.
Kod?
Skippa Call och använd en funktion.
