Fritt ur minnet:
Function Genitiv(substantiv)
If Right(substantiv,1) = "s" Then
Genitiv = substantiv
Else
Genitiv = substantiv &"s"
End If
End Function
...
Response.Write(Genitiv(Rs("namn")))
Frågan#1
Finns det någon möjlighet att göra om denna kod snutt som man enkelt kan anropa istället för massa If-satser?
If Right(Rs("namn"),1) = "s" Then
namn = Rs("namn")
Else
namn = Rs("namn") &"s"
End If
Response.Write(namn)