> Hello, would anyone tell me what's wrong with the following or if
> there's a better way/practice in trying to get the current windows
> authenticated user and seeing if it exists in a sql2k user table?:
>
>
> Dim conn, rsAdminCheck
> Set conn= CreateObject("ADODB.Connection")
> Set rsAdminCheck = CreateObject("ADODB.Recordset")
> conn.Open db
> Set rsAdminCheck= conn.Execute("exec uspAdminCheck '" &
> Request.ServerVariables("AUTH_USER") & "'")
> If rsAdminCheck(0) = 1 Then '1=Yes 0=No
> response.write "Yes, this user is an admin"
> Else
> response.write "No, this user is not an admin"
> End If
>
>
> It gives me the following error:
>
> Microsoft VBScript runtime (0x800A000D)
> Type mismatch: '[string: "DomainName\TestUserName"]'
>
>
> Thanks in advance.
>
>
>

"zz12" <IDontLikeSpam@Nowhere.com> wrote in message
news:ObGLPmJAIHA.536@TK2MSFTNGP06.phx.gbl...
> Hello, would anyone tell me what's wrong with the following or if there's
a
> better way/practice in trying to get the current windows authenticated
user
> and seeing if it exists in a sql2k user table?:
>
>
> Dim conn, rsAdminCheck
> Set conn= CreateObject("ADODB.Connection")
> Set rsAdminCheck = CreateObject("ADODB.Recordset")
> conn.Open db
> Set rsAdminCheck= conn.Execute("exec uspAdminCheck '" &
> Request.ServerVariables("AUTH_USER") & "'")
> If rsAdminCheck(0) = 1 Then '1=Yes 0=No
> response.write "Yes, this user is an admin"
> Else
> response.write "No, this user is not an admin"
> End If
>
>
> It gives me the following error:
>
> Microsoft VBScript runtime (0x800A000D)
> Type mismatch: '[string: "DomainName\TestUserName"]'

"McKirahan" <News@McKirahan.com> wrote in message
news:kcudnYW9LZfsKmbbnZ2dnUVZ_oytnZ2d@comcast.com...
> "zz12" <IDontLikeSpam@Nowhere.com> wrote in message
> news:ObGLPmJAIHA.536@TK2MSFTNGP06.phx.gbl...
>> Hello, would anyone tell me what's wrong with the following or if there's
> a
>> better way/practice in trying to get the current windows authenticated
> user
>> and seeing if it exists in a sql2k user table?:
>>
>>
>> Dim conn, rsAdminCheck
>> Set conn= CreateObject("ADODB.Connection")
>> Set rsAdminCheck = CreateObject("ADODB.Recordset")
>> conn.Open db
>> Set rsAdminCheck= conn.Execute("exec uspAdminCheck '" &
>> Request.ServerVariables("AUTH_USER") & "'")
>> If rsAdminCheck(0) = 1 Then '1=Yes 0=No
>> response.write "Yes, this user is an admin"
>> Else
>> response.write "No, this user is not an admin"
>> End If
>>
>>
>> It gives me the following error:
>>
>> Microsoft VBScript runtime (0x800A000D)
>> Type mismatch: '[string: "DomainName\TestUserName"]'
>
> Why do you "Set rsAdminCheck=" twice?
>
>