|
<%
if (request.form("btnSubmit") <> "") then
Dim sFirstName
Dim sLastName
Dim sCompanyName
Dim sEMail
Dim sStreet
Dim sCity
Dim sState
Dim sZip
Dim sTextArea
sFirstName = trim(Request.Form("txtFirstName"))
sLastName = trim(Request.Form("txtLastName"))
sCompanyName = trim(Request.Form("txtCompanyName"))
sEMail = trim(Request.Form("txtEMail"))
sStreet = trim(Request.Form("txtStreet"))
sCity = trim(Request.Form("txtCity"))
sState = trim(Request.Form("txtState"))
sZip = trim(Request.Form("txtZip"))
sTextArea = trim(Request.Form("txtTextArea"))
if ( (sFirstName = "") or _
(sLastName = "") or _
(sCompanyName = "") or _
(sEMail = "") or _
(sStreet = "") or _
(sCity = "") or _
(sState = "") or _
(sZip = "") or _
(sTextArea = "") ) then
%>
You must supply information for all fields. Please click your browser's back button and try again.
<%
else
'/////////////////////////////////////////
'Now Instantiate our email object and send the mail
'/////////////////////////////////////////
Dim objMail
Dim sBody
Set objMail = Server.CreateObject("CDONTS.NewMail")
'Create the body
sBody = "Contact Details- " & vbCrLf
sBody = sBody & "Name: " & sFirstName & " " & sLastName & vbCrLf
sBody = sBody & "Company: " & sCompanyName & vbCrLf
sBody = sBody & "Address: " & sStreet & vbCrLf
sBody = sBody & "City: " & sCity & vbCrLf
sBody = sBody & "State: " & sState & vbCrLf
sBody = sBody & "ZIP: " & sZip & vbCrLf
sBody = sBody & "Requested Info: " & sTextArea & vbCrLf
objMail.Body = sBody 'Store the email body
On Error Resume Next
objMail.Send sEMail, "cchan@mdvista.com","MDVista Investment Opportunity Inquiry"
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
End If
set objMail = nothing
%>
Thanks for inquiring about investment opportunities with MDvista. A representative will contact you shortly.
<%
end if
else
%>
To obtain information regarding investment opportunities, please submit the following information:
<%end if%>
|
