01.Protected Sub btnsave_Click(sender As Object, e As EventArgs) Handles btnsave.Click
02. Dim year As Integer = Convert.ToInt32(DropDownList4.SelectedValue)
03. Dim day As String = Convert.ToString(year) + "-" + DropDownList3.SelectedValue + "-" + DropDownList2.SelectedValue
04. If IsDate(day) = False Then
05. Dim script3 As String = "alert('กรุณาระบุวันเกิดอีกครั้ง!');"
06. ScriptManager.RegisterStartupScript(Me, Me.GetType(), "jsCall", script3, True)
07. Exit Sub
08. End If
09. Dim intCount As Integer
10. Dim Conn As New SqlConnection(strCon)
11. Conn.Open()
12. Dim sql As String = "SELECT COUNT(*) FROM REGISTER WHERE USERNAME = '%" & txtusername.Text & "%'"
13. Dim com As New SqlCommand
14. With com
15. .Connection = Conn
16. .CommandText = sql
17. .CommandType = CommandType.Text
18. End With
19. intCount = com.ExecuteScalar()
20. If intCount > 0 Then
21. Dim script3 As String = "alert('ชื่อผู้ใช้มีอยู่แล้ว!');"
22. ScriptManager.RegisterStartupScript(Me, Me.GetType(), "jsCall", script3, True)
23. Exit Sub
24. Else
25. Dim sqlb As String = "INSERT INTO [REGISTER]([USERNAME],[PASS],[NAME],[SURNAME],[DATE_OF_BIRTH],[GENDER],[STATUS_ID]) VALUES ( '" + txtusername.Text + "', '" + txtpass.Text + "','" + txtname.Text + "','" + txtsurname.Text + "','" & day & "','" + DropDownList1.SelectedValue + "','2')"
26.
27.
28. Dim cmd1 = New SqlCommand
29. With cmd1
30. .Connection = Conn
31. .CommandType = CommandType.Text
32. .CommandText = sqlb
33. End With
34. cmd1.ExecuteNonQuery()
35. Conn.Close()
36. Response.Redirect("index.aspx")
37.
38. End If
39. End Sub
