Contact Information

Get In Touch

Name *

Email *

Subject

Message

<% if not IsEmpty(Request.Form("btnTest")) then sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = CreateObject("CDO.Configuration") With cdoConfig.Fields .Item(sch & "sendusing") = 2 ' cdoSendUsingPort .Item(sch & "smtpserver") = "smtp8.net4india.com" .update End With Dim myMail Dim varMsg1, varUserName, varUserMail, varSub, varBody varUserName = Trim(request.Form("UserName")) varUserMail = Trim(request.Form("UserMail")) varSub = Trim(request.Form("UserSub")) varMsg1 = Trim(request.Form("Msg1")) varBody = "Name - " & varUserName & vbcrlf varBody = varBody & "EMail - " & varUserMail & vbcrlf varBody = varBody & "Subject - " & varSub & vbcrlf & vbcrlf varBody = varBody & "Message - " & varMsg1 Set cdoMessage = CreateObject("CDO.Message") With cdoMessage Set .Configuration = cdoConfig .From = varUserMail .To = "info@indicept.in" .Cc = "virparekh@gmail.com" .Subject = "Web: " & varSubLine .TextBody = varBody .Send End With Set cdoMessage = Nothing Set cdoConfig = Nothing if err.number > 0 then response.write (err.description) response.end end if Response.Redirect("http://www.indicept.in/contact_thanks.htm") end if %>

Send Your Message