Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
Session("SalesmanID") = TextBox1.Text.ToUpper
TextBox2.Text = ""
If cbBids.Checked Then
TextBox2.Text = "sotype = 'B'"
End If
If cbReturns.Checked Then
If TextBox2.Text = "" Then
TextBox2.Text = "sotype = 'R'"
Else
TextBox2.Text = TextBox2.Text & " Or sotype = 'R'"
End If
End If
If cbPartial.Checked Then
If TextBox2.Text = "" Then
TextBox2.Text = "sotype = 'O'"
Else
TextBox2.Text = TextBox2.Text & " Or sotype = 'O'"
End If
End If
If cbRegular.Checked Then
If TextBox2.Text = "" Then
TextBox2.Text = "sotype = ''"
Else
TextBox2.Text = TextBox2.Text & " Or sotype = ''"
End If
End If
Session("what") = TextBox2.Text
MsgBox(TextBox2.Text)
Response.Redirect("SOS.aspx")
End Sub
|