1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
|
Set con = Server.CreateObject("ADODB.Connection")
con.CursorLocation = Application("db_CursorLocation")
con.ConnectionTimeout = Application("db_ConnectionTimeout")
con.CommandTimeout = Application("db_CommandTimeout")
con.Open Application("db_BodegaConnectionString")
sSelect = "Select " &_
"R.ID,R.DateCreation,R.Phone,R.Nom,R.Fax,R.FirstName,R.Handset,R.Function as FonctionId,F.Nom as Function, R.Email," &_
"R.Company,R.Website,R.Adress1,R.Adress2,R.City,R.Menu,R.Zip,R.Comment, R.Departement as DepartementId," &_
" D.Nom as Departement,R.Country as PaysId,P.Nom as Pay,R.Convive,R.Date, R.Civility as CivilitéId," &_
" C.Nom as Civilite,R.Site,R.Langue " &_
"From Reservation R " &_
" LEFT JOIN Pays P on (R.Country = P.Id) " &_
" LEFT JOIN Fonction F on (R.Function = F.Id) " &_
" LEFT JOIN Departement D on ((R.Departement = D.Id) and (R.Country = D.Pay)) " &_
" LEFT JOIN Civilite C on (R.Civility = C.Id) "
set Requete = con.execute("Select * from Reservation")
if Requete.EOF then
response.write("la requete renvoi EOF")
end if |
Partager