ASP.NET

Dim str As String = ""<br />
If dbconn.State ConnectionState.Open Then<br />
dbconn.Open()<br />
End If<br />
For Each item As ListItem In lstselectedemployees.Items <br />
if str = "" then<br />
str = item.Text<br />
else<br />
STR = STR & "," & item.Text<br />
end if<br />
Next<br />
str2="insert into a (soft)values('" & STR & "')"<br />
Dim comm As New SqlCommand(str2, dbconn)<br />
Try<br />
comm.ExecuteNonQuery()<br />
Label1.ForeColor = Drawing.Color.Green<br />
Label1.Text = "Success"<br />
Catch ex As Exception<br />
Label1.Text = ex.Message<br />
End Try 

<br />
Public delegate Sub CaptchaEventHandler()<br />
Public partial Class CaptchaControl<br />
	 Inherits System.Web.UI.UserControlPublic event CaptchaEventHandler Success<br />
Public delegate Sub CaptchaEventHandler()<br />
Public partial class CaptchaControl : System.Web.UI.UserControlPublic event CaptchaEventHandler Success    <br />
<br />
End Class<br />
{<br />
	        add <br />
{<br />
	 success += value <br />
}<br />
        remove <br />
{<br />
	 success += Nothing <br />
}<br />
end class

<br />
For i = 0 To ordAsc.Count - 1<br />
SelectQuery = "SELECT customers.customer_id,customers.customer_type FROM customers INNER JOIN cust_order ON customers.customer_id=cust_order.customer_id WHERE cust_order.order_id=" & ordAsc(i) & ""<br />
command = New OleDbCommand(SelectQuery, Conn)<br />
total = command.ExecuteReader()<br />
While total.Read()<br />
cstAsc.Add(total.GetValue(0))<br />
typAsc.Add(total.GetValue(1))<br />
End While<br />
Next<br />