%@ 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: Please enter your name." Case "err2" strErrText = strErrText & "Error: Please enter your email." Case "err3" strErrText = strErrText & "Error: Please enter your email confrimation." End Select %>
|
|||||||||||
|
||||
| Send mail to Webmaster with questions or comments about this web site. | © 2009 Inventive Web Design | |||