<% isPost = false hasPost = false if request.servervariables("REQUEST_METHOD") = "POST" Then isPost = true end if EOL = chr(13) & chr(10) if isPost then hasPost = true mybody = "" myname=Request.Form("firstname") &" " & request.form("lastname") email=Request.Form("email") companyname=Request.Form("companyname") zip=Request.Form("zip") phone=Request.Form("phone") comments=Request.Form("comments") mybody = "Name: " & myname & EOL mybody = mybody & "Email: " & Email & EOL mybody = mybody & "Company Name: " & companyname & EOL mybody = mybody & "Phone: " & phone & EOL mybody = mybody & "Zip: " & zip & EOL mybody = mybody & "Comments: " & comments & EOL 'emailFromSite "Bev@IslandJade.com","bev@shockomedia.com","Contact Us",mybody 'emailFromSite "Bev@IslandJade.com","chunter@bytejam.com","Contact Us",mybody SendAnEmailMessage "Contact Form","comments@getproductiv.com","Rich","comments@getproductiv.com","","","Website contact form",mybody,"ASPMail" 'response.redirect("/index.html") end if debugEmailStuff=1 Function SendAnEMailMessage(fromName,fromEmail,toName,toEmail,bccEmail,ccEmail,subject,body,method) Dim vbCrLf, errorResponse, myBody Dim whatEmailMethodIsUsed ' ASPMail CDO ASPMail2 errorResponse = "" vbCrLf = Chr(13) & Chr(10) myBody = body whatEmailMethodIsUsed = method If whatEmailMethodIsUsed <> "ASPMail2" And whatEmailMethodIsUsed <> "ASPMail" And whatEmailMethodIsUsed <> "CDO" Then whatEmailMethodIsUsed = preferredEmailMethod whatEmailMethodIsUsed = "CDO" If debugEmailStuff = 1 Then myBody = myBody & vbCrLf & vbCrLf & whatEmailMethodIsUsed & " / " & mailserver & " / " & mailserverport & " / " & Date() & " / " & Time() Response.Write "" & vbCrLf End If ' ASPMail_________________________________________________________ If whatEmailMethodIsUsed = "ASPMail" Then Set Mailer = Server.CreateObject("SMTPsvg.Mailer") If Len(fromEMail) > 5 Then Mailer.FromAddress = fromEmail Else Mailer.FromAddress = replyEmail If Len(fromName) > 5 Then Mailer.FromName = fromName 'Mailer.RemoteHost = mailserver & ":" & mailserverport Mailer.RemoteHost = mailserver If debugEmailStuff = 1 Then Mailer.AddRecipient "Tester",debugEmail Else Mailer.AddRecipient toName,toEmail If ccEmail <> "" Then Mailer.AddCC toName,ccEmail If bccEmail <> "" Then Mailer.AddBCC toName,bccEmail Mailer.Subject = subject Mailer.BodyText = myBody Mailer.Username = mailUser Mailer.Password = mailPassword If Not Mailer.SendMail Then myResult = Mailer.Response & "
Mailer.GetTempPath: '" & Mailer.GetTempPath & "'" Set Mailer = nothing If debugEmailStuff = 1 Then Response.Write "" & vbCrLf SendAnEMailMessage = myResult Else Set Mailer = nothing SendAnEMailMessage = "OK" End If End If ' CDO_________________________________________________________ If whatEmailMethodIsUsed = "CDO" Then sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = CreateObject("CDO.Configuration") cdoConfig.Fields.Item(sch & "sendusing") = 1 ' cdoSendUsingPickup = 1 , cdoSendUsingPort = 2 cdoConfig.Fields.Item(sch & "smtpserver") = mailserver 'cdoConfig.Fields.Item(sch & "smtpserverport") = mailserverport cdoConfig.Fields.Item(sch & "smtpauthenticate") = 0 ''''''cdoConfig.Fields.Item(sch & "sendusername") = mailUser ''''''cdoConfig.Fields.Item(sch & "sendpassword") = mailPassword cdoConfig.Fields.Item(sch & "smtpconnectiontimeout") = 10 cdoConfig.Fields.update Set cdoMessage = CreateObject("CDO.Message") cdoMessage.Configuration = cdoConfig If debugEmailStuff = 1 Then cdoMessage.To = debugEmail Else cdoMessage.To = toEmail If Len(fromEMail) > 5 Then cdoMessage.From = fromEmail Else cdoMessage.From = replyEmail If ccEmail <> "" Then cdoMessage.Cc = ccEmail If bccEmail <> "" Then cdoMessage.Bcc = bccEmail cdoMessage.Subject = subject cdoMessage.TextBody = myBody myResult = cdoMessage.Send Set cdoMessage = Nothing Set cdoConfig = Nothing If debugEmailStuff = 1 Then Response.Write "" & vbCrLf SendAnEMailMessage = "OK" End If ' Persists ASP Email_________________________________________________________ If whatEmailMethodIsUsed = "ASPMail2" Then Dim objMail Set Mailer = Server.CreateObject("Persits.MailSender") Mailer.Host = mailserver Mailer.Port = mailserverport Mailer.Username = mailUser Mailer.Password = mailPassword 'Mailer.Reset 'Mailer.Timestamp = DateAdd("h",formhfn,Now) If debugEmailStuff = 1 Then Mailer.AddAddress debugEmail,"Tester" Else Mailer.AddAddress toEmail,toEmail If Len(fromEMail) > 5 Then Mailer.From = fromEmail Else Mailer.From = replyEmail If Len(fromEMail) > 5 Then Mailer.FromName = fromEmail Else Mailer.FromName = replyEmail 'Mailer.AddReplyTo "News@BugleGames.com" Mailer.Subject = subject Mailer.Body = myBody myResult = Mailer.send If debugEmailStuff = 1 Then Response.Write "" & vbCrLf Set Mailer = Nothing If UCase(myResult) = "TRUE" Then SendAnEMailMessage = "OK" Else SendAnEMailMessage = myResult End If End Function %> Productiv • Contact Us • Contact Form