% Sub doEmail(toName,toEmail,fromName,fromEmail,emSubject,emBody) If inStr(writeBCC,";") > 0 Then writeBCC = Split(writeBCC,";") toEmail = Replace(toEmail," ","") & ";" arrToEmails = Split(toEmail,";") Set Mailer = Server.CreateObject("Persits.MailSender") Mailer.Host = "mail.narniaweb.com" Mailer.FromName = fromName Mailer.From = fromEmail For Each i in arrToEmails If Len(i) > 0 Then If inStr(i,"@") > 0 Then Mailer.AddAddress i,toName Next If sendHTML = "1" Then Mailer.isHTML = True If sendFile <> "" Then Mailer.AddAttachment sendFile If isArray(writeBCC) Then For Each i in writeBCC If inStr(i,"@") > 0 Then Mailer.AddBCC i,i Next End If Mailer.Subject = emSubject Mailer.Body = emBody Mailer.Queue = True Mailer.Send writeBCC = "" sendHTML = "" Set Mailer = Nothing End Sub If request("act") = "1" Then Dim objXmlHttp, varString, ResponseString varString = "privatekey=6LdsOAAAAAAAAEmn8GSLmX28YTGd9OySsOg3xRVR" varString = varString & "&remoteip=" & request.ServerVariables("REMOTE_ADDR") varString = varString & "&challenge=" & request.form("recaptcha_challenge_field") varString = varString & "&response=" & request.form("recaptcha_response_field") Set objXmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP") objXmlHttp.open "POST", "http://api-verify.recaptcha.net/verify", False objXmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" objXmlHttp.send VarString ResponseString = Split(objXmlHttp.responseText, vbLf) Set objXmlHttp = Nothing If ResponseString(0) = "true" Then SMTP = "mail.narniaweb.com" thankYou = "sent2.asp" emToName = "The Wardrobe Door" emToEmail = "vaire@narniaweb.com" emToSubject = "Costume Site Submission" For Each i in Split("Name,Email,Costume Title,Film,Write Up,Images,Thumb,Comments",",") emData = emData & i & ": " & request.form(i) & vbCrLf Next fromName = request("Name") fromEmail = request("Email") If fromName = "" Then fromName = "No Name" If fromEmail = "" Then fromEmail = emToEmail Call doEmail(emToName,emToEmail,fromName,fromEmail,emToSubject,emData) response.redirect thankYou Else strError = "
Verification Failed. Please try again.
" End If End If %>
|
|