Deeptrends

<% 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
5233 Bellaire Blvd. #440
Bellaire, TX 77401
Tel: 281.734.9872
Email: Information@DeepTrend.com

Accounting
DeepTrend, Inc.
c/o Brown, Graham & Co.
P.O. Box 20210
Amarillo, TX 79114

Contact Us

<% If Request("act") <> 1 then%> <%Else%>

Thank you for your message.

<%End If%>