<%@ Language=VBScript %>
<%
Option Explicit
%>
<%
dim strErrText, strAction, strEmail,strName,strMessage, rec_strName, rec_strEmail, sender_cc
strAction = Request.QueryString("action")
strEmail=Request.QueryString("sEmail")
strName=Request.QueryString("sName")
rec_strEmail=Request.QueryString("rEmail")
rec_strName=Request.QueryString("rName")
strMessage=Request.QueryString("message")
sender_cc = Request.QueryString("cc_val")
IF strAction="" then
Else
Select Case strAction
Case "err1"
strErrText = "Error: Please enter Your Name."
Case "err2"
strErrText = strErrText & "Error: Please enter your Emailid."
Case "err3"
strErrText = strErrText & "Error: Please enter your Friend's Name."
Case "err4"
strErrText = strErrText & "Error: Please enter your Friend's Emailid."
Case "err5"
strErrText = strErrText & "Error: Please enter a SMS message text."
Case "err6"
strErrText = strErrText & "Error: Your Emailid is not valid."
Case "err7"
strErrText = strErrText & "Error: Your friend's Emailid is not valid."
End Select
End if
%>
Send SMS Message to friends!
<%
if strAction > "" then
response.write strErrText
%>
Send SMS
Message
Please fill in the details below, and click send. All fields
are required.