%@language="VBscript"%><% If Request.QueryString("which") = 1 then cust_info = Request.Form("cust_info") supp_name = Request.Form("supp_name") supp_addr = Request.Form("supp_addr") supp_city = Request.Form("supp_city") supp_state = Request.Form("supp_state") supp_zip = Request.Form("supp_zip") supp_country = Request.Form("supp_country") shipper2 = Request.Form("shipper2") supp_name2 = Request.Form("supp_name2") supp_addr2 = Request.Form("supp_addr2") supp_city2 = Request.Form("supp_city2") supp_state2 = Request.Form("supp_state2") supp_zip2 = Request.Form("supp_zip2") supp_country2 = Request.Form("supp_country2") shipper3 = Request.Form("shipper3") supp_name3 = Request.Form("supp_name3") supp_addr3 = Request.Form("supp_addr3") supp_city3 = Request.Form("supp_city3") supp_state3 = Request.Form("supp_state3") supp_zip3 = Request.Form("supp_zip3") supp_country3 = Request.Form("supp_country3") shipper4 = Request.Form("shipper4") supp_name4 = Request.Form("supp_name4") supp_addr4 = Request.Form("supp_addr4") supp_city4 = Request.Form("supp_city4") supp_state4 = Request.Form("supp_state4") supp_zip4 = Request.Form("supp_zip4") supp_country4 = Request.Form("supp_country4") shipper5 = Request.Form("shipper5") supp_name5 = Request.Form("supp_name5") supp_addr5 = Request.Form("supp_addr5") supp_city5 = Request.Form("supp_city5") supp_state5 = Request.Form("supp_state5") supp_zip5 = Request.Form("supp_zip5") supp_country5 = Request.Form("supp_country5") shipper6 = Request.Form("shipper6") supp_name6 = Request.Form("supp_name6") supp_addr6 = Request.Form("supp_addr6") supp_city6 = Request.Form("supp_city6") supp_state6 = Request.Form("supp_state6") supp_zip6 = Request.Form("supp_zip6") supp_country6 = Request.Form("supp_country6") shipper7 = Request.Form("shipper7") supp_name7 = Request.Form("supp_name7") supp_addr7 = Request.Form("supp_addr7") supp_city7 = Request.Form("supp_city7") supp_state7 = Request.Form("supp_state7") supp_zip7 = Request.Form("supp_zip7") supp_country7 = Request.Form("supp_country7") shipper8 = Request.Form("shipper8") supp_name8 = Request.Form("supp_name8") supp_addr8 = Request.Form("supp_addr8") supp_city8 = Request.Form("supp_city8") supp_state8 = Request.Form("supp_state8") supp_zip8 = Request.Form("supp_zip8") supp_country8 = Request.Form("supp_country8") shipper9 = Request.Form("shipper9") supp_name9 = Request.Form("supp_name9") supp_addr9 = Request.Form("supp_addr9") supp_city9 = Request.Form("supp_city9") supp_state9 = Request.Form("supp_state9") supp_zip9 = Request.Form("supp_zip9") supp_country9 = Request.Form("supp_country9") shipper10 = Request.Form("shipper10") supp_name10 = Request.Form("supp_name10") supp_addr10 = Request.Form("supp_addr10") supp_city10 = Request.Form("supp_city10") supp_state10 = Request.Form("supp_state10") supp_zip10 = Request.Form("supp_zip10") supp_country10 = Request.Form("supp_country10") shipper11 = Request.Form("shipper11") supp_name11 = Request.Form("supp_name11") supp_addr11 = Request.Form("supp_addr11") supp_city11 = Request.Form("supp_city11") supp_state11 = Request.Form("supp_state11") supp_zip11 = Request.Form("supp_zip11") supp_country11 = Request.Form("supp_country11") shipper12 = Request.Form("shipper12") supp_name12 = Request.Form("supp_name12") supp_addr12 = Request.Form("supp_addr12") supp_city12 = Request.Form("supp_city12") supp_state12 = Request.Form("supp_state12") supp_zip12 = Request.Form("supp_zip12") supp_country12 = Request.Form("supp_country12") contact1 = Request.Form("contact1") name1 = Request.Form("name1") title1 = Request.Form("title1") phone1 = Request.Form("phone1") fax1 = Request.Form("fax1") email1 = Request.Form("email1") contact2 = Request.Form("contact2") name2 = Request.Form("name2") title2 = Request.Form("title2") phone2 = Request.Form("phone2") fax2 = Request.Form("fax2") email2 = Request.Form("email2") contact3 = Request.Form("contact3") name3 = Request.Form("name3") title3 = Request.Form("title3") phone3 = Request.Form("phone3") fax3 = Request.Form("fax3") email3 = Request.Form("email3") contact4 = Request.Form("contact4") name4 = Request.Form("name4") title4 = Request.Form("title4") phone4 = Request.Form("phone4") fax4 = Request.Form("fax4") email4 = Request.Form("email4") contact5 = Request.Form("contact5") name5 = Request.Form("name5") title5 = Request.Form("title5") phone5 = Request.Form("phone5") fax5 = Request.Form("fax5") email5 = Request.Form("email5") contact6 = Request.Form("contact6") name6 = Request.Form("name6") title6 = Request.Form("title6") phone6 = Request.Form("phone6") fax6 = Request.Form("fax6") email6 = Request.Form("email6") contact7 = Request.Form("contact7") name7 = Request.Form("name7") title7 = Request.Form("title7") phone7 = Request.Form("phone7") fax7 = Request.Form("fax7") email7 = Request.Form("email7") contact8 = Request.Form("contact8") name8 = Request.Form("name8") title8 = Request.Form("title8") phone8 = Request.Form("phone8") fax8 = Request.Form("fax8") email8 = Request.Form("email8") contact9 = Request.Form("contact9") name9 = Request.Form("name9") title9 = Request.Form("title9") phone9 = Request.Form("phone9") fax9 = Request.Form("fax9") email9 = Request.Form("email9") contact10 = Request.Form("contact10") name10 = Request.Form("name10") title10 = Request.Form("title10") phone10 = Request.Form("phone10") fax10 = Request.Form("fax10") email10 = Request.Form("email10") contact11 = Request.Form("contact11") name11 = Request.Form("name11") title11 = Request.Form("title11") phone11 = Request.Form("phone11") fax11 = Request.Form("fax11") email11 = Request.Form("email11") contact12 = Request.Form("contact12") name12 = Request.Form("name12") title12 = Request.Form("title12") phone12 = Request.Form("phone12") fax12 = Request.Form("fax12") email12 = Request.Form("email12") sunshipstart = Request.Form("sunshipstart") sunshipstop = Request.Form("sunshipstop") monshipstart = Request.Form("monshipstart") monshipstop = Request.Form("monshipstop") tuesshipstart = Request.Form("tuesshipstart") tuesshipstop = Request.Form("tuesshipstop") wedshipstart = Request.Form("wedshipstart") wedshipstop = Request.Form("wedshipstop") thursshipstart = Request.Form("thursshipstart") thursshipstop = Request.Form("thursshipstop") frishipstart = Request.Form("frishipstart") frishipstop = Request.Form("frishipstop") satshipstart = Request.Form("satshipstart") satshipstop = Request.Form("satshipstop") sunrecstart = Request.Form("sunrecstart") sunrecstop = Request.Form("sunrecstop") monrecstart = Request.Form("monrecstart") monrecstop = Request.Form("monrecstop") tuesrecstart = Request.Form("tuesrecstart") tuesrecstop = Request.Form("tuesrecstop") wedrecstart = Request.Form("wedrecstart") wedrecstop = Request.Form("wedrecstop") thursrecstart = Request.Form("thursrecstart") thursrecstop = Request.Form("thursrecstop") frirecstart = Request.Form("frirecstart") frirecstop = Request.Form("frirecstop") satrecstart = Request.Form("satrecstart") satrecstop = Request.Form("satrecstop") ship_req = Request.Form("ship_req") ship_appt = Request.Form("ship_appt") rec_appt = Request.Form("rec_appt") txtBody = txtBody & "I. Customer Information: " & vbcrlf & vbcrlf txtBody = txtBody & "Shipping Company: " & cust_info & vbcrlf & vbcrlf txtBody = txtBody & "II. Supplier Address: " & vbcrlf & vbcrlf txtBody = txtBody & "Company Name: " & supp_name & vbcrlf txtBody = txtBody & "Shipping Address: " & supp_addr & vbcrlf txtBody = txtBody & "City: " & supp_city & vbcrlf txtBody = txtBody & "State: " & supp_state & vbcrlf txtBody = txtBody & "Zip: " & supp_zip & vbcrlf txtBody = txtBody & "Country: " & supp_country & vbcrlf & vbcrlf If shipper2 Then txtBody = txtBody & "Company Name: " & supp_name2 & vbcrlf txtBody = txtBody & "Shipping Address: " & supp_addr2 & vbcrlf txtBody = txtBody & "City: " & supp_city2 & vbcrlf txtBody = txtBody & "State: " & supp_state2 & vbcrlf txtBody = txtBody & "Zip: " & supp_zip2 & vbcrlf txtBody = txtBody & "Country: " & supp_country2 & vbcrlf & vbcrlf End If If shipper3 Then txtBody = txtBody & "Company Name: " & supp_name3 & vbcrlf txtBody = txtBody & "Shipping Address: " & supp_addr3 & vbcrlf txtBody = txtBody & "City: " & supp_city3 & vbcrlf txtBody = txtBody & "State: " & supp_state3 & vbcrlf txtBody = txtBody & "Zip: " & supp_zip3 & vbcrlf txtBody = txtBody & "Country: " & supp_country3 & vbcrlf & vbcrlf End If If shipper4 Then txtBody = txtBody & "Company Name: " & supp_name4 & vbcrlf txtBody = txtBody & "Shipping Address: " & supp_addr4 & vbcrlf txtBody = txtBody & "City: " & supp_city4 & vbcrlf txtBody = txtBody & "State: " & supp_state4 & vbcrlf txtBody = txtBody & "Zip: " & supp_zip4 & vbcrlf txtBody = txtBody & "Country: " & supp_country4 & vbcrlf & vbcrlf End If If shipper5 Then txtBody = txtBody & "Company Name: " & supp_name5 & vbcrlf txtBody = txtBody & "Shipping Address: " & supp_addr5 & vbcrlf txtBody = txtBody & "City: " & supp_city5 & vbcrlf txtBody = txtBody & "State: " & supp_state5 & vbcrlf txtBody = txtBody & "Zip: " & supp_zip5 & vbcrlf txtBody = txtBody & "Country: " & supp_country5 & vbcrlf & vbcrlf End If If shipper6 Then txtBody = txtBody & "Company Name: " & supp_name6 & vbcrlf txtBody = txtBody & "Shipping Address: " & supp_addr6 & vbcrlf txtBody = txtBody & "City: " & supp_city6 & vbcrlf txtBody = txtBody & "State: " & supp_state6 & vbcrlf txtBody = txtBody & "Zip: " & supp_zip6 & vbcrlf txtBody = txtBody & "Country: " & supp_country6 & vbcrlf & vbcrlf End If If shipper7 Then txtBody = txtBody & "Company Name: " & supp_name7 & vbcrlf txtBody = txtBody & "Shipping Address: " & supp_addr7 & vbcrlf txtBody = txtBody & "City: " & supp_city7 & vbcrlf txtBody = txtBody & "State: " & supp_state7 & vbcrlf txtBody = txtBody & "Zip: " & supp_zip7 & vbcrlf txtBody = txtBody & "Country: " & supp_country7 & vbcrlf & vbcrlf End If If shipper8 Then txtBody = txtBody & "Company Name: " & supp_name8 & vbcrlf txtBody = txtBody & "Shipping Address: " & supp_addr8 & vbcrlf txtBody = txtBody & "City: " & supp_city8 & vbcrlf txtBody = txtBody & "State: " & supp_state8 & vbcrlf txtBody = txtBody & "Zip: " & supp_zip8 & vbcrlf txtBody = txtBody & "Country: " & supp_country8 & vbcrlf & vbcrlf End If If shipper9 Then txtBody = txtBody & "Company Name: " & supp_name9 & vbcrlf txtBody = txtBody & "Shipping Address: " & supp_addr9 & vbcrlf txtBody = txtBody & "City: " & supp_city9 & vbcrlf txtBody = txtBody & "State: " & supp_state9 & vbcrlf txtBody = txtBody & "Zip: " & supp_zip9 & vbcrlf txtBody = txtBody & "Country: " & supp_country9 & vbcrlf & vbcrlf End If If shipper10 Then txtBody = txtBody & "Company Name: " & supp_name10 & vbcrlf txtBody = txtBody & "Shipping Address: " & supp_addr10 & vbcrlf txtBody = txtBody & "City: " & supp_city10 & vbcrlf txtBody = txtBody & "State: " & supp_state10 & vbcrlf txtBody = txtBody & "Zip: " & supp_zip10 & vbcrlf txtBody = txtBody & "Country: " & supp_country10 & vbcrlf & vbcrlf End If If shipper11 Then txtBody = txtBody & "Company Name: " & supp_name11 & vbcrlf txtBody = txtBody & "Shipping Address: " & supp_addr11 & vbcrlf txtBody = txtBody & "City: " & supp_city11 & vbcrlf txtBody = txtBody & "State: " & supp_state11 & vbcrlf txtBody = txtBody & "Zip: " & supp_zip11 & vbcrlf txtBody = txtBody & "Country: " & supp_country11 & vbcrlf & vbcrlf End If If shipper12 Then txtBody = txtBody & "Company Name: " & supp_name12 & vbcrlf txtBody = txtBody & "Shipping Address: " & supp_addr12 & vbcrlf txtBody = txtBody & "City: " & supp_city12 & vbcrlf txtBody = txtBody & "State: " & supp_state12 & vbcrlf txtBody = txtBody & "Zip: " & supp_zip12 & vbcrlf txtBody = txtBody & "Country: " & supp_country12 & vbcrlf & vbcrlf End If txtBody = txtBody & "III. Contact Information: " & vbcrlf & vbcrlf txtBody = txtBody & "Contact Name 1: " & name1 & vbcrlf txtBody = txtBody & "Title 1: " & title1 & vbcrlf txtBody = txtBody & "Phone 1: " & phone1 & vbcrlf txtBody = txtBody & "Fax 1: " & fax1 & vbcrlf txtBody = txtBody & "email Address 1: " & email1 & vbcrlf If contact2 Then txtBody = txtBody & vbcrlf & vbcrlf txtBody = txtBody & "Contact Name 2: " & name2 & vbcrlf txtBody = txtBody & "Title 2: " & title2 & vbcrlf txtBody = txtBody & "Phone 2: " & phone2 & vbcrlf txtBody = txtBody & "Fax 2: " & fax2 & vbcrlf txtBody = txtBody & "email Address 2: " & email2 & vbcrlf End If If contact3 Then txtBody = txtBody & vbcrlf & vbcrlf txtBody = txtBody & "Contact Name 3: " & name3 & vbcrlf txtBody = txtBody & "Title 3: " & title3 & vbcrlf txtBody = txtBody & "Phone 3: " & phone3 & vbcrlf txtBody = txtBody & "Fax 3: " & fax3 & vbcrlf txtBody = txtBody & "email Address 3: " & email3 & vbcrlf End If If contact4 Then txtBody = txtBody & vbcrlf & vbcrlf txtBody = txtBody & "Contact Name 4: " & name4 & vbcrlf txtBody = txtBody & "Title 4: " & title4 & vbcrlf txtBody = txtBody & "Phone 4: " & phone4 & vbcrlf txtBody = txtBody & "Fax 4: " & fax4 & vbcrlf txtBody = txtBody & "email Address 4: " & email4 & vbcrlf End If If contact5 Then txtBody = txtBody & vbcrlf & vbcrlf txtBody = txtBody & "Contact Name 5: " & name5 & vbcrlf txtBody = txtBody & "Title 5: " & title5 & vbcrlf txtBody = txtBody & "Phone 5: " & phone5 & vbcrlf txtBody = txtBody & "Fax 5: " & fax5 & vbcrlf txtBody = txtBody & "email Address 5: " & email5 & vbcrlf End If If contact6 Then txtBody = txtBody & vbcrlf & vbcrlf txtBody = txtBody & "Contact Name 6: " & name6 & vbcrlf txtBody = txtBody & "Title 6: " & title6 & vbcrlf txtBody = txtBody & "Phone 6: " & phone6 & vbcrlf txtBody = txtBody & "Fax 6: " & fax6 & vbcrlf txtBody = txtBody & "email Address 6: " & email6 & vbcrlf End If If contact7 Then txtBody = txtBody & vbcrlf & vbcrlf txtBody = txtBody & "Contact Name 7: " & name7 & vbcrlf txtBody = txtBody & "Title 7: " & title7 & vbcrlf txtBody = txtBody & "Phone 7: " & phone7 & vbcrlf txtBody = txtBody & "Fax 7: " & fax7 & vbcrlf txtBody = txtBody & "email Address 7: " & email7 & vbcrlf End If If contact8 Then txtBody = txtBody & vbcrlf & vbcrlf txtBody = txtBody & "Contact Name 8: " & name8 & vbcrlf txtBody = txtBody & "Title 8: " & title8 & vbcrlf txtBody = txtBody & "Phone 8: " & phone8 & vbcrlf txtBody = txtBody & "Fax 8: " & fax8 & vbcrlf txtBody = txtBody & "email Address 8: " & email8 & vbcrlf End If If contact9 Then txtBody = txtBody & vbcrlf & vbcrlf txtBody = txtBody & "Contact Name 9: " & name9 & vbcrlf txtBody = txtBody & "Title 9: " & title9 & vbcrlf txtBody = txtBody & "Phone 9: " & phone9 & vbcrlf txtBody = txtBody & "Fax 9: " & fax9 & vbcrlf txtBody = txtBody & "email Address 9: " & email9 & vbcrlf End If If contact10 Then txtBody = txtBody & vbcrlf & vbcrlf txtBody = txtBody & "Contact Name 10: " & name10 & vbcrlf txtBody = txtBody & "Title 10: " & title10 & vbcrlf txtBody = txtBody & "Phone 10: " & phone10 & vbcrlf txtBody = txtBody & "Fax 10: " & fax10 & vbcrlf txtBody = txtBody & "email Address 10: " & email10 & vbcrlf End If If contact11 Then txtBody = txtBody & vbcrlf & vbcrlf txtBody = txtBody & "Contact Name 11: " & name11 & vbcrlf txtBody = txtBody & "Title 11: " & title11 & vbcrlf txtBody = txtBody & "Phone 11: " & phone11 & vbcrlf txtBody = txtBody & "Fax 11: " & fax11 & vbcrlf txtBody = txtBody & "email Address 11: " & email11 & vbcrlf End If If contact12 Then txtBody = txtBody & vbcrlf & vbcrlf txtBody = txtBody & "Contact Name 12: " & name12 & vbcrlf txtBody = txtBody & "Title 12: " & title12 & vbcrlf txtBody = txtBody & "Phone 12: " & phone12 & vbcrlf txtBody = txtBody & "Fax 12: " & fax12 & vbcrlf txtBody = txtBody & "email Address 12: " & email12 & vbcrlf End If txtBody = txtBody & vbcrlf & vbcrlf txtBody = txtBody & "IV. Shipping Hours: " & vbcrlf & vbcrlf txtBody = txtBody & "Sunday : " & "start : " & sunshipstart & " end : " & sunshipstop & vbcrlf txtBody = txtBody & "Monday : " & "start : " & monshipstart & " end : " & monshipstop & vbcrlf txtBody = txtBody & "Tuesday : " & "start : " & tuesshipstart & " end : " & tuesshipstop & vbcrlf txtBody = txtBody & "Wednesday : " & "start : " & wedshipstart & " end : " & wedshipstop & vbcrlf txtBody = txtBody & "Thursday : " & "start : " & thursshipstart & " end : " & thursshipstop & vbcrlf txtBody = txtBody & "Friday : " & "start : " & frishipstart & " end : " & frishipstop & vbcrlf txtBody = txtBody & "Saturday : " & "start : " & satshipstart & " end : " & satshipstop & vbcrlf txtBody = txtBody & "Shipping Appointment Required : " & ship_appt & vbcrlf & vbcrlf txtBody = txtBody & "V. Receiving Hours: " & vbcrlf & vbcrlf txtBody = txtBody & "Sunday : " & "start : " & sunrecstart & " end : " & sunrecstop & vbcrlf txtBody = txtBody & "Monday : " & "start : " & monrecstart & " end : " & monrecstop & vbcrlf txtBody = txtBody & "Tuesday : " & "start : " & tuesrecstart & " end : " & tuesrecstop & vbcrlf txtBody = txtBody & "Wednesday : " & "start : " & wedrecstart & " end : " & wedrecstop & vbcrlf txtBody = txtBody & "Thursday : " & "start : " & thursrecstart & " end : " & thursrecstop & vbcrlf txtBody = txtBody & "Friday : " & "start : " & frirecstart & " end : " & frirecstop & vbcrlf txtBody = txtBody & "Saturday : " & "start : " & satrecstart & " end : " & satrecstop & vbcrlf txtBody = txtBody & "Receiving Appointment Required : " & rec_appt & vbcrlf & vbcrlf txtBody = txtBody & "VI. Shipping Requirements: " & vbcrlf & vbcrlf txtBody = txtBody & ship_req & vbcrlf ccBody = ccBody & "Thank you for submitting your Trio Supplier Registration form. This e-mail contains all of the information you just submitted in your Concentrek Trio Registration form; please be sure to save this e-mail for your own records. Within 24-48 hours you will receive another e-mail containing your unique login name, password and instructions for your next steps. Please do not reply to this auto message. If you have an issue or question about the information you submitted in your form or the Trio system, please contact us by the means listed below." & vbcrlf ccBody = ccBody & vbcrlf & "Thank you" & vbcrlf & "Concentrek, Inc" ccBody = ccBody & vbcrlf & "Operations Department" & vbcrlf ccBody = ccBody & vbcrlf & "E-mail: Trio.support@concentrek.com" & vbcrlf ccBody = ccBody & vbcrlf & "P: 616-988-5900 ext. 1236" & vbcrlf Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From = email1 objMail.To = "trio.support@concentrek.com" objMail.Subject = cust_info objMail.Body = txtBody objMail.Send Set objMail=Nothing Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From = "trio.support@concentrek.com" objMail.To = email1 objMail.Subject = "Trio Registration" objMail.Body = ccBody & txtBody objMail.Send Set objMail=Nothing message = "Thank you for submitting your Trio Supplier Registration Form, a confirmation e-mail will be sent to you shortly. You have automatically been redirected back to the Trio Suppliers Information page." End IF %>
|
Trio Supplier Information
<%=message%> Sign-UpNew Supplier?If you are not already registered for our Trio system, click the link below and fill out the Trio Supplier Registration Form. After registering, you will receive two confirmation e-mails within 48 hours with your unique login name and password, instructions for the next steps, and important documents. Trio Supplier Registration Form Trio FAQsWhat is Trio? What are the system requirements? How do I access Trio on the Web? If I need help logging in to Trio or troubleshooting, where do I go? I keep getting the login screen every time I enter my user name and password. What is the problem? More InformationWant more information on Trio? Click the link below to read more about our Inbound Materials Management program. |
|||
|
|