<% msg = Request.QueryString ("msg") mail_to = Request.Form ("mail") mail_from = Request.Form ("mailfrom") mail_subject = Request.Form ("mailsubject") mail_body = Request.Form ("mailbody") %> <% mailfrom =mail_from mailto =mail_to mailsubject = mail_subject mailbody = mail_body mailtype = "html" %> <%if mailfrom = "" and mailto = "" and mailsubject = "" and mailbody = "" then%> <% mysql = "select * from contact,conlist where contact.ConList_ID = conlist.ConList_ID and Con_status = 1 order by Con_ID" rs.Open mysql,con,1,3,1 if rs.RecordCount > 0 then do while not rs.EOF if rs.Fields ("ConList_ID") = 1 then Con_Contact = rs.Fields ("Con_Contact") %> <% else %> <% end if rs.MoveNext loop end if rs.Close %>
<%=Label(44)%>
<%=rs.Fields ("ConList_Type")%> : <%=rs.Fields ("Con_Contact")%>
<%=rs.Fields ("ConList_Type")%> : <%=rs.Fields ("Con_Contact")%>
 
<%if msg <> "" then%>
<%=msg%>
<%else%> <%=Label(43)%> <%end if%>
<%=Label(45)%> :
<%=Label(46)%> :
<%=Label(47)%> :


การสั่งสินค้าทางอีเมล์
กรุณาแจ้ง
• รหัสสินค้า หรือชื่อสินค้า
• จำนวนสินค้า
• ชื่อ - ที่อยู่
• เบอร์โทรศัพท์
เมื่อเราได้รับข้อมูลการสั่งซื้อแล้ว จะทำรายการสั่งซื้อให้ และจะแจ้งข้อมูลการสั่งซื้อของท่านให้ทราบทางอีเมล์
 
<%else%> <% msg = Label(91) Response.Redirect "contactus.asp?msg="&msg %> <%end if%>