|
|
|||||
crazy
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.
__________________
________ merci |
Часовой пояс GMT +4, время: 21:56. |
|
« Предыдущая тема | Следующая тема » |
|
|