Click here to Skip to main content
15,921,382 members
Home / Discussions / Database
   

Database

 
GeneralRe: Help error "Login failed for user 'PRESARIO1692\ASPNET'. " Pin
marnicola10-Jan-03 9:08
marnicola10-Jan-03 9:08 
GeneralRe: Help error "Login failed for user 'PRESARIO1692\ASPNET'. " Pin
marnicola10-Jan-03 9:17
marnicola10-Jan-03 9:17 
GeneralRe: Help error "Login failed for user 'PRESARIO1692\ASPNET'. " Pin
marnicola10-Jan-03 9:15
marnicola10-Jan-03 9:15 
GeneralRe: Help error "Login failed for user 'PRESARIO1692\ASPNET'. " Pin
marnicola10-Jan-03 10:53
marnicola10-Jan-03 10:53 
GeneralRe: Help error "Login failed for user 'PRESARIO1692\ASPNET'. " Pin
leppie10-Jan-03 6:28
leppie10-Jan-03 6:28 
GeneralRe: Help error "Login failed for user 'PRESARIO1692\ASPNET'. " Pin
marnicola10-Jan-03 6:42
marnicola10-Jan-03 6:42 
GeneralRe: Help error "Login failed for user 'PRESARIO1692\ASPNET'. " Pin
leppie10-Jan-03 7:05
leppie10-Jan-03 7:05 
GeneralArray Question Pin
Robby7-Jan-03 3:24
Robby7-Jan-03 3:24 
I have little experience with arrays and would like some help. I am querying an LDAP directory via a ActiveX component called AdvLDAP from Aspfusion.net. The code is below. What I want to do is be able to perform IF THEN statements on the variables in the array and insert some into a table. You can see from the LDAP.Attributes line what attributes I am returning. For instance, I want to return the attribute and value of "User-Suspend" so that I can perform something like "IF User-Suspend = "Y" THEN"...any help is appreciated.
===========================================

dim LDAP

set LDAP = Server.CreateObject("AdvLDAP.LDAP")

LDAP.ServerName = "10.1.58.25"
LDAp.Port = "389"
LDAP.UserName = "tssacid=dsldap"
LDAP.Password = "*******"
LDAP.DN "c","us"
LDAP.DN "o","upb"
LDAP.DN "host","CAICCI"
LDAP.DN "tssadmingrp","Acids"
LDAP.DN "tssacid",""&userID&""
LDAP.Attributes = "Name;user-type;user-suspend"
LDAP.Filter = "objectclass=*"
LDAP.Scope = "Base"

Set Result = LDAP.Query()


if (LDAP.IsError = 1) then
Response.Write LDAP.ErrorReason & "<br>"
else
%>
<TABLE ALIGN=center BORDER=1 CELLSPACING=1 CELLPADDING=1>
<TR bgcolor="black">
<%

Dim cols,rows,Arr()
cols = 0
rows = 0
for each Member in Result%>
<TD bgcolor="black" width="100%">
<font color="white"><%=Member.Attributes%>
</font></b></TD>
<%cols = cols+1

if (cols = 1) then
set Links = Member.ValuesList()
for each item in Links
rows = rows + 1
next
set Links = Nothing
end if
next
%>
</TR>
<%

ReDim Arr(cols, rows)
c1 = 0

for each Member in Result
r1 = 0
set Lnks = Member.ValuesList()
for each Item in Lnks
val = ""
itm = Item.Value
for i = 0 to ubound (itm)
val = val & itm(i)
if (i <> ubound (itm))then
val = val & ", "
end if
next
Arr(c1,r1) = val
r1 = r1 + 1
next
set Lnks = Nothing
c1 = c1+1
next

for rw = 0 to rows-1%>
<TR>
<%for cl = 0 to cols-1%>
<TD><%
if (Arr(cl,rw) <> "")then
Response.Write Arr(cl,rw)
else
Response.Write "-"
end if%></TD>

<%next%>
</TR>
<%next%>
</TABLE>
<%
End If
%>


GeneralGetting 'Invalid RESX input' Pin
garfild6-Jan-03 22:21
garfild6-Jan-03 22:21 
GeneralRe: Getting 'Invalid RESX input' Pin
leppie7-Jan-03 6:14
leppie7-Jan-03 6:14 
GeneralADO at Startup Pin
fordge6-Jan-03 21:17
fordge6-Jan-03 21:17 
GeneralRe: ADO at Startup Pin
perlmunger7-Jan-03 5:50
perlmunger7-Jan-03 5:50 
GeneralRe: ADO at Startup Pin
fordge7-Jan-03 12:42
fordge7-Jan-03 12:42 
GeneralRe: ADO at Startup Pin
fordge22-Jan-03 15:22
fordge22-Jan-03 15:22 
GeneralDistinct Row Problem Pin
perlmunger6-Jan-03 13:28
perlmunger6-Jan-03 13:28 
GeneralRe: Distinct Row Problem Pin
l a u r e n6-Jan-03 13:35
l a u r e n6-Jan-03 13:35 
GeneralRe: Distinct Row Problem Pin
perlmunger6-Jan-03 13:46
perlmunger6-Jan-03 13:46 
GeneralRe: Distinct Row Problem Pin
l a u r e n6-Jan-03 14:40
l a u r e n6-Jan-03 14:40 
GeneralRe: Distinct Row Problem Pin
perlmunger6-Jan-03 18:34
perlmunger6-Jan-03 18:34 
GeneralRe: Distinct Row Problem Pin
Jeremy Oldham7-Jan-03 1:20
Jeremy Oldham7-Jan-03 1:20 
GeneralRe: Distinct Row Problem Pin
perlmunger7-Jan-03 5:38
perlmunger7-Jan-03 5:38 
GeneralRe: Distinct Row Problem Pin
Jeremy Oldham7-Jan-03 6:11
Jeremy Oldham7-Jan-03 6:11 
GeneralRe: Distinct Row Problem Pin
perlmunger7-Jan-03 6:23
perlmunger7-Jan-03 6:23 
GeneralRe: Distinct Row Problem Pin
Jeremy Oldham7-Jan-03 6:55
Jeremy Oldham7-Jan-03 6:55 
GeneralInserting a row and retreiving the Identity value Pin
moredip6-Jan-03 12:47
moredip6-Jan-03 12:47 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.