October 03, 2003

Convert String to Mixed Case


1:     Convert String to Upper/Lower Case: 

2:     <%

3:     Function PCase(strInput)

4:     

5:     Dim iPosition  

6:     Dim iSpace    

7:     Dim strOutput 

8:     

9:     iPosition = 1

10:       

11:    Do While InStr(iPosition, strInput, " ", 1) <> 0

12:     iSpace = InStr(iPosition, strInput, " ", 1)   

13:     strOutput = strOutput & UCase(Mid(strInput, iPosition, 1))

14:     strOutput = strOutput & 

15:     LCase(Mid(strInput, iPosition + 1, iSpace - iPosition))

16:     iPosition = iSpace + 1

17:    Loop

18:     strOutput = strOutput & UCase(Mid(strInput, iPosition, 1))

19:     strOutput = strOutput & LCase(Mid(strInput, iPosition + 1))

20:     PCase = strOutput

21:    End Function

22:    %>

Posted by sachauncey at 09:59 PM

October 01, 2003

Self Configuring Form Mailer Control

A web control for emailing the content of an HTML form.

Posted by sachauncey at 01:10 PM

Ezyedit

ezyEdit - ASP Web Portal and Content Management System - RickEastes
Realtime page editing, Simple, "on-the-fly" menu construction, Modifiable permissions for users and groups, Built-in search engine optimization.
Free and includes source code.

Posted by sachauncey at 01:08 PM