Classic ASP Discussion - Trouble times... how do i finish this off

Print Page | Close Window

Trouble times... how do i finish this off

Printed From: Web Wiz Forums
Category: General Discussion
Forum Name: Classic ASP Discussion
Forum Description: Discussion on Active Server Pages (Classic ASP).
URL: https://forums.webwiz.net/forum_posts.asp?TID=3137
Printed Date: 29 March 2026 at 1:24pm
Software Version: Web Wiz Forums 12.08 - https://www.webwizforums.com

Topic: Trouble times... how do i finish this off

Posted By: vaio
Subject: Trouble times... how do i finish this off
Date Posted: 30 May 2003 at 4:03am

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"%>


<%
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>