<% if Request("Submit") <> "" then Dim objCDO Set objCDO = Server.CreateObject("CDO.Message") Dim objCDOConf Set objCDOConf = Server.CreateObject("CDO.Configuration") With objCDOConf.Fields .Item(cdoSendUsingMethod) = 2 .Item(cdoSMTPServer) = "mail-fwd" .Item(cdoSMTPServerPort) = 25 .Item(cdoSMTPconnectiontimeout) = 10 .Update End With Set objCDO.Configuration = objCDOConf ' Be sure to use a valid email addresses below: objCDO.From = "leahs@techs4biz.com" objCDO.To = "leahs@techs4biz.com" objCDO.Subject = "FormMail from " & Request.ServerVariables("URL") objCDO.TextBody = "FormMail from " & Request.ServerVariables("URL") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Name: " objCDO.TextBody = objCDO.TextBody & Request("Name") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Company: " objCDO.TextBody = objCDO.TextBody & Request("Company") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Telephone: " objCDO.TextBody = objCDO.TextBody & Request("Telephone") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Email Address: " objCDO.TextBody = objCDO.TextBody & Request("Email Address") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "How did you hear about us?: " objCDO.TextBody = objCDO.TextBody & Request("How did you hear about us?") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Business Sector: " objCDO.TextBody = objCDO.TextBody & Request("Business Sector") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Interest in: " objCDO.TextBody = objCDO.TextBody & Request("Interest in") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Comments: " objCDO.TextBody = objCDO.TextBody & Request("Comments") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.Send 'Clean-up Set objCDO = Nothing Set objCDOConf = Nothing ' Happy response. If you would rather, ' change the following to ' Response.Redirect "thanks.html" or similar Response.Write "Your Message has been sent. Thank you!" Response.End end if %> Pervidi Information Request Form

Request for Additional Information or Software Demonstration

Please fill out the form below and click the submit button.

Name:
Company:
Telephone:
Email address:
How did you hear about us?:
Business Sector:
Please select your desired product information
Comments:
 

Thank you for your interest in Pervidi!