%@ 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 = "Error: No name input." ' Case "err2" ' strErrText = strErrText & "Error: No surname input." ' Case "err3" ' strErrText = strErrText & "Error: No telephone input." ' Case "err4" ' strErrText = strErrText & "Error: No email input." ' Case "err5" ' strErrText = strErrText & "Error: No comments input." 'End Select %>