|
|
|||||||
|
|||||||
%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% response.buffer=true %>
<%
if request.servervariables("REQUEST_METHOD") = "POST" then
Dim fname, lname, company, emailVar, usCity, usState, zip, phone, fax, gradeApplication, dimensions, usage, conditions, magnetization, requirements, comments
Dim objCDO
fname = request.form("FIRSTNAME")
lname = request.form("LASTNAME")
company = request.form("COMPANY")
emailVar = request.form("EMAIL")
usCity = request.form("CITY")
usState = request.form("STATE")
zip = request.form("ZIP")
phone = request.form("PHONE")
fax = request.form("FAX")
gradeApplication = request.form("GRADE")
dimensions = request.form("DIMENSIONS")
usage = request.form("USAGE")
conditions = request.form("CONDITIONS")
magnetization = request.form("MAGNETIZATION")
requirements = request.form("REQUIREMENTS")
comments = request.form("COMMENTS")
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.From = emailVar
objCDO.To = "info@edyne.com"
objCDO.Cc = ""
objCDO.Bcc = ""
objCDO.Subject = "EDYNE | INFO FORM"
objCDO.Body = "Name: " & fname & " " & lname & "
Company: " & company & "
Email: " & emailVar & "
City: " & usCity & "
State: " & usState & "
Zip: " & zip & "
Phone: " & phone & "
Fax: " & fax & "
Grade: " & gradeApplication & "
Dimensions: " & dimensions & "
Usage: " & usage & "
Conditions: " & conditions & "
Magnetization: " & magnetization & "
Requirements: " & requirements & "
Comments: " & comments
objCDO.BodyFormat = 0
objCDO.MailFormat = 0
objCDO.Send
' -- execute confirmation page
response.redirect "http://www.edyne.com"
end if
%>
|
|
|||||||
|
|||||||



![]() |
![]() |

