Email Us!

<%@ 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 email input." Case "err3" strErrText = strErrText & "Error: No subject input." Case "err5" strErrText = strErrText & "Error: No message input." End Select %> Email Us!

Email Us


	EMAIL US!

Name:
Email Address:
Location:
Subject:
Message:

Home