% If Request.QueryString("action") = "send" then Dim objMailer, strMessageBody, strRecipientString strRecipientString = "info@recognizinginnovation.com" 'strRecipientString = "greg@vistelar.com" strMessageBody = "" strMessageBody = strMessageBody & "" strMessageBody = strMessageBody & "" & vbCrLf & vbCrLf 'strMessageBody = strMessageBody & "-------------------------------------------------" & vbCrLf strMessageBody = strMessageBody & " E-mail: " & Request.Form("frmEmail") & vbCrLf strMessageBody = strMessageBody & " Patent Number: " & Request.Form("frmPatentNumber") & vbCrLf strMessageBody = strMessageBody & " Name: " & Request.Form("frmName") & vbCrLf strMessageBody = strMessageBody & " Company Name: " & Request.Form("frmCompanyName") & vbCrLf strMessageBody = strMessageBody & " Phone: " & Request.Form("frmPhone") & vbCrLf Set objMailer = Server.CreateObject("SMTPsvg.Mailer") objMailer.FromName = "recognizinginnovation.com" objMailer.FromAddress = "signup@recognizinginnovation.com" objMailer.RemoteHost = Application("SMTPSERVER") objMailer.Subject = "recognizinginnovation.com - Signup" objMailer.AddRecipient "info@recognizinginnovation.com", strRecipientString 'objMailer.AddRecipient "greg@vistelar.com", strRecipientString objMailer.BodyText = strMessageBody 'ObjMailer.SendMail 'Response.Write strMessageBody 'Response.End If objMailer.SendMail = False Then Response.Redirect("signup_failure.html") Else Response.Redirect("signup_success.html") End If Set objMailer = Nothing End if %>
|
|
|
||||||||||||||||||||||||||||||||||||||||||
|
|
|
|||
| home | innovation recognition | the collection | support services | contact us |