Help searching Active Directory for UserID

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

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@xxxxxx
'********************************************************


'*** 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>
.