Traffic Tech Group

<% name = request.form("name") lname = request.form("lname") compnay = request.form("company") address = request.form("address") city = request.form("city") country = request.form("country") postalcode = request.form("postalcode") Telephone = request.form("Telephone") fax = request.form("fax") email = request.form("email") comments = request.form("comments") if email <> "" Then date1 = request.form("date1") tel = request.form("tel") msgBody ="Name : " & name & vbNewLine msgBody= msgBody & "Last Name : " & lname & vbNewLine msgBody= msgBody & "Company : " & compnay & vbNewLine msgBody= msgBody & "Address : " & address & vbNewLine msgBody= msgBody & "City : " & city & vbNewLine msgBody= msgBody & "Country : " & country & vbNewLine msgBody= msgBody & "Postal Code : " & postalcode & vbNewLine msgBody= msgBody & "Telephone : " & Telephone & vbNewLine msgBody= msgBody & "Fax : " & fax & vbNewLine msgBody= msgBody & "E Mail : " & email & vbNewLine msgBody= msgBody & "Comments : " & comments & vbNewLine ' declare a CDO object dim objCDO ' create a CDO object set objCDO = Server.CreateObject("CDONTS.NewMail") ' set the properties objCDO.From = email objCDO.To = "ttg@traffic-tech.com" objCDO.Subject = "FeedBack Form" objCDO.BodyFormat = 0 'to accept html format objCDO.Body = msgBody ' send the email objCDO.Send set objCDO = Nothing End If %>Traffic Tech Group

<%If email = "" Then%>


	First name:
	Last name:
	Company:
	Address:
	City:
	Country:
	Postal Code:
	Telephone:
	Fax:
	E-mail:
	Comments:

<%End If%><%If email <> "" Then%>

	Contact Information

	Traffic Tech. Middle East 4 Suleiman Nabulsi Str.	Traffic Tech. (Gulf) W.L.L. Golden Building, Second Floor
	Abdali, Jabal Luwaibdeh	C Ring Road, Near Muntazah Signals
	P.O. Box 910480 Amman 11191 Jordan	P.O. Box 30704, Doha - Qatar
	Tel: + (962 6) 464 6941	Tel: + (974) 4361814 & 4328237
	Fax: + (962 6) 566 1775	Fax: + (974) 4361918
	e-mail: ttme@traffic-tech.com	e-mail: ttg@traffic-tech.com

<%End If%>