Visual Basic

Imports System
Imports System.Threading
 
    Thread.Sleep(10000)    ' Puts the current thread to sleep for 10 seconds.

            Try
                oConnection = GetDatabaseConnection()
                oCommand = New SqlCommand
 
                oCommand.Connection = oConnection
                oCommand.CommandText = "SecurityValidateLogin"
                oCommand.CommandType = CommandType.StoredProcedure
 
                Dim sqlParam As New SqlParameter("@Username", SqlDbType.NVarChar, 50)
                sqlParam.Value = sUserName
                oCommand.Parameters.Add(sqlParam)
 
                sqlParam = New SqlParameter("@Password", SqlDbType.NVarChar, 15)
                sqlParam.Value = sPassword
                oCommand.Parameters.Add(sqlParam)
 
                sqlParam = New SqlParameter("@SourceIP", SqlDbType.NVarChar, 32)
                sqlParam.Value = sSourceIP
                oCommand.Parameters.Add(sqlParam)
 
                oConnection.Open()
                oCommand.ExecuteNonQuery()
                oConnection.Close()
 
                ' code removed
 
            Catch ex As Exception
                LogErrorEvent("SecurityServices", "ValidateUserLogin", ex.Message, ex.StackTrace)
                Throw ex
            Finally
                ' Trash our open objects
                If Not oCommand Is Nothing Then
                    oCommand.Dispose()
                End If
                If Not oConnection Is Nothing Then
                    If Not oConnection.State = ConnectionState.Closed Then
                        oConnection.Close()
                    End If
                    oConnection.Dispose()
                End If
            End Try
 
            Return retValidateValue