I'm getting an Exception occured error on line 4 (For i =1...)
<% Function ProperCase(strIn)
strOut = ""
boolUp = True
For i = 1 To Len(strIn)
c = Mid(strIn, i, 1)
if c = " " or c = "'" or c = "-" then
strOut = strOut & c
boolUp = True
Else If boolUp Then
tc = Ucase(c)
Else tc = LCase(c)
End If
strOut = strOut & tc
boolUp = False
End If
Next
ProperCase = strOut
End Function %>
this function is put into an include file, and it uppercases a horse's
name's first letter, and lowercases the rest, being called this way:
response.write left(ProperCase(rs1("horsename")),14)
What happens is when there are no more horse's names to be drawn from
the database, that's when I get this Exception occured error
thx for help
Muench
*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!