<%
Action = Request.QueryString("Action")
RetVal = Request.QueryString("RetVal")
strName = Request("txtName")
strSurName = Request("txtSurName")
strAddress = Request("txtAddress")
strSubject = Request("txtSubject")
strBody = Request("txaBody")
If Action = "Send" then
If strName = "" then
retval= "1"
Action = ""
End If
If strSurName = "" then
retval= RetVal & "2"
Action = ""
End If
If Len(strAddress) < 5 Then
retval= RetVal & "3"
Else
If Instr(strAddress, " ") <> 0 Then
retval= RetVal & "3"
Else
If InStr(strAddress, "@") < 2 Then
retval= RetVal & "3"
Else
If InStrRev(strAddress, ".") < InStr(strAddress, "@") + 2 Then
retval= RetVal & "3"
End If
End If
End If
End If
If strSubject = "" then
retval= RetVal & "4"
Action = ""
End If
If strBody = "" then
retval= RetVal & "5"
Action = ""
End If
End If
If Action = "Send" then
%>
<%
Set myCDONTS = Server.CreateObject("CDONTS.NewMail")
thisBody = replace(strBody, chr(13), "
")
thisBody = "" & thisBody & "
"
thisBody = thisBody & "This email was sent from Maverick Zero
"
myCDONTS.MailFormat = 0
myCDONTS.BodyFormat = 0
myCDONTS.From = strName & " " & strSurname & " <" & strAddress & ">"
myCDONTS.To = "Maverick Zero "
myCDONTS.Subject = strSubject
myCDONTS.Body = thisBody
myCDONTS.Send
Set myCDONTS = Nothing
'Log to Database
Set oRS = Server.CreateObject("ADODB.RecordSet")
SQL = "INSERT INTO Mail(Name_Mail, Surname_Mail, Address_Mail, Subject_Mail, Body_Mail) VALUES ('" & strName & "', '" & strSurName & "', '" & strAddress & "', '" & Replace(strSubject, "'", "`") & "', '" & Replace(strBody, "'", "`") & "')"
oRS.Open SQL, oConn
Set oRS = Nothing
%>
|
| Thank you <%=strName%>, |
| |
Your mail has been logged.
I will reply as soon as can. |
| |
| Maverick Zero |
|
<%
Else
%>
<%
End If
%>