quote:

---

Originally posted by knockyo

I already try using the connection string below:

Data Source=Server1;Initial Catalog=DB1;Integrated Security=SSPI;

it seem like not work at my local PC.

Few Question:

(1) Is that I need to configure the SQL Server?
(2) If i did not put any pass & username, how can the program recognize the connection?

Sorry, im not familiar using this kinds of connection, hope can have a clear guide.

---

 Try
            If UserID <> "" And Pwd <> "" Then
                If objpmOT.Login(UserID, Pwd) Then
                    usr = objpmOT.UserById(UserID)
                    If usr Is Nothing Then
                        ' === Invalid login information ===
                        lblError.Text = "* Invalid user name!"
                        lblError.Visible = True
                        SetFocus(txtUsername)

                    Else
                        ' *** Get access string ***
                        accstr = objpmOT.GetAccessStringsByUserGroup("")

                        If usr.Groups.Count > 0 Then
                            usr.CheckAccesses(accstr)
                            Dim iCount As Integer
                            For iCount = 1 To accstr.Count
                                Session(accstr.Value(iCount)) = CStr(accstr.Key(iCount)).ToUpper
                            Next
                        End If
                        Session("Username") = UserID
                        Response.Redirect("Frame/Index.aspx", False)

                    End If
                Else
                    ' === Invalid login information ===
                    lblError.Text = "* Access denied!"
                    lblError.Visible = True
                    SetFocus(txtUsername)

                End If
            Else
                ' === Incomplete login information ===
                lblError.Text = "* Invalid login info!"
                lblError.Visible = True
                SetFocus(txtUsername)

            End If
        Catch ex As Exception
            lblError.Text = "* " & ex.Message
            lblError.Visible = True
        Finally
            If Not accstr Is Nothing Then accstr = Nothing
            If Not usr Is Nothing Then
                usr.Dispose()
                usr = Nothing
            End If
            If Not objpmOT Is Nothing Then
                objpmOT.Dispose()
                objpmOT = Nothing
            End If
        End Try