<script runat="server">
Dim conn As New SqlConnection
Dim da As New SqlDataAdapter
Dim comm As New SqlCommand
Dim dr As SqlDataReader
Dim ds As New DataSet
Dim sqlSearch As String
Dim Str3 As String
Dim IsFind As Boolean = False
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
conn = New SqlConnection("server=(local);initial catalog=Piyamas;integrated security=SSPI;persist security info=False; workstation id=local;packet size=4096")
conn.Open()
End Sub
Sub btnOK_Click(ByVal obj As Object, ByVal e As EventArgs)
Try
Str3 = "SELECT c.Room_id, Day_name, Service_start, Service_stop, Subject_name, Teacher_Fname" _
& " FROM Day_room d, Class c, Subject s, Teacher t " _
& " WHERE c.Day_id=d.Day_id and c.Subject_id=s.Subject_id and c.Teacher_id=t.Teacher_id " _
& " = '" & Trim(ddlRoom.SelectedItem.Text) & Trim(ddlDay.SelectedItem.Text) & "' "
Load balance : Server 00
