<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% program = "DAK Form" %>
<%
If (cStr(Request("Submit")) <> "") Then
' email to CSA
Dim objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.From = cStr(Request("Email")) 'Senders Email Address
objCDO.To = cStr("procurement@dakamericas.com") 'Recipient Email Address
objCDO.BCC = cStr("andrew@gomindstorm.com")
objCDO.Subject = cStr("DAK Americas Procurement Contact")'Email Subject
myBody = "The following Procurement email was sent from http://www.dakamericas.com/contact_pro.asp:" & vbcrlf & vbcrlf
' loops through form and adds each on a separate line to the email
For x = 1 to Request.Form.Count
myBody = myBody + Request.Form.Key(x) + ": " + Request.Form.Item(x) + vbcrlf + vbcrlf
Next
objCDO.Body = cStr(myBody) 'Email Message
objCDO.Send() 'send mail
Set objCDO = Nothing 'Clean up your objects!!!
'email to student
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.From = cStr("procurement@dakamericas.com") 'Senders Email Address
objCDO.To = cStr(Request("Email")) 'Recipient Email Address
'objCDO.BCC = cStr("andrew@gomindstorm.com")
objCDO.Subject = cStr("DAK Americas Procurement Email Confirmation")'Email Subject
myBody = "Your email to DAK Americas Procurement has been sent." & vbcrlf & vbcrlf
myBody = myBody & "If you have any questions, please contact procurement@dakamericas.com."
objCDO.Body = cStr(myBody) 'Email Message
objCDO.Send() 'send mail
Set objCDO = Nothing 'Clean up your objects!!!
Response.Redirect("thank_you.htm") 'use this to redirect page after delivery
'Response.Write("Message Delivered") 'default response
End If
%>
DAK Americas
