%@ Language=VBScript %>
<%
if request.QueryString("mail")=1 then
dim nam,conam,std,phone,email,comments
nam=request.form("nam")
conam=request.form("conam")
std=request.form("std")
phone=request.form("phone")
email=request.form("email")
comments =request.form("comments")
Set objEMail = Server.CreateObject("CDO.Message")
Set objConfig = Server.CreateObject("CDO.Configuration")
Set Confi = objConfig.Fields
confi("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
Confi("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
confi("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
Confi.Update
Set objEMail.Configuration = objConfig
objEMail.To = "sales@veeflex.com"
objEMail.From = email
objEMail.Subject = "www.veeflex.com"
reply= "
"
reply=reply & "| Mail from www.veeflex.com | "
reply=reply & " | Name | " & nam & " |
"
reply=reply & " | Company Name | " & conam & " |
"
reply=reply & " | Phone | " & std & "-" & phone & " |
"
reply=reply & " | E-mail | " & email & " |
"
reply=reply & " | Requirements | " & comments & " |
"
reply=reply & "
"
reply=reply & ""
objEMail.HtmlBody = reply
objEMail.Send
Set objEMail = Nothing
Response.Write("Message Sent")
Response.Redirect "thank_you.htm"
end if
%>
Welcome to Veeflex