Hi Experts
I've been using VBscript for a while and am OK'ish with it. I've been asked to put some of my scripts into an html environment for other people to use. I'm using Visual Basic Web Developer 2008 and just running tests at the moment but there are some instances where the transfer is not as smooth as I'd like :o)

EG my variables, reading from Active Directory, do not work and I have no idea why.
The snippet I'm having issues with is:
            result = (adspath)
            Label2.Text = (result)
            ' wscript.echo(samaccountname & " " & adspath)
The error message is "Conversion from type 'Field' to type 'String' is not valid."
I know the variables are not declared but Option Explicit is turned off and so I don't need to declare them.

Your help would be appreciated.

The full script is:

Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click

        ' Finds user details given the first name and surname
        ' and extracts to a log
Option Explicit Off
Option Infer On
        Dim shl, fso, Dir, user, user2

        forename = TextBox1.Text
        surname = TextBox2.Text

        oConnection = CreateObject("ADODB.Connection")
        oCommand = CreateObject("ADODB.Command")
        oConnection.Provider = "ADsDSOObject"
        oConnection.Open("ADs Provider")

        oCommand.ActiveConnection = oConnection
        'Set the "Page Size" to something smaller than 1000
        oCommand.Properties("Page Size") = 50
        'Specify the search criteria
        oCommand.CommandText = "<LDAP://dc=domain,dc=org,dc=uk>;(&(objectCategory=user)(sn=" & surname & "*)(givenname=" & forename & "*));ADsPath,givenname,samaccountname, sn,mail,telephonenumber,facsimileTelephoneNumber,showInAddressbook,streetAddress,memberOf;subtree"
        oRS = oCommand.Execute
        count = 0
        'Enumerate the results
        While Not oRS.EOF
            adspath = oRS("adspath")
            samaccountname = oRS("samaccountname")
            result = (adspath)
            '  Label2.Text = (user & " " & user2)
            Label2.Text = (result)
            ' wscript.echo(samaccountname & " " & adspath)
            oRS.MoveNext()
        End While
        oRS = Nothing
        oCommand = Nothing
        oConnection = Nothing
    End Sub
End Class