01. Dim intNumRows As Integer
02. Dim connection As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Database.mdf;Integrated Security=True;User Instance=True"
03. Dim sqlroom As String
04. Dim conn As New SqlConnection(connection)
05. conn.Open()
06. sqlroom = "SELECT COUNT(*) FROM RESV WHERE ROOM_ID = '" & DropDownList1.SelectedValue & "' AND Convert(DateTime, '" & Me.CalendarPopup1.SelectedDate & "', 103) BETWEEN DATE_FROM AND DATE_TO AND Convert(DateTime, '" & Me.CalendarPopup2.SelectedDate & "', 103) BETWEEN DATE_FROM AND DATE_TO "
07. Dim ccommand As New SqlCommand(sqlroom, conn)
08. intNumRows = ccommand.ExecuteScalar()
09. If intNumRows > 0 Then
10. Label1.Text = "NO"
11.
12. Else
13. sqlroom = "SELECT COUNT(*) FROM RESV WHERE ROOM_ID = '" & DropDownList1.SelectedValue & "' AND DATE_FROM BETWEEN Convert(DateTime, '" & CalendarPopup1.SelectedDate & "', 103) AND Convert(DateTime, '" & CalendarPopup2.SelectedDate & "', 103) AND DATE_TO BETWEEN Convert(DateTime, '" & CalendarPopup1.SelectedDate & "', 103) AND Convert(DateTime, '" & CalendarPopup2.SelectedDate & "', 103) "
14. Dim bcommand As New SqlCommand(sqlroom, conn)
15. Dim intNumRows2 As Integer
16. intNumRows2 = bcommand.ExecuteScalar()
17. If intNumRows2 > 0 Then
18. Label2.Text = "NO"
19. Else
20. Dim com As New SqlCommand(sqlroom, conn)
21. Dim dr As SqlDataReader = com.ExecuteReader
22. GridView1.DataSource = dr
23. GridView1.DataBind()
24. dr.Close()
25. conn.Close()
26. End If
27. End If
28.End Sub
