%@ Language=VBScript%>
<%
Set objMailNote = Server.CreateObject("CDONTS.NewMail")
objMailNote.To = "{$GM-WEBIMPORT$},luigi@learntechpartners.com,goldmine@convene.com,reda@learntechpartners.com,sohasadek@aol.com"
objMailNote.From = "luigi@learntechpartners.com"
objMailNote.Subject = "IZIO Free Trial Web Form"
objMailNote.Body = "[Instructions]" + chr(13) + "DupCheck=cs1_ContSupRef" + chr(13) + "[Data]" + chr(13) + "Dear="+request.form("dear") + chr(13) + "Company=" + request.form("Company") + chr(13) + _
"Contact=" + request.form("contact") + chr(13) + "Title=" + request.form("title") + chr(13) + _
"Address1="+request.form("address1")+chr(13) + "Address2="+request.form("address2") + chr(13) + "City=" + _
request.form("city") + chr(13) + "State=" + request.form("state") + chr(13) + "zip=" + request.form("zip") + chr(13) + "Country=" + _
request.form("country") + chr(13) + "Phone1="+request.form("phone1") + chr(13) + "Fax="+request.form("fax")+chr(13) + _
"Source="+request.form("source")+chr(13) + "uacctpotl="+request.form("uacctpotl") + chr(13) + "key2="+request.form("key2") + chr(13) + _
"key3="+request.form("key3") + chr(13) + "key3="+request.form("key3")+chr(13) + "notes="+request.form("notes")+chr(13) + "Userdef04="+request.form("userdef04") + chr(13) + _
"Userdef05="+request.form("userdef05") + chr(13) + "[ContSupp]" + chr(13) + "cs1_rectype=P" + chr(13) + _
"cs1_contact=E-mail Address" + chr(13) + "cs1_contsupref=" + request.form("cs1_ContSupRef") + chr(13) + _
"cs2_rectype=P" + chr(13) + "cs2_contact=Web Site" + chr(13) + "cs2_contsupref=" + request.form("cs2_ContSupRef") + chr(13) + _
"cs3_rectype=P" + chr(13) + "cs3_contact=Computer Type" + chr(13) + "cs3_contsupref=" + request.form("cs3_ContSupRef") + chr(13) + _
"cs4_rectype=P" + chr(13) + "cs4_contact=Reason for Interest" + chr(13) + "cs4_contsupref=" + request.form("cs4_ContSupRef")
objMailNote.Send
set objMailNote = NOTHING
%>
Learning Technology Partners
© 2000-2004 Learning Technology Partners. All rights
reserved .