marmotte
22.02.2002, 20:29
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
%>
<%
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
%>