<%@ LANGUAGE = VBScript %>
<%
Option Explicit
Response.Expires = 0
Dim dtmTime, dtmLater, dtmDiff
dtmTime = Time
dtmLater = DateAdd("h",1,dtmTime)
dtmDiff = DateDiff("h",Now,#1/1/2000#)
' -----------------------------------------------------
' 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 number input."
Case "err4"
strErrText = strErrText & "Error: No option input."
Case "err5"
strErrText = strErrText & "Error: No message input."
End Select
%>
Robinson Technologies
