Partial Class Products_POS_Demo
    Inherits System.Web.UI.Page

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

        SqlDataSource1.InsertParameters.Item("CreateTime").DefaultValue = Now
        SqlDataSource1.InsertParameters.Item("RequestIP").DefaultValue = Request.UserHostAddress
        Dim Created = SqlDataSource1.InsertParameters.Item("CreateTime").DefaultValue
        Dim smtp As New System.Net.Mail.SmtpClient("localhost")
        Dim message As New System.Net.Mail.MailMessage()

        message.To.Add("alan@moresys.com.hk")
        message.To.Add("alex@moresys.com.hk")
        message.To.Add("wendy@moresys.com.hk")
        message.Subject = "New Inquiry received from our web(Trial.aspx) on " & Created
        message.From = New System.Net.Mail.MailAddress("web@moresys.com.hk")
        message.Body = "姓名 : " & NameTB.Text & vbCr
        message.Body += "電郵 : " & MailTB.Text & vbCr
        message.Body += "電話 : " & TelTB.Text & vbCr & vbCr
        message.Body += "留言 : " & vbCr & MsgTB.Text

        smtp.Send(message)
        SqlDataSource1.Insert()

        NameTB.Text = ""
        MailTB.Text = ""
        TelTB.Text = ""
        MsgTB.Text = ""

    End Sub
End Class