Är här vad fungerar för mig:
Skyddad underButton1_Click (den ByVal avsändaren som anmärker, ByVal e som EventArgs) behandlar Button1.Click
Period (”SalesmanID”) = TextBox1.Text.ToUpper
Om cbBids.Checked därefter
TextBox2.Text = ”sotype = ”B””,
Avsluta om
Om cbReturns.Checked därefter
TextBox2.Text = TextBox2.Text & ”eller sotype = ”R””,
Avsluta om
Om cbPartial.Checked därefter
TextBox2.Text = TextBox2.Text & ”eller sotype = ”nolla””,
Avsluta om
Om cbRegular.Checked därefter
TextBox2.Text = TextBox2.Text & ”eller sotype = ''”,
Avsluta om
Period (”vad”) = TextBox2.Text
MsgBox (TextBox2.Text)
'Response.Redirect (”SOS.aspx”)
Avsluta suben