crazy

[marmotte]

slushai, pomogi razobrat'sia s konnectom k baze, on propisal sleduushim kodom:

<%
Public DBP2000
Public rsactualites
' Ouvre une connection avec Base projet2000
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

%>

Pri etom v kode ne figuriruet imia bazu dannyh, mozhet ono byt' propisano v global.asa, tam est' takaya strochka.