<%
Option Explicit

Dim strCity

Function Citys(strCity)
If Right(Cstr(LCase(strCity)), 1) = "s" Then
Citys = strCity
Else
Citys = strCity & "s"
End If
End Function

'Detta är bara för att visa hur det fungerar:
'
'strCity = "Borås"
'Response.Write Citys(strCity) & " stad"
'Response.Write "
"
'strCity = "Stockholm"
'Response.Write Citys(strCity) & " stad"
%>