<%@ LANGUAGE="VBSCRIPT" %><% vcomp_name = Request.Form("comp_name") vbusinessType = Request.Form("businessType") vcont_per = Request.Form("cont_per") vphone_1 = Request.Form("phone_1") vphone_2 = Request.Form("phone_2") vphone_3 = Request.Form("phone_3") vfax_1 = Request.Form("fax_1") vfax_2 = Request.Form("fax_2") vfax_3 = Request.Form("fax_3") vemail = Request.Form("email") vDadd1 = Request.Form("Dadd1") vDadd2 = Request.Form("Dadd2") vDadd3 = Request.Form("Dadd3") vDzip_code = Request.Form("Dzip_code") vDcountry = Request.Form("Dcountry") vInvoice_as = Request.Form("Invoice_as") IF vInvoice_as = "on" THEN vIadd1 = Request.Form("Dadd1") vIadd2 = Request.Form("Dadd2") vIadd3 = Request.Form("Dadd3") vIzip_code = Request.Form("Dzip_code") vIcountry = Request.Form("Dcountry") ELSE vIadd1 = Request.Form("Iadd1") vIadd2 = Request.Form("Iadd2") vIadd3 = Request.Form("Iadd3") vIzip_code = Request.Form("Izip_code") vIcountry = Request.Form("Icountry") END IF vPostal_as = Request.Form("Postal_as") IF vPostal_as = "on" THEN vPadd1 = Request.Form("Dadd1") vPadd2 = Request.Form("Dadd2") vPadd3 = Request.Form("Dadd3") vPzip_code = Request.Form("Dzip_code") vPcountry = Request.Form("Dcountry") ELSE vPadd1 = Request.Form("Padd1") vPadd2 = Request.Form("Padd2") vPadd3 = Request.Form("Padd3") vPzip_code = Request.Form("Pzip_code") vPcountry = Request.Form("Pcountry") END IF vquestion = Request.Form("question") vBuyer_as = Request.Form("Buyer_as") vSeller_as = Request.Form("Seller_as") DIM v_register_as IF vBuyer_as = "on" AND vSeller_as = "on" THEN v_register_as = "Both" ELSEIF vBuyer_as = "on" AND vSeller_as <> "on" THEN v_register_as = "Buyer" ELSEIF vBuyer_as <> "on" AND vSeller_as = "on" THEN v_register_as = "Seller" ELSE v_register_as = "None" END IF Set ExchangeNetSQL = Server.CreateObject("ADODB.Connection") ExchangeNetSQL.Open "thaiindustry", "tinhosting", "tinhosting" sql1 = "INSERT INTO ExUserMember " & _ " (CompanyName, ContactPerson, " & _ " Phone1, Phone2, Phone3, Fax1, Fax2, Fax3, Email," & _ " DeriveryAdd1, DeriveryAdd2, DeriveryAdd3, Deriveryzip, Deriverycountry, " &_ " InvoiceAdd1, InvoiceAdd2, InvoiceAdd3, Invoicezip, Invoicecountry, " &_ " PostalAdd1, PostalAdd2, PostalAdd3, Postalzip, Postalcountry, " &_ " Question, Register_as)" & _ " VALUES ('"&_ vcomp_name &"','"& vcont_per &"','"&_ vphone_1 &"','"& vphone_2 &"','"& vphone_3 &"','"&_ vfax_1 &"','"& vfax_2 &"','"& vfax_3 &"','"& vemail &"','"&_ vDadd1 &"','"& vDadd2 &"','"& vDadd3 &"','"& vDzip_code &"','"& vDcountry &"','"&_ vIadd1 &"','"& vIadd2 &"','"& vIadd3 &"','"& vIzip_code &"','"& vIcountry &"','"&_ vPadd1 &"','"& vPadd2 &"','"& vPadd3 &"','"& vPzip_code &"','"& vPcountry &"','"&_ vquestion &"','"& v_register_as & "')" Set RS = ExchangeNetSQL.Execute(sql1) %> Registration Receive Form

Company Name	<%=vcomp_name%>
Contact Person	<%=vcont_per%>
Phone No.	<%=vphone_1%><%=vphone_2%><%=vphone_3%>
Fax No.	<%=vfax_1%><%=vfax_2%><%=vfax_3%>
Email	<%=vemail%>
Delivery Address 1	<%=vDadd1%>
Delivery Address 2	<%=vDadd2%>
Delivery Address 3	<%=vDadd3%>
Zipcode	<%=vDzip_code%>
Country	<%=vDcountry%>
Invoice As	<%=vInvoice_as%>
Invoice Address 1	<%=vIadd1%>
Invoice Address 2	<%=vIadd2%>
Invoice Address 3	<%=vIadd3%>
Zipcode	<%=vIzip_code%>
Country	<%=vIcountry%>
Postal As	<%=vPostal_as%>
Postal Address 1	<%=vPadd1%>
Postal Address 2	<%=vPadd2%>
Postal Address 3	<%=vPadd3%>
Zipcode	<%=vPzip_code%>
Country	<%=vPcountry%>
Question As	<%=vquestion%>
Buyer As	<%=vBuyer_as%>
Seller As	<%=vSeller_as%>