<% If Request("act") = 1 then listName = Request.Form("name") listCompany = Request.Form("company") listAddress = Request.Form("address") listCity = Request.Form("city") listState = Request.Form("state") listZip = Request.Form("zip") listPhone = Request.Form("phone") listFax = Request.Form("fax") listEmail = Request.Form("email") listMessage = Request.Form("comments") listName = Replace(listName, vbCr, "") listName = Replace(listName, vbLf, "") listEmail = Replace(listEmail, vbCr, "") listEmail = Replace(listEmail, vbLf, "") listMessage = Replace(listMessage, vbCr, "") listMessage = Replace(listMessage, vbLf, "") emailBodyText = emailBody emailBody = emailBody & "name: " & listName & "
" emailBody = emailBody & "company: " & listCompany & "
 
" emailBody = emailBody & "address: " & listAddress & "
" emailBody = emailBody & listCity & ", " & listState & " " & listZip & "
 
" emailBody = emailBody & "phone: " & listPhone & "
" emailBody = emailBody & "fax: " & listFaX & "
" emailBody = emailBody & "email: " & listEmail & "
 
" emailBody = emailBody & "message:
" & listMessage Set cdoConfig = CreateObject("CDO.Configuration") With cdoConfig.Fields .Item(cdoSendUsingMethod) = cdoSendUsingPickup .Item(cdoSMTPServer) = "localhost" .Update End With Set cdoMessage = CreateObject("CDO.Message") With cdoMessage Set .Configuration = cdoConfig .From = listEmail .To = "info@deeptrend.com" .Subject = "Web site feedback" .HTMLBody = emailBody '.TextBody = emailBodyText .Send End With Set cdoMessage = Nothing Set cdoConfig = Nothing End If %> Deeptrends

Corporate
DeepTrend, Inc.
c/o Matthew Doan
5116 Bissonnet #440
Bellaire, TX 77401
Tel: 281.734.9872
Email: Information@DeepTrend.com

Accounting
DeepTrend, Inc.
c/o Brown, Graham & Co.
125 N. Maxwell
P.O. Box 446
Tulia, TX 79088
Email: Accounting@DeepTrend.com

Contact Us

<% If Request("act") <> 1 then%>
Your information

* required field
 










Your message
Send your information
<%Else%>

Thank you for your message.

<%End If%>