I am trying to modify code that searches Active Directory by User's First and/or Last Name. I would like to be able to search by Email address and then display the UserName. I am having trouble with the syntax and wondered if anyone can help. Thanks so much!
******************
<%
'********************************************************
' function: find a user in Exchange
' author: Christian Kiefer
' email: christian.kiefer@bsp.de
'********************************************************
'*** you only have to change this variable:
'*** the rest will work automaticly
strServerName = "xxx.xxx.xxx.xx"
'******************************************
bolSearch = false
strLastname = Request("lastname")
strName = Request("name")
strEmail =Request("mail")
'if strName<>"" or strLastname<>"" then
if strEmail<>"" then
bolSearch = true
end if
%>
<HTML>
<head>
<title>User ID Search</title>
<style>
<!--
BODY {font-family:Arial,Helvetica; font-size:10pt;}
TD {font-family:Arial,Helvetica; font-size:9pt;}
//-->
</style>
</head>
<BODY>
<CENTER><H3>User ID Search</H3><CENTER>
<%
set oConn = CreateObject("ADODB.Connection")
set oCommand = CreateObject("ADODB.Command")
oConn.Provider = "ADsDSOObject"
oConn.Open "Ads Provider"
set oCommand.ActiveConnection = oConn
if bolSearch then
'***put query string together
strQuery = "<LDAP://" & strServername & ">;(&(objectClass=*)(sn=" & strLastname & "*)(givenname=" & strName & "*));sn, department, givenname,cn,telephoneNumber,mail;subtree"
oCommand.CommandText = strQuery
set oRS = oCommand.Execute
'***display table only if hits or search criteria are given
if bolSearch and not oRS.eof then
%>
<div align="center">
<table cellpadding="0" border="0" cellspacing="0">
<tr bgcolor="#C0C0C0">
<td height="20"><b>Name </b></td>
<td height="20"><b>Department </b></td>
<td height="20"><b>Telefon </b></td>
<td height="20"><b>Email </b></td>
</tr>
<%While not ors.eof%>
<tr>
<td><%=oRS.Fields("sn")%>, <%=oRS.Fields("givenname")%> </td>
<td><%=oRS.Fields("department")%> </td>
<td><%=oRS.Fields("telephoneNumber")%> </td>
<td><a href="mailto:<%=oRS.Fields("mail")%>"><%=oRS.Fields("mail")%> </A></td>
</tr>
<%
oRS.MoveNext
wend %>
<tr bgcolor="#C0C0C0">
<td colspan="4" height="20"> </td>
</tr>
</table>
</div>
<%
else
Response.Write "No entry found"
end if
end if
%>
<br>
<br>
<form method="post" action="Search_AD.asp">
<table border="0" cellpadding="0" cellspacing="1" style="border-collapse: collapse" bordercolor="#111111" >
<tr>
<td colspan="5" bgcolor="#C0C0C0" height="20"><b> Search</b></td>
</tr>
<tr>
<td><b>Email </b></td>
<td valign="top"><input type="text" name="email" value="<%=strEmail%>" size="20"></td>
<!-- <td><span lang="de"><b> </b></span></td>
<td><b>N</b><span lang="de"><b>ame</b></span></td>
<td valign="top">
<p align="center">
<input type="text" name="name" value="<%=strName%>" size="20"></td> -->
</tr>
<tr>
<td> </td>
<td><input type="submit" value="Search" name="start search"></td>
<td> </td>
<td> </td>
<td> </td>
</tr>
</table>
</form>
</body>
</html>
******************
<%
'********************************************************
' function: find a user in Exchange
' author: Christian Kiefer
' email: christian.kiefer@bsp.de
'********************************************************
'*** you only have to change this variable:
'*** the rest will work automaticly
strServerName = "xxx.xxx.xxx.xx"
'******************************************
bolSearch = false
strLastname = Request("lastname")
strName = Request("name")
strEmail =Request("mail")
'if strName<>"" or strLastname<>"" then
if strEmail<>"" then
bolSearch = true
end if
%>
<HTML>
<head>
<title>User ID Search</title>
<style>
<!--
BODY {font-family:Arial,Helvetica; font-size:10pt;}
TD {font-family:Arial,Helvetica; font-size:9pt;}
//-->
</style>
</head>
<BODY>
<CENTER><H3>User ID Search</H3><CENTER>
<%
set oConn = CreateObject("ADODB.Connection")
set oCommand = CreateObject("ADODB.Command")
oConn.Provider = "ADsDSOObject"
oConn.Open "Ads Provider"
set oCommand.ActiveConnection = oConn
if bolSearch then
'***put query string together
strQuery = "<LDAP://" & strServername & ">;(&(objectClass=*)(sn=" & strLastname & "*)(givenname=" & strName & "*));sn, department, givenname,cn,telephoneNumber,mail;subtree"
oCommand.CommandText = strQuery
set oRS = oCommand.Execute
'***display table only if hits or search criteria are given
if bolSearch and not oRS.eof then
%>
<div align="center">
<table cellpadding="0" border="0" cellspacing="0">
<tr bgcolor="#C0C0C0">
<td height="20"><b>Name </b></td>
<td height="20"><b>Department </b></td>
<td height="20"><b>Telefon </b></td>
<td height="20"><b>Email </b></td>
</tr>
<%While not ors.eof%>
<tr>
<td><%=oRS.Fields("sn")%>, <%=oRS.Fields("givenname")%> </td>
<td><%=oRS.Fields("department")%> </td>
<td><%=oRS.Fields("telephoneNumber")%> </td>
<td><a href="mailto:<%=oRS.Fields("mail")%>"><%=oRS.Fields("mail")%> </A></td>
</tr>
<%
oRS.MoveNext
wend %>
<tr bgcolor="#C0C0C0">
<td colspan="4" height="20"> </td>
</tr>
</table>
</div>
<%
else
Response.Write "No entry found"
end if
end if
%>
<br>
<br>
<form method="post" action="Search_AD.asp">
<table border="0" cellpadding="0" cellspacing="1" style="border-collapse: collapse" bordercolor="#111111" >
<tr>
<td colspan="5" bgcolor="#C0C0C0" height="20"><b> Search</b></td>
</tr>
<tr>
<td><b>Email </b></td>
<td valign="top"><input type="text" name="email" value="<%=strEmail%>" size="20"></td>
<!-- <td><span lang="de"><b> </b></span></td>
<td><b>N</b><span lang="de"><b>ame</b></span></td>
<td valign="top">
<p align="center">
<input type="text" name="name" value="<%=strName%>" size="20"></td> -->
</tr>
<tr>
<td> </td>
<td><input type="submit" value="Search" name="start search"></td>
<td> </td>
<td> </td>
<td> </td>
</tr>
</table>
</form>
</body>
</html>