Passing value from one script on one page to another script on another page.

Discussion in 'ASP General' started by Robert Cohen, Jul 15, 2003.

  1. Robert Cohen

    Robert Cohen Guest

    Hi All,
    I have what is an easy question for you all, but I have not idea (this
    is in vbscript). I have this script below that works great. It figures out
    the user logged in and gives the AD information about the user.
    On another webpage, I have a staff directory which lists all the users.
    What I would like to do is create a link on the staff directory that will
    open up this information page with the user specified (instead of the logged
    in user) What I would like to know is how should the link be set up to pass
    the value (the value of the oUser.sAMAccountName that is being clicked) and
    to put it into the script below. I know how to set up a hyperlink but need
    to know how it should read (is it like
    www.bbhtx.org/information.asp?oUser.sAMAccountname="rcohen" or something
    like that)? And how would I declare the value in the new page? Please
    advise.

    <%
    d = Request.ServerVariables("REMOTE_USER")
    p = Instr(d, "\")
    logonUser = Right(d, Len(d) - p)

    On Error Resume Next
    Dim oContainer

    Dim FileSystem

    Set
    oContainer=GetObject("LDAP://ou=Staff,DC=baltimorebehavioralhealth,DC=org")

    EnumerateUsers oContainer

    Set oContainer = Nothing

    Sub EnumerateUsers(oCont)
    Dim oUser
    For Each oUser In oCont
    Select Case LCase(oUser.Class)
    Case "user"

    If oUser.sAMAccountName= logonUser Then

    Response.Write "<h2>" & oUser.FullName & "'s Basic Information" &
    "</h2><TABLE BORDER=0> <TR><TH></TH><TH></TH></TR>"
    Response.Write "<tr><td><b>First Name:</b></td><td></td><td>" &
    oUser.givenName & ""
    Response.Write "<tr><td><b>Last Name:</b></td><td></td><td>" & oUser.sn &
    "</td></tr>"
    Response.Write "<tr><td><b>Extension:</b></td><td></td><td>" &
    oUser.TelephoneNumber & "</td></tr>"
    Response.Write "<tr><td><b>Title:</b></td><td></td><td>" & oUser.Title &
    "</td></tr>"
    Response.Write "<tr><td><b>Department:</b></td><td></td><td>" &
    oUser.Department & "</td></tr>"
    Response.Write "<tr><td><b>Office:</b></td><td></td><td>" &
    oUser.physicalDeliveryOfficeName & "</td></tr>"
    Response.Write "<tr><td><b>Mobile Phone:</b></td><td></td><td>" &
    oUser.Mobile & "</td></tr>"

    strManager = oUser.Manager
    If strManager <> "" Then
    Set objManager = GetObject("LDAP://" & oUser.Manager)
    strCN = objManager.displayname
    strNTName = objManager.sAMAccountName
    End If

    Response.Write "<tr><td><b>Manager: </b></td><td></td><td>" & strCN &
    "</td></tr>"

    Response.Write "<tr><td><b>Directly Reports to " & oUser.givenName &
    ":</b></td><td></td><td></td></tr>"

    strDirectReports = _
    oUser.GetEx("directReports")

    For Each strValue in strDirectReports
    Set strDirect = GetObject("LDAP://" & strValue)
    strCN = strDirect.displayname

    Response.Write "<tr><td></td><td></td><td>" & strCN & "</td></tr>"
    Next


    LogonUser = oUser.sAMAccountName & ".jpg"
    %></table><!--mstheme--><font face="Trebuchet MS, Arial, Helvetica">
    <p><img border="0" src="Pictures/Staff/<% =LogonUser %>" width="150"
    height="200"></p>

    <%
    Response.Write "<h3>Additional Information For Administrative Purposes
    Only</h3>"
    %> <!--mstheme--></font><TABLE BORDER=0>
    <TR><TH><!--mstheme--><font face="Trebuchet MS, Arial, Helvetica"></TH>
    <TH><!--mstheme--><font face="Trebuchet MS, Arial, Helvetica"></TH>
    </TR>
    <%
    Response.Write "<tr><td><b>profilePath:</td><td></b>" & oUser.ProfilePath &
    "</td></tr>"
    Response.Write "<tr><td><b>scriptPath:</td><td></b>" & oUser.ScriptPath &
    "</td></tr>"
    Response.Write "<tr><td><b>homeDirectory:</td><td></b>" &
    oUser.HomeDirectory & "</td></tr>"
    Response.Write "<tr><td><b>homeDrive:</td><td></b>" & oUser.HomeDrive &
    "</td></tr>"
    Response.Write "<tr><td><b>Account Created:</td><td></b>" &
    oUser.whenCreated & "</td></tr>"



    End If

    Case "organizationalunit" , "container"

    EnumerateUsers oUser
    End Select
    Next
    End Sub

    %>

    --
    Robert Cohen, Jul 15, 2003
    #1
    1. Advertising

  2. Robert Cohen

    Ray at Guest

    If you only have one domain and all your users are in the same OU, you'd
    just have to pass the username, like:

    site.com/showuser.asp?user=username

    But, if your users are stored in all different container or you have
    different domains, you'd have to have to pass that info, to:


    site.com/showuser.asp?dc=domain2&dc=com&ou=Accounting&username=jsmith

    With that, you could do:

    <%
    Dim sOU, sCN, sDC, aOU, aCN, aDC
    Dim sUsername
    sOU = Request.Querystring("ou") : aOU = Split(sOU, ", ")
    sCN = Request.Querystring("cn") : aCN = Split(sCN, ", ") '''no container in
    this example
    sDC = Request.Querystring("dc") : aDC = Split(sDC, ", ")
    sUsername = Request.Querystring("username")

    sLDAP = "LDAP://"
    For iCounter = 0 To UBound(aOU)
    sLDAP = sLDAP & "ou=" & aOU(iCounter) & ","
    Next

    For iCounter = 0 To UBound(aCN)
    sLDAP = sLDAP & "cn=" & aCN(iCounter) & ","
    Next


    For iCounter = 0 To UBound(aDC)
    sLDAP = sLDAP & "dc=" & aDC(iCounter) & ","
    Next

    sLdap = Left(sLDAP, Len(sLDAP) - 1)



    Then, do:

    Set oContainer = GetObject(sLDAP)
    '''code, code, code
    If oUser.sAMAccountName= sUsername Then...


    '''I'm sure there's a much more graceful way to build the ldap string out of
    a querystring than what I demonstrated...

    Ray at home


    "Robert Cohen" <> wrote in message
    news:%...
    > Hi All,
    > I have what is an easy question for you all, but I have not idea (this
    > is in vbscript). I have this script below that works great. It figures

    out
    > the user logged in and gives the AD information about the user.
    > On another webpage, I have a staff directory which lists all the

    users.
    > What I would like to do is create a link on the staff directory that will
    > open up this information page with the user specified (instead of the

    logged
    > in user) What I would like to know is how should the link be set up to

    pass
    > the value (the value of the oUser.sAMAccountName that is being clicked)

    and
    > to put it into the script below. I know how to set up a hyperlink but

    need
    > to know how it should read (is it like
    > www.bbhtx.org/information.asp?oUser.sAMAccountname="rcohen" or something
    > like that)? And how would I declare the value in the new page? Please
    > advise.
    >
    > <%
    > d = Request.ServerVariables("REMOTE_USER")
    > p = Instr(d, "\")
    > logonUser = Right(d, Len(d) - p)
    >
    > On Error Resume Next
    > Dim oContainer
    >
    > Dim FileSystem
    >
    > Set
    >

    oContainer=GetObject("LDAP://ou=Staff,DC=baltimorebehavioralhealth,DC=org")
    >
    > EnumerateUsers oContainer
    >
    > Set oContainer = Nothing
    >
    > Sub EnumerateUsers(oCont)
    > Dim oUser
    > For Each oUser In oCont
    > Select Case LCase(oUser.Class)
    > Case "user"
    >
    > If oUser.sAMAccountName= logonUser Then
    Ray at, Jul 15, 2003
    #2
    1. Advertising

  3. Robert Cohen

    Robert Cohen Guest

    Okay, I have my first page with the output of for example:

    http://www.bbhtx.org/Information2.asp?logonUser=dallen

    or

    http://www.bbhtx.org/Information2.asp?logonUser=rcohen

    The question that I am having a hard time is using that value in the new
    page. For example if I do

    Passed Value= <% =logonuser %>

    my output is:

    Passed Value=

    I would have fiqured it would be Passed Value=dallen or Passed Value= rcohen
    with the respective code.

    What am I doing wrong?

    --
    Sorry, I am no longer including my e-mail address as I am getting to much
    spam. I really have no desire to enlarge "it" by three inches, that is even
    if I get e-mailed 10 times a day from different e-mail addresses so I can't
    block it.
    Besides I finally came to believe what others have said, if you have a
    question, you should ask the group as others might benefit from it. Anyone
    on the group who I converse with off topic or on the side, can easily find
    my e-mail address.


    "Ray at <%=sLocation%>" <7yasdf.com> wrote in
    message news:#cM#...
    > If you only have one domain and all your users are in the same OU, you'd
    > just have to pass the username, like:
    >
    > site.com/showuser.asp?user=username
    >
    > But, if your users are stored in all different container or you have
    > different domains, you'd have to have to pass that info, to:
    >
    >
    > site.com/showuser.asp?dc=domain2&dc=com&ou=Accounting&username=jsmith
    >
    > With that, you could do:
    >
    > <%
    > Dim sOU, sCN, sDC, aOU, aCN, aDC
    > Dim sUsername
    > sOU = Request.Querystring("ou") : aOU = Split(sOU, ", ")
    > sCN = Request.Querystring("cn") : aCN = Split(sCN, ", ") '''no container

    in
    > this example
    > sDC = Request.Querystring("dc") : aDC = Split(sDC, ", ")
    > sUsername = Request.Querystring("username")
    >
    > sLDAP = "LDAP://"
    > For iCounter = 0 To UBound(aOU)
    > sLDAP = sLDAP & "ou=" & aOU(iCounter) & ","
    > Next
    >
    > For iCounter = 0 To UBound(aCN)
    > sLDAP = sLDAP & "cn=" & aCN(iCounter) & ","
    > Next
    >
    >
    > For iCounter = 0 To UBound(aDC)
    > sLDAP = sLDAP & "dc=" & aDC(iCounter) & ","
    > Next
    >
    > sLdap = Left(sLDAP, Len(sLDAP) - 1)
    >
    >
    >
    > Then, do:
    >
    > Set oContainer = GetObject(sLDAP)
    > '''code, code, code
    > If oUser.sAMAccountName= sUsername Then...
    >
    >
    > '''I'm sure there's a much more graceful way to build the ldap string out

    of
    > a querystring than what I demonstrated...
    >
    > Ray at home
    >
    >
    > "Robert Cohen" <> wrote in message
    > news:%...
    > > Hi All,
    > > I have what is an easy question for you all, but I have not idea

    (this
    > > is in vbscript). I have this script below that works great. It figures

    > out
    > > the user logged in and gives the AD information about the user.
    > > On another webpage, I have a staff directory which lists all the

    > users.
    > > What I would like to do is create a link on the staff directory that

    will
    > > open up this information page with the user specified (instead of the

    > logged
    > > in user) What I would like to know is how should the link be set up to

    > pass
    > > the value (the value of the oUser.sAMAccountName that is being clicked)

    > and
    > > to put it into the script below. I know how to set up a hyperlink but

    > need
    > > to know how it should read (is it like
    > > www.bbhtx.org/information.asp?oUser.sAMAccountname="rcohen" or something
    > > like that)? And how would I declare the value in the new page? Please
    > > advise.
    > >
    > > <%
    > > d = Request.ServerVariables("REMOTE_USER")
    > > p = Instr(d, "\")
    > > logonUser = Right(d, Len(d) - p)
    > >
    > > On Error Resume Next
    > > Dim oContainer
    > >
    > > Dim FileSystem
    > >
    > > Set
    > >

    >

    oContainer=GetObject("LDAP://ou=Staff,DC=baltimorebehavioralhealth,DC=org")
    > >
    > > EnumerateUsers oContainer
    > >
    > > Set oContainer = Nothing
    > >
    > > Sub EnumerateUsers(oCont)
    > > Dim oUser
    > > For Each oUser In oCont
    > > Select Case LCase(oUser.Class)
    > > Case "user"
    > >
    > > If oUser.sAMAccountName= logonUser Then

    >
    >
    Robert Cohen, Jul 15, 2003
    #3
  4. Your need...

    LogonUser = Request.QueryString("logonUser")

    That will set the value of LogonUser equal to the URL String Variable
    logonUser

    -Andrew

    * * * Sent via DevBuilder http://www.devbuilder.org * * *
    Developer Resources for High End Developers.
    Andrew Durstewitz, Jul 15, 2003
    #4
    1. Advertising

Want to reply to this thread or ask your own question?

It takes just 2 minutes to sign up (and it's free!). Just click the sign up button to choose a username and then you can ask your own questions on the forum.
Similar Threads
  1. Mike
    Replies:
    4
    Views:
    634
    Saravana [MVP]
    Jul 14, 2004
  2. =?Utf-8?B?am9uZWZlcg==?=

    101 Question - Passing a value from one page to another

    =?Utf-8?B?am9uZWZlcg==?=, Dec 22, 2005, in forum: ASP .Net
    Replies:
    2
    Views:
    432
    uttara
    Dec 22, 2005
  3. Replies:
    1
    Views:
    477
    John C. Bollinger
    Jan 11, 2005
  4. Kifah Abbad
    Replies:
    1
    Views:
    345
    Kurt Watzka
    Jan 29, 2004
  5. monika
    Replies:
    1
    Views:
    153
    Ray at
    Sep 18, 2003
Loading...

Share This Page