Contact Us
Address:
13609 Industrial Rd Gate 5
Houston, TX 77015
Phone:
713-451-2700
Fax
713-451-2706
Email:
jim@coveytransport.com
We are Glad to Hear from you.
(Send us your comments/suggestion with regards to our service)
<%
Public Function Val(ByVal argname)
Values = Trim(Request.Form(argname))
Val = Replace(Values, "'", "'")
End Function
F_FirstName = Val("F_FirstName")
F_LastName = Val("F_LastName")
F_OrganizationName = Val("F_OrganizationName")
F_StreetAddress1 = Val("F_StreetAddress1")
F_City = Val("F_City")
F_State = Val("F_State")
F_ZipCode = Val("F_ZipCode")
F_Country = Val("F_Country")
F_Phone1 = Val("F_Phone1")
F_Phone2 = Val("F_Phone2")
F_EmailAddress = Val("F_EmailAddress")
F_UserSubject = Val("F_UserSubject")
F_TextField1 = Val("F_TextField1")
frmerrmsg = ""
if Val("collectSubmit") = "Submit" then
if frmerrmsg = "" then
Dim stremail, mail, reply, objMail, strsubject
strsubject = F_UserSubject
strfrom = F_FirstName & ", " & F_LastName
stremail = F_EmailAddress
themailbody = "Date: " & Date & vbCrLf & _
"Name: " & strfrom & vbCrLf & _
"Address: " & F_StreetAddress1 & vbCrLf & _
"City: " & F_City & vbCrLf & _
"State: " & F_State & vbCrLf & _
"Zip: " & F_ZipCode & vbCrLf & _
"Country: " & F_Country & vbCrLf & _
"E-mail: " & F_EmailAddress &vbCrLf & _
"Work Phone: " & F_Phone1 & vbCrLf & _
"Fax: " & F_Phone2 & vbCrLf & _
"Comments: " & vbCrLf & _
F_TextField1
Dim MyMail
Set MyMail = Server.CreateObject("CDO.Message")
MyMail.From = """"& strfrom & """<" & stremail &">"
MyMail.To = "dmorgan@directoryone.com, abrown@directoryone.com"
MyMail.Subject = strsubject
MyMail.TextBody = themailbody
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "127.0.0.1"
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =25
myMail.Configuration.Fields.Update
Set MyMail = Nothing
Response.Redirect("thankyou.asp")
'response.write(themailbody)
End if
End if%>