<meta charset="utf-8">
<!--#include virtual="/includes/SendMail.asp"-->
<script src="https://www.google.com/recaptcha/api.js?render=blabla1"></script>
<!--#include virtual="/includes/aspJSON1.9.asp"-->
<%
If (trim(Request.Form("SendEmail")) = "Yes") Then
Name = Trim( [removed by moderator] )
Dim objXmlHttp
Set objXmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP")
url = "https://www.google.com/recaptcha/api/siteverify?secret=blabla2&remoteip=" & Request.ServerVariables("REMOTE_ADDR") & "&response=" & trim(Request.Form("g-recaptcha-response"))
objXmlHttp.open "POST", url, False
objXmlHttp.setRequestHeader "Content-Type", "application/json"
objXmlHttp.send()
Set oJSON = New aspJSON
oJSON.loadJSON(objXmlHttp.responseText)
if oJSON.data("success") then
strSubject = "parks.social Contact Message"
sLink = Server.MapPath("\") & "/img/mail/footer.jpg"
sEmailBody = ""
sEmailBody = sEmailBody & "From: " & Trim(Name) & vbcrlf
sEmailBody = sEmailBody & "<br>" & vbcrlf
sEmailBody = sEmailBody & "Email: " & Trim( [removed by moderator] ) & vbcrlf
sEmailBody = sEmailBody & "<br><br>" & vbcrlf
sEmailBody = sEmailBody & "Message: " & vbcrlf
sEmailBody = sEmailBody & "<br>" & vbcrlf
sEmailBody = sEmailBody & Trim(Request.Form("Message")) & vbcrlf
sEmailBody = sEmailBody & "<br><br>" & vbCrLf
sEmailBody = sEmailBody & "<img src='cid:Footer'>"
sEmail = "<html>" & vbcrlf
sEmail = sEmail & "<head>" & vbcrlf
sEmail = sEmail & "<meta charset=""utf-8"">" & vbcrlf
sEmail = sEmail & "</head>" & vbcrlf
sEmail = sEmail & "<body>" & vbcrlf
sEmail = sEmail & "<table style=""border: none; width: 80%; padding: 0px"" cellspacing=""0"">" & vbcrlf
sEmail = sEmail & "<tr>" & vbcrlf
sEmail = sEmail & "<td align=""left"">" & vbcrlf
sEmail = sEmail & "<div class=""container"" style=""width: 100%; margin: 64px;"">" & vbcrlf
sEmail = sEmail & sEmailBody & vbcrlf
sEmail = sEmail & "</div>" & vbcrlf
sEmail = sEmail & "</td>" & vbcrlf
sEmail = sEmail & "</tr>" & vbcrlf
sEmail = sEmail & "</table>" & vbcrlf
sEmail = sEmail & "</body>" & vbcrlf
sEmail = sEmail & "</html>" & vbcrlf
Set objConfig = Server.CreateObject("CDO.Configuration")
Set Fields = objConfig.Fields
strSQL = "SELECT [ConfigurationID],[SMTPUsername],[SMTPPassword],[SMTPServer], MailToEmailAddress FROM [Configuration] "
'Response.Write strSQL
Set rstConfig = cnnConn.Execute(strSQL)
If rstConfig.EOF Then
strSMTPUsername = ""
strSMTPPassword = ""
strSMTPServer = ""
strToAddress = ""
Else
strSMTPUsername = rstConfig.Fields("SMTPUsername").Value
strSMTPPassword = rstConfig.Fields("SMTPPassword").Value
strSMTPServer = rstConfig.Fields("SMTPServer").Value
strToAddress = Trim(rstConfig("MailToEmailAddress"))
End If
' Set config fields we care about
With Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = strSMTPServer
.Item(cdoSMTPServerPort) = 25
.Item(cdoSMTPConnectionTimeout) = 10
.Item(cdoSMTPAuthenticate) = cdoBasic
.Item(cdoSendUserName) = strSMTPUsername
.Item(cdoSendPassword) = strSMTPPassword
.Update
End With
Set objMessage = Server.CreateObject("CDO.Message")
Set objMessage.Configuration = objConfig
Set objBP = objMessage.AddRelatedBodyPart("" & sLink & "", "Footer", cdoRefTypeId)
objBP.Fields.Item("urn:schemas:mailheader:Content-ID") = "<Footer>"
objBP.Fields.Update
With objMessage
.To = strToAddress
'.From = "Auto Mailer <" & strSMTPUsername & ">"
.From = strSMTPUsername
.Subject = strSubject
If strAttachment > "" Then
.AddAttachment strAttachment
End If
.HTMLBody = sEmail
On Error Resume Next
.Send
On Error GoTo 0
End With
Set Fields = Nothing
Set objMessage = Nothing
Set objConfig = Nothing
'Response.Write strSMTPServer & "|" & strSMTPUsername & "|" & strSMTPPassword & "|" & "Auto Mailer " & strSMTPUsername & "|" & strBCC & "|" & strToAddress & "|" & strSubject & "|" & sEmailBody
'Response.End
if err then
Msg = "There has been a problem sending the message"
else
Msg = "The message has been sent"
End If
Else
Msg = "Error trying to verify recaptcha"
End If
End If
%>
<!--Contact Form-->
<section class="space-ptb contact-section">
<div class="container">
<div class="row bg-white">
<div class="col-lg-4">
<%
'###########################################################################################################
'OUTPUT page CMS content
Call CONTACT("Contact > Contact Us")
'###########################################################################################################
%>
<ul class="list-unstyled mb-0 d-flex mb-3">
<li><a class="me-2" href="#"><i class="fab fa-facebook-f"></i></a></li>
<li><a class="me-2" href="#"><i class="fab fa-twitter"></i></a></li>
<li><a class="me-2" href="#"><i class="fab fa-linkedin-in"></i></a></li>
<li><a class="me-2" href="#"><i class="fab fa-behance"></i></a></li>
</ul>
</div>
<div class="col-lg-8">
<div class="row">
<div class="col-lg-12">
<div id="formmessage">
<%
If (Trim(Msg) <> "") Then
%>
<span style="color: red;"><% Response.Write(Trim(Msg)) %></span>
<br>
<%
End If
%>
<form role="form" method="post" action="/Contact/" name="MessageForm" id="MessageForm">
<div class="contact-form clearfix">
<div class="row">
<div class="mb-3 col-md-6">
<div class="section-field">
<label class="form-label">Your name</label>
<input type="text" placeholder="Name*" onfocus='JavaScript: this.placeholder = "";' onBlur='JavaScript: this.placeholder = "Name*";' class="form-control" name="Name" ID="Name" required>
</div>
</div>
<div class="mb-3 col-md-6">
<div class="section-field">
<label class="form-label">Your email</label>
<input type="email" placeholder="Email*" onfocus='JavaScript: this.placeholder = "";' onBlur='JavaScript: this.placeholder = "Email*";' class="form-control" name="Email" ID="Email" required>
</div>
</div>
<div class="mb-3 col-md-12">
<div class="section-field textarea">
<label class="form-label">Your message</label>
<textarea class="input-message form-control" placeholder="Message*" onfocus='JavaScript: this.placeholder = "";' onBlur='JavaScript: this.placeholder = "Message*";' rows="7" name="Message" ID="Message" required></textarea>
</div>
</div>
</div>
<div class="section-field submit-button">
<input type="hidden" name="SendEmail" id="SendEmail" value="Yes">
<input type="text" name="g-recaptcha-response" id="g-recaptcha-response" value="" />
<button name="Submit" id="Submit" type="submit" value="Send" class="button btn btn-primary" onClick='JavaSCript: return Validate();'><span> Send message </span></button>
</div>
</div>
</form>
<div id="ajaxloader" style="display:none"><img class="mx-auto mt-30 mb-30 d-block" src="images/pre-loader/loader-02.svg" alt=""></div>
</div>
</div>
</div>
</div>
</div>
</section>
<script>
$(document).ready(function(){
$('#MessageForm').on('submit', function(e){
//show any loading mask/sign to user if necessary
e.preventDefault();
grecaptcha.ready(function() {
grecaptcha.execute('blabla1', {action: 'submit'}).then(function(token) {
document.getElementById("g-recaptcha-response").value = token;
document.MessageForm.submit();
});
});
});
});
</script>oJSON.data("success") returns false every time I try it and I gather the Recaptcha secret etc is correct. I can not see anything wrong with it - thanks