<% dim udFname, udLname, udCompany, udEmail, udPh, udCountry, udSubject, udMessage udFname = "" udLname = "" udCompany = "" udEmail = "" udPh = "" udCountry = "" udSubject = "" udMessage = "" udFname = Request.Form("txtFName") udLname = Request.Form("txtLName") udCompany = Request.Form("txtCompany") udEmail = Request.Form("txtMail") udPh = Request.Form("txtPh") udCountry = Request.Form("txtCountry") udSubject = Request.Form("txtSubject") udMessage = udFname & "" & vbcrlf & ""& udLname & "" & vbcrlf & ""& udCompany & "" & vbcrlf & ""& udEmail & "" & vbcrlf & ""& udPh & "" & vbcrlf & ""& udCountry & "" & vbcrlf & ""& Request.Form("txtMessage") %>
 
 
<% if udEmail="" then %> Please fill out the details below <% end if %>
<% if udEmail="" then %>
First Name*
Last name*
Company*
E-mail address*
Phone number*
State
Country
Subject
Message/Query
   
<% else %> <% set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From="info@concepttsbuilders.com" objMail.to="info@concepttsbuilders.com" objMail.Subject=udSubject objMail.Body=udMessage objMail.send %>
Message Sent Successfully
<% end if %>