Function SetSessionData(ByVal lngID As Long)
        Dim conMyData As SqlConnection
        Dim cmdSelect As SqlCommand
        Dim cmdInsert As SqlCommand
        Dim dtrLoginData As SqlDataReader

        'try and make a connection   
        Try
            conMyData = New SqlConnection(ConfigurationSettings.AppSettings("strConn"))
            cmdSelect = New SqlCommand("select_user_session_data", conMyData)

            With cmdSelect
                .CommandType = CommandType.StoredProcedure
                .Parameters.Add("@LoginID", SqlDbType.BigInt).Value = lngID
                conMyData.Open()
                dtrLoginData = .ExecuteReader()
            End With

            'you MUST call Read initially once before using any of the data
            If dtrLoginData.Read() Then
                'assign session data

                'do an insert into the userlogs table
                cmdInsert = New SqlCommand("insert_user_login", conMyData)

                With cmdInsert
                    .CommandType = CommandType.StoredProcedure
                    .Parameters.Add("@Login", SqlDbType.VarChar).Value = dtrLoginData("Login")
                    .Parameters.Add("@ClientID", SqlDbType.Int).Value = dtrLoginData("ClientID")
                    .ExecuteNonQuery()
                End With

                Session("LoginID") = dtrLoginData("LoginID")
                Session("Login") = dtrLoginData("Login")
                Session("ClientID") = dtrLoginData("ClientID")
                Session("Client") = dtrLoginData("Client")
            Else
                'do nothing
            End If

            'catch any exceptions that might be thrown
        Catch e As Exception
            Response.Write("An Error Occurred: " & e.ToString())
            'clean up and close resources	
        Finally
            cmdSelect = Nothing
            cmdInsert = Nothing
            conMyData.Close()
            conMyData = Nothing
        End Try
    End Function

quote:

---

Originally posted by tduggan

If no one can help you on the asp.net part, run SQL Profiler to determine if you are getting an exception.

Tara

---

quote:

---

But that seems redundant to create two seperate connection objects?

---

    Protected Sub SetSessionData(ByVal lngID As Long)

      ' Create Instance of Connection and Command Object
      Dim myConnection As SqlConnection = New SqlConnection(ConfigurationSettings.AppSettings("strConn"))
      Dim myCommand As SqlCommand = New SqlCommand("SPWithOutputParameters", myConnection)

      ' Mark the Command as a SPROC
      myCommand.CommandType = CommandType.StoredProcedure

      ' Add Input Parameter to SPROC
      Dim parameterLoginID As SqlParameter = New SqlParameter("@LoginID", SqlDbType.BigInt, 0)
      parameterLoginID.Value = lngID 
      myCommand.Parameters.Add(parameterLoginID)

      ' Define Output Parameters
      Dim parameterLogin As SqlParameter = New SqlParameter("@Login", SqlDbType.VarChar, 50)
      parameterLogin .Direction = ParameterDirection.Output
      myCommand.Parameters.Add(parameterLogin)

      Dim parameterClientID As SqlParameter = New SqlParameter("@ClientID", SqlDbType.Int, 8)
      parameterClientID .Direction = ParameterDirection.Output
      myCommand.Parameters.Add(parameterClientID)

      Dim parameterClient As SqlParameter = New SqlParameter("@Client", SqlDbType.VarChar, 50)
      parameterClient .Direction = ParameterDirection.Output
      myCommand.Parameters.Add(parameterClient)

      Try

        myConnection.Open()
        myCommand.ExecuteNonQuery()
        myConnection.Close()

        ' Populate session using Output Params from sproc
        Session("LoginID")  = lngID
        Session("Login")    = CStr(parameterLogin).Value
        Session("ClientID") = CStr(parameterClientID).Value
        Session("Client")   = CStr(parameterClient).Value


      Catch ex As Exception

        Dim TheError

        TheError= Err.Description()
	Response.Write("An Error Occurred: " & TheError )

      End Try

End Sub