<%@ 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 Email input. Press Back Button To Fill In Correct Field"
Case "err2"
strErrText = strErrText & "Error: No Name input. Press Back Button To Fill In Correct Field"
Case "err3"
strErrText = strErrText & "Error: No Model input. Press Back Button To Fill In Correct Field"
Case "err4"
strErrText = strErrText & "Error: No Year input. Press Back Button To Fill In Correct Field"
Case "err5"
strErrText = strErrText & "Error: No Post Code input. Press Back Button To Fill In Correct Field"
Case "err6"
strErrText = strErrText & "Error: No Message input. Press Back Button To Fill In Correct Field"
End Select
%>
Contact us
* fields are required.