%@ Language=VBScript %><% Option Explicit %><% ' ----------------------------------------------------- ' CDONTS Email send script ' © http://www.designplace.org/ ' Comments must remain intact for re-use of this code ' ----------------------------------------------------- dim strErrText, strAction strAction = Request.QueryString("action") Select Case strAction Case "err1" strErrText = strErrText & "Error: No title input." Case "err2" strErrText = strErrText & "Error: No first name input." Case "err13" strErrText = strErrText & "Error: No last name input." Case "err14" strErrText = strErrText & "Error: No e-mail input." Case "err15" strErrText = strErrText & "Error: No message input." End Select %>