01.Page.Culture = "en-US"
02. Dim StrConn2 As String = WebConfigurationManager.ConnectionStrings("conn").ConnectionString
03. Dim conn2 As New SqlConnection(StrConn2)
04. conn2.Open()
05. Dim cmd As String
06. cmd = "insert into order (id_drug , quantity_sale , discount , date_sale)"
07. cmd &= " values ('" & id_drug1 & "',"
08. cmd &= "'" & num.Text & "',"
09. cmd &= "'" & discount.Text & "',"
10. cmd &= "'" & Now.ToString & "')"
11. Dim com As New SqlCommand(cmd, conn2)
12. com.ExecuteNonQuery()
13. conn2.Close()
