<%
If Trim(Request.Form("txtSend")) = "Send" Then
Call FncSend()
End If
Function FncSend()
Dim Save_Yn
Save_Yn = "Y"
If Len(Trim(Request.Form("txtEmail"))) < 5 OR NOT Instr(1, (Trim(Request.Form("txtEmail"))), " ") = 0 OR InStr(1, (Trim(Request.Form("txtEmail"))), "@", 1) < 2 OR InStrRev((Trim(Request.Form("txtEmail"))), ".") < InStr(1, (Trim(Request.Form("txtEmail"))), "@", 1) then
Response.Write("")
Save_Yn = "N"
End if
If Save_Yn = "Y" Then
dim BodyTxt
dim MyCDONTSMail
Set MyCDONTSMail = CreateObject("CDONTS.NewMail")
MyCDONTSMail.From = Trim(Request.Form("txtEMail"))
MyCDONTSMail.To = "orders@green-lands.com"
MyCDONTSMail.Subject = Trim(Request.Form("txtSubject"))
BodyTxt = Trim(Request.Form("txtName")) & " Has Posted The Following Question : "
BodyTxt = BodyTxt & vbCrLf & Trim(Request.Form("txtQry"))
MyCDONTSMail.Body = BodyTxt
MyCDONTSMail.Send
set MyCDONTSMail = nothing
Response.Redirect "postquery.asp"
End If
End Function
%>
