Advertisement
Guest User

Untitled

a guest
Jul 24th, 2017
47
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.48 KB | None | 0 0
  1. <asp:CheckBoxList ID="cblDocType" runat="server">
  2. <asp:ListItem Text="EIR" Value="EIR"></asp:ListItem>
  3. <asp:ListItem Text="EIR/EIS" Value="EIR/EIS"></asp:ListItem>
  4. <asp:ListItem Text="MND" Value="MND"></asp:ListItem>
  5. <asp:ListItem Text="Neg. Dec." Value="Neg. Dec."></asp:ListItem>
  6. <asp:ListItem Text="NOD" Value="NOD"></asp:ListItem>
  7. <asp:ListItem Text="NOE" Value="NOE"></asp:ListItem>
  8. </asp:CheckBoxList>
  9.  
  10. Protected Sub btn_SubmitSearch_Click(sender As Object, e As EventArgs)
  11.  
  12. Dim AndOr As String
  13.  
  14. AndOr = ddlSearchType.SelectedValue.ToString()
  15.  
  16. SQLData_CEQA_Doc_gv.SelectCommand = "SELECT * FROM [Document_Properties] WHERE APN LIKE '%" & tbCEQASearch_APN.Text & "%' " & _
  17. AndOr & _
  18. " Title LIKE '%" & tbCEQASearch_Title.Text & "%' " & _
  19. AndOr & _
  20. " Approval_Date >= '" & tbDateFrom.Text & "' AND Approval_Date <= '" & tbDateTo.Text & "'"
  21.  
  22. gv_CEQA_Search_Results.DataSource = Nothing
  23. gv_CEQA_Search_Results.DataBind()
  24. gv_CEQA_Search_Results.SelectedIndex = -1
  25.  
  26. If gv_CEQA_Search_Results.Rows.Count = 1 Then
  27. lblSystemInfo.Text = "1 matching document found"
  28. Else
  29. lblSystemInfo.Text = gv_CEQA_Search_Results.Rows.Count & " matching documents found"
  30. End If
  31.  
  32. End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement