Trouble times... how do i finish this off

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   I  am stuck... baically i am trying to list all the user account records from MS active direcotry and create an update form to update the user accounts .. so far the a lot of techie sites havenot been able to help... :o(

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include virtual="adovbs.inc"-->

<%
SQLStmt = "SELECT cn, title, telephoneNumber " & _
"FROM 'LDAP://penninedc1/DC=xpenninecare,DC=nhs,DC=uk' " 

Set Conn = CreateObject("ADODB.Connection")
Conn.Provider = "ADSDSOObject"
Conn.Open "ADs Provider"

set rs = conn.Execute(SQLStmt)

%>

<html>
<head>
<title> active direcotry and asp - user listings </title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta http-equiv="Content-Language" content="en-gb">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>New Page 1</title>

</head>

<body topmargin="0" leftmargin="0">
<a href="updateForm.asp?surname=<%=(rs.Fields.Item("surname").Value)%>">click 
here</a> 

<table border="0" cellpadding="0" cellspacing="0" width="625" height="431">
<tr>
<td width="72" height="121">
</td>
<td width="180" height="121"> </td>
<td width="373" height="121">
</tr>