Trillium Circle: Contact Us

<% @LANGUAGE = VBScript %> <% Option Explicit %> Trillium Circle: Contact Us <% Dim strFrom strFrom = Trim(Request.Form("Email")) if (cStr(Request("Submit")) <> "") Then Dim strEM strEM = "Name: " & Trim(Request.Form("Name")) & vbCRLF & "Company: " & Trim(Request.Form("company")) & vbCRLF & "Address: " & Trim(Request.Form("Address")) & vbCRLF & " " & Trim(Request.Form("City")) & ", " & Trim(Request.Form("State")) & Trim(Request.Form("Zip")) & vbCRLF & "Phone: " & Trim(Request.Form("Phone")) & vbCRLF & "Email: " & Trim(Request.Form("Email")) & vbCRLF & vbCRLF & "Questions & Comments: " & Trim(Request.Form("Comments")) 'If (strName <> "" And strEmail <> "" And strQuery <> "") Then Dim objMail Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From = strFrom objMail.To = "meredith@hardycom.com" objMail.Subject = "Info from www.trilliumcircle.com" objMail.Body = strEM objMail.Send Response.Redirect "thankyou.html" Set objMail = Nothing else %>

Name:

Company:

Address:

City:

State:

Zip:

Phone:

E-mail:

Questions & Comments:

<% end if %>