Technology TransferPatent AssessmentPatent AssessmentPatent AssessmentPatent AssessmentPatent Assessment  
  Patent AssessmentIntellectual Property Management  
   


<% Option Explicit %> <% Dim objEmail Dim vstrSubmit Dim vstrSend Dim vstrName Dim vstrEmail Dim vstrAffiliation Dim vstrTitle Dim vstrPhone Dim vstrComment Dim vstrBody vstrSubmit = Request.Form("submit") vstrName = Request.Form("name") vstrEmail = Request.Form("email") vstrAffiliation = Request.Form("affiliation") vstrTitle = Request.Form("title") vstrPhone = Request.Form("phone") vstrComment = Request.Form("comments") If vstrSubmit = "submit" Then If vstrEmail = "" Then Response.Redirect "../inside.asp?L1=contactus&L2=email" End If Set objEmail = Server.CreateObject("Persits.MailSender") vstrBody = "Feedback" & vbcrlf vstrBody = vstrBody & "Name:" & vstrName & vbcrlf vstrBody = vstrBody & "Affiliation:" & vstrAffiliation & vbcrlf vstrBody = vstrBody & "Title:" & vstrTitle & vbcrlf vstrBody = vstrBody & "Name:" & vstrName & vbcrlf vstrBody = vstrBody & "Email: " & vstrEmail & vbcrlf vstrBody = vstrBody & "Phone: " & vstrPhone & vbcrlf vstrbody = vstrBody & "Comments: " & vstrComment With objEmail .Host = "mail.epsilonium.com" .Port = "25" .From = vstrEmail .FromName = vstrName '.AddAddress "dherrera@epsilonium.com" .AddAddress "al@poskanzer.com" .Subject = "Feedback poskanzer website" .Body = vstrBody End With vstrSend = objEmail.Send Response.Redirect ("../inside.asp?L1=contactus&L2=success") Set objEmail = Nothing End If %> Email and Feedback
Name:
Affiliation:
Title:
Email:
Phone:
Comments:
 
  ©Poskanzer & Associates  | Privacy Policy An Epsilonium web design Phoenix