Beta Research Corporation
<%
Dim sKey
Response.Write "" & vbCrLf
Dim sName, sTitle, sPhone, sEMail, sCompany, sAddress, sCity, sState, sZip, sChoice
'Response.Write ""
Function SendMail(strServer, strFrom, strTo, strSubject, strBodyText)
Dim SMTP, X
'Response.Write "" & vbCrLf
Set SMTP = CreateObject("EasyMail.SMTP.5")
SMTP.LicenseKey = "Beta Research (Single Developer)/00205308102215006B00"
SMTP.MailServer = strServer
SMTP.FromAddr = strFrom
SMTP.AddRecipient "", strTo, 1
SMTP.Subject = strSubject
SMTP.BodyText = strBodyText
Response.Write " " & vbCrLf
X = SMTP.Send
Select Case X
Case 0
Response.Write "Message sent successfully."
'Response.Redirect "thankyou.htm"
Case 1
Response.Write "An unknown error has occurred"
Case 2
Response.Write "An error has resulted because there was no message specified"
Case 3
Response.Write "The process has run out of memory."
Case 4
Response.Write "An error has occurred due to a problem with the message body or attachments."
Case 5
Response.Write "There was a problem initiating the conversation with the mail server. Ensure the setting of the Domain property is correct."
Case 6
Response.Write "There was an error terminating the conversation with the SMTP mail server."
Case 7
Response.Write "The from address was not formatted correctly or was rejected by the SMTP mail server. Some SMTP mail servers will only accept mail from particular addresses or domains. SMTP mail servers may also reject a from address if the server can not successfully do a reverse lookup on the from address."
Case 8
Response.Write "An error was reported in response to a recipient address. The SMTP server may refuse to handle mail for unknown recipients."
Case 9
Response.Write "There was an error connecting to the SMTP mail server."
Case 10
Response.Write "There was an error opening a file. If you have specified file attachments, ensure that they exist and the you have access to them."
Case 11
Response.Write "There was an error reading a file. If you have specified file attachments, ensure that they exist and the you have access to them."
Case 12
Response.Write "There was an error writing to a file. Ensure that you have sufficient disk space."
Case 15
Response.Write "No mail server specified."
Case 16
Response.Write "Could not create socket."
Case 17
Response.Write "Could not resolve host."
Case 18
Response.Write "Connected but server sent back bad response."
Case 19
Response.Write "Could not create thread."
Case 20
Response.Write "Cancelled as a result of calling the Cancel() method."
Case 21
Response.Write "The operation timed-out while the host was being resolved."
Case 22
Response.Write "The operation timed-out while connecting."
Case 24
Response.Write "ESMTP Authentication failed."
Case 25
Response.Write "The selected ESMTP Authentication mode is not supported by the server."
Case 26
Response.Write "ESMTP Authentication protocol error."
Case Else
Response.Write "There was an error sending your message. Error: " + cstr(x)
End Select
Response.Write " " & vbCrLf
Set SMTP = Nothing
SendMail = X
End Function
Sub ProcessForm
Dim strSubject
strSubject = "BetaResearch.com Contact Request: " & sName
'Response.Write "" & vbCrLf
Dim sMsg
sMsg = ""
sMsg = sMsg & "--------------------------------------------------------" & vbCrLf
sMsg = sMsg & "BetaResearch.com Contact Request" & vbCrLf
sMsg = sMsg & "--------------------------------------------------------" & vbCrLf
sMsg = sMsg & " Name: " & sName & vbCrLf
sMsg = sMsg & " Title: " & sTitle & vbCrLf
sMsg = sMsg & " Telephone: " & sPhone & vbCrLf
sMsg = sMsg & " E-Mail: " & sEMail & vbCrLf
sMsg = sMsg & " Company: " & sCompany & vbCrLf
sMsg = sMsg & " Address: " & sAddress & vbCrLf
sMsg = sMsg & " City: " & sCity & vbCrLf
sMsg = sMsg & " State: " & sState & vbCrLf
sMsg = sMsg & " Postal: " & sZip & vbCrLf
sMsg = sMsg & " Choice: " & sChoice & vbCrLf
sMsg = sMsg & "--------------------------------------------------------" & vbCrLf
sMsg = sMsg & "Sent at " & FormatDateTime(Now(), 3) & " on " & FormatDateTime(Now(), 1) & vbCrLf & vbCrLf
If SendMail("mailserver", "postmaster@betaresearch.com", "info@betaresearch.com", strSubject, sMsg) = 0 Then
'success
sName = ""
sTitle = ""
sPhone = "with Area Code please"
sEMail = ""
sCompany = ""
sAddress = ""
sCity = ""
sState = ""
sZip = ""
sChoice = ""
Else
'failure
End If
End Sub
%>