%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% ' checks to see if form was submitted if Request.Form("FFSubmitted") = "yes" then ' collects the value of the senders email address senderemail = Request.form ("EMail") ' sets info for to, from subject etc Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.From = senderemail objCDO.To = "Robert@RobertKaindl.com" ' objCDO.Cc = "" ' objCDO.Bcc = "" objCDO.Subject = "www.RobertKaindl.com - inquiry" ' body of the email BodyString = BodyString & "Email from www.RobertKaindl.com/contact.asp: "& vbCrLf & _ "-------------------------------------------------------------------------" & vbCrLf & _ "Name : " & Request("Name") & vbCrLf & _ "Company : " & Request("Company") & vbCrLf & _ "-------------------------------------------------------------------------" & vbCrLf & _ "Address : " & Request("Address") & vbCrLf & _ "City : " & Request("City") & vbCrLf & _ "State : " & Request("State") & vbCrLf & _ "Zip : " & Request("Zip") & vbCrLf & _ "-------------------------------------------------------------------------" & vbCrLf & _ "Home : " & Request("Home") & vbCrLf & _ "Cell : " & Request("Cell") & vbCrLf & _ "Work : " & Request("Work") & vbCrLf & _ "Fax : " & Request("Fax") & vbCrLf & _ "Email : " & Request("EMail") & vbCrLf & _ "-------------------------------------------------------------------------" & vbCrLf & _ "Subject : " & Request("Subject") & vbCrLf & _ "Message : " & Request("Comments") & vbCrLf & _ "-------------------------------------------------------------------------" & vbCrLf & _ "Interested : " & Request("Interested") & vbCrLf & _ "Purpose : " & Request("Purpose") & vbCrLf & _ "RespondBy : " & Request("RespondBy") & vbCrLf & _ "-------------------------------------------------------------------------" & vbCrLf ' settings for the email format etc. objCDO.Body = BodyString objCDO.BodyFormat = 1 objCDO.MailFormat = 1 objCDO.Send Set objCDO = Nothing ' link to redirect to after email is sent response.Redirect("http://RobertKaindl.com/confirmation.htm") end if %>
OFFICE: (425) 750-0003 |
HOT SHOP:
(206) 650-4265 |
FAX: (425) 885-2526 |
All of Robert's creations are custom, each piece is hand blown by Robert and his team in our state of the art facility in Redmond Washington. Please send attachments to info@RobertKaindl.com.
* Indicates required fields |