Page.Culture = "en-US" Dim StrConn2 As String = WebConfigurationManager.ConnectionStrings("conn").ConnectionString Dim conn2 As New SqlConnection(StrConn2) conn2.Open() Dim cmd As String cmd = "insert into order (id_drug , quantity_sale , discount , date_sale)" cmd &= " values ('" & id_drug1 & "'," cmd &= "'" & num.Text & "'," cmd &= "'" & discount.Text & "'," cmd &= "'" & Now.ToString & "')" Dim com As New SqlCommand(cmd, conn2) com.ExecuteNonQuery() conn2.Close()
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง