i have pull bits of code from everywhere and built this below.
all works perfect but i would like to have a login page where i put the username and pass and the redirect to another page passing a session number wher i will be able to filter by session.
can you please help.
thank you so much in advance.
Expand|Select|Wrap|Line Numbers
- <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
- -----------------------------filter user---------------------------
- <%
- fsCompletted = Request.QueryString("f")
- If fsCompletted = 1 Then
- ResultHTML = ProcessForm
- else
- ResultHTML = "<br>"
- End If
- Function ProcessForm
- on error resume next
- oUsername=Request.Form("username")
- oPassword=Request.Form("password")
- strUserName = Right(oUsername, Len(oUsername) - InStrRev(oUsername, "\"))
- if InStr(strUserName, "@")>0 then
- strUserName = Left(strUserName, InStr(strUserName, "@")-1)
- end if
- Set objDomain = GetObject("GC://rootDSE")
- objADsPath = objDomain.Get("defaultNamingContext")
- Set objDomain = Nothing
- Set con = Server.CreateObject("ADODB.Connection")
- con.provider ="ADsDSOObject"
- con.Properties("User ID") = oUsername
- con.Properties("Password") = oPassword
- con.Properties("Encrypt Password") = False
- con.open "Active Directory Provider"
- Set Com = CreateObject("ADODB.Command")
- Set Com.ActiveConnection = con
- Com.CommandText ="select name,telephonenumber,mail FROM 'GC://"+objADsPath+"' where sAMAccountname='"+strUsername+"'"
- Set rs = Com.Execute
- VarInfo="<p>"+rs("name")+"<br>"+rs("telephonenumber")+"<br >"+rs("mail")+"</p>"
- if err.number=0 then
- HTML = "<p>"+rs("name")+"<br>"+rs("telephonenumber")+"<br >"+rs("mail")+"</p>"
- else
- HTML = "<p>Not Authenticated</p>"
- end if
- Session("mail") = Rs("mail")
- rs.Close
- con.Close
- Set rs = Nothing
- Set con = Nothing
- ProcessForm=HTML
- 'ADUSER = rs("mail")
- Session("userid") = VarInfo
- End Function
- PostURL = Request.ServerVariables("SCRIPT_NAME") & "?f=1" %>
- <HTML>
- <HEAD>
- </HEAD>
- <BODY>
- <%=ResultHTML%>
- <%if request.querystring("f")="" then %>
- <form method="post" Action="<%=PostURL%>">
- <p>Username : <input type="text" Name="username" value="" Size="25">(yourDomain/username)</p>
- <p>Password : <input type="password" Name="password" Size="25"></p>
- <input Name=SubmitButton Value="Authenticate User" Type=submit>
- </form>
- <%end if%>
- --<%Response.Write Session("mail")%>
- </BODY>
- </HTML>