<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> Covey Transport

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%>
<%if frmerrmsg <> "" then%> <%end if%>
*Error: <%=frmerrmsg%>      
  First name:
  " class="picborder" size="27" maxlength="60">
   
  Last name:
  " type="text" class="picborder" size="27" maxlength="60">
  Company:
  " size="60" maxlength="300">
  Street address:
  " class="picborder" size="60" maxlength="300">
  City:
  " class="picborder" size="27">
  Zip code:
  " size="27" maxlength="60">
   
  State:
  " size="27" maxlength="60">
  Email address:
  " size="60" maxlength="300">
  Work phone number:
  " size="27" maxlength="22">
   
  Fax number:
  " size="27" maxlength="22">
  Subject:
  " size="60" maxlength="300">
 
  Message: