[marmotte]

Pliz, ob'jasnite dlia tupyh, chto delaet etot kod?

<%
Public DBP2000
Public rsactualites
Set DBP2000 = server.CreateObject("ADODB.Connection")
DBP2000.CommandTimeout=Application("Projet_CommandTimeout")
DBP2000.ConnectionTimeout=Application("Projet_ConnectionTimeout")
DBP2000.Open "Projet","",""
Set rsactualites =server.CreateObject("ADODB.recordset")

DIM inssql
inssql = "SELECT * FROM Nouveautes where"
'Si qqc de saisie de champ

inssql = inssql & " (Nouveautes.[Type])='Actu'"
inssql = inssql &" and (((Nouveautes.Date)> Date()-40))"
inssql = inssql &" order by (Nouveautes.[Date]) DESC"

rsactualites.Open inssql,dbp2000,1

%>