Visual Basic

If Not Session("MyValue") Is Nothing Then<br />
     ToLabel.Text = Session("MyValue")<br />
End If

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
     Dim fromForm As System.Collections.Specialized.NameValueCollection<br />
     fromForm = Request.Form<br />
     ToLabel.Text = fromForm.Item("FromTextBox")<br />
End Sub

Dim arrReturn() As Object
Dim SP_NAME As String = "GetIDProc"
Dim RetID As String
Dim Parameters As SqlParameters
Parameters = New SqlParameters { _
                                    SqlAccessor.SqlParameterBuilder("@RetOrderID", _
                                                                    SqlDbType.VarChar, _
                                                                    10, _
                                                                    ParameterDirection.Output) _
                               }
Dim iRow As Integer = SqlAccessor.ExecuteNonQuery(connectionString, _
                                                  SqlAccessor.SqlCommandBuilder(New SqlCommand(SP_NAME), _
                                                                                parameters), _
                                                  CommandType.StoredProcedure, _
                                                  arrReturn)
RetID = IIf(arrReturn(0).Equals(System.DbNull.Value), 0, arrReturn(0)).ToString()

If iRow > 0 Then
    Dim myFormat As String
    Dim d As DateTime = New DateTime()
    orderNum.Text = d.Year.ToString() & "/" & RetID
Else
    orderNum.text = "Cannot Get Details"
End If