Hier is wat voor me werkt:
Beschermde SubButton1_Click (ByVal afzender als Voorwerp, ByVal e als EventArgs) behandelt Button1.Click
Zitting („SalesmanID“) = TextBox1.Text.ToUpper
Als cbBids.Checked toen
TextBox2.Text = „sotype = 'b'“
Eind als
Als cbReturns.Checked toen
TextBox2.Text = TextBox2.Text & „of sotype = „R““
Eind als
Als cbPartial.Checked toen
TextBox2.Text = TextBox2.Text & „of sotype = „O““
Eind als
Als cbRegular.Checked toen
TextBox2.Text = TextBox2.Text & „of sotype = ''“
Eind als
Zitting („wat“) = TextBox2.Text
MsgBox (TextBox2.Text)
'Response.Redirect („SOS.aspx“)
Sub van het eind