j'essaie d'extraire des données de LDAP vers SQL, quand le nombre d'enregistrement n'est pas grand <3000 tout va bien, mais dès que les records augmente je n'obtients pas de réponse du serveur
j'ai mis mon server.scriptTimeout=3000
même 150000, mais ça donne rien
je ne sais pas y'a koi exactement
voila le code source si qq'un peut bien m'aider
merci!
<%
Response.Buffer = true
secteur=Request("secteur")
%>
<form method="post" action="thispage.asp" name="proposition">
<select name="secteur" size="1">
<option VALUE="0" SELECTED>Chooose</option>
<option value="Administration">Administration</option>
<option value="Tourisme">Tourisme</option>
</select>
<input TYPE="SUBMIT" NAME="DataAction" VALUE="Get IT Now!">
</form>
<%
if len(Request("secteur"))>1 then
Server.ScriptTimeout = 1600
SQLStmt = "SELECT
cn,mail,sn,GivenName,UserPassword,userComment,age,l,c,postalcode,postaladdre
ss,description,AccountStatus FROM 'LDAP Coonecting string' WHERE
description='"§eur&"' order by cn"
Set Conn = CreateObject("ADODB.Connection")
Conn.Provider = "ADSDSOObject"
Conn.Open "ADs Provider", "connection string", "pass"
Set rs = Conn.Execute(SQLStmt)
dim gsmNr
on error resume next
y=0
I=0
Set Conn2 = CreateObject("ADODB.Connection")
Conn2.Open Application("ConnectionString"),
Application("RuntimeUserName"), Application("RuntimePassword")
Do While Not rs.EOF Or rs.BOF
AccountStatus = rs.Fields(0)
description = rs.Fields(1)
postaladdress = rs.Fields(2)
postalcode = rs.Fields(3)
c = rs.Fields(4)
l = rs.Fields(5)
age = rs.Fields(6)
userComment = rs.Fields(7)
UserPassword = rs.Fields(8)
givenName = rs.Fields(9)
sn = rs.Fields(10)
mail = rs.Fields(11)
GSMnr = rs.Fields(12)
If IsArray(mail) Then
For I = LBound(mail) To UBound(mail)
If mail(I) <> "" Then
sql_req = "insert into menaraAbn "
sql_req = sql_req & "(password, gsm, nom, prenom, mail,
annee_naissance, ville, pays, "
sql_req = sql_req & "postal_adresse, secteur, Account_Status,
sex, from_service) "
sql_req = sql_req & "VALUES
('"&UserPassword&"','"&GSMnr(I)&"','"&sn(I)&"','"&givenName(I)&"','"&mail(I)
&"', "
sql_req = sql_req & "'"&age&"','"&l(I)&"','"&c&"', "
sql_req = sql_req &
"'"&postaladdress(I)&"','"&description(I)&"','"&AccountStatus&"','"&userComm
ent(I)&"','sms')"
'response.write ""&sql_req&"<br>"
'Response.Write UserPassword&";"& GSMnr(I)&";"& sn(I)&";"&
givenName(I)&";"&mail(I)&";"&userComment(I)&";"&age&";"&l(I)&";"&c&";"&posta
lcode(I)&";"&postaladdress(I)&";"&description(I)&";"&AccountStatus&";"&"<BR>
"
End If
Conn2.execute(sql_req)
Next
Else
End If
rs.MoveNext
y=y+1
Loop
end if
%>
