<% IF request.Form("success") = 0 THEN %>
Name: *
Company: *
Phone no: *
E-mail: *
Subject: *
Message: *
<%ELSEIF request.Form("success") = 1 THEN %>
Thank you for your precious request. We will get back to you soon.
<%END IF%>
<% IF (request.Form("success")=1) THEN sBody = vbCrLf & vbCrLf & "Name : " & request.Form("cust_name") & vbCrLf & vbCrLf sBody = sBody & "Company : " & request.Form("company") & vbcrlf & vbCrLf sBody = sBody & "Phone no : " & request.Form("phoneno") & vbcrlf & vbCrLf sBody = sBody & "Email Id : " & request.Form("email") & vbcrlf & vbCrLf sBody = sBody & "Subject : " & request.Form("subject") & vbcrlf & vbCrLf sBody = sBody & "Message : " & request.Form("message") & vbcrlf & vbCrLf Dim myMail Set myMail=CreateObject("CDO.Message") myMail.Subject = request.Form("subject") myMail.From= "info@mindwavesystems.com" myMail.To= "info@mindwavesystems.in" myMail.HTMLBody= sBody myMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing")=2 'Name or IP of remote SMTP server myMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") _ ="localhost" 'Server port myMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _ =25 myMail.Configuration.Fields.Update myMail.Send set myMail=nothing End IF %>