"
strBody = strBody & "| Name : | " & Request.Form("txtName") & " |
"
strBody = strBody & "| Address : | " & Request.Form("txtAddress") & " |
"
strBody = strBody & "| Phone : | " & Request.Form("txtPhone") & " |
"
strBody = strBody & "| City : | " & Request.Form("txtCity") & " |
"
if request.form("txtState") <> "" then
strBody = strBody & "| State : | " & Request.Form("txtState") & " |
"
end if
if request.form("txtCountry") <> "" then
strBody = strBody & "| Country : | " & Request.Form("txtCountry") & " |
"
end if
strBody = strBody & "| E-Mail : | " & Request.Form("txtMail") & " |
"
strBody = strBody & "| Information/Feedback : | " & Request.Form("txtInfo") & " |
"
strBody=strBody & "
"
msg="Inquiry Sent Succesfully."
Set objMail = Server.CreateObject("CDO.Configuration")
dim objMessage
dim objFields,objConfiguration
Set objFields = objMail.Fields
with objFields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServerPort) = 25
.Item(cdoSMTPServer) = "207.106.22.47"
.Update
end with
Set objMessage = CreateObject("CDO.Message")
with objMessage
Set .Configuration = objMail
.From=strMailFrom
.AutoGenerateTextBody = False
.To="info@deviarchitects.com"
.BCC="pranav@minfosystems.com"
.Subject=strSubject
.HTMLBody = strBody
.Send
end with
Set objMessage = Nothing
End if
%>
INQUIRY