<% dim string,conn,rs,r,i sub getdata(source,sql,var) if source="" then source="tdm" end if set conn=server.createobject("ADODB.connection") conn.open("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath("/fpdb/" & source & ".mdb") & ";" & "Jet OLEDB:Database Password=rieux;") set rs=server.createobject("ADODB.recordset") rs.open "SELECT " & sql,conn,3,3 if not rs.eof then string=var & "=rs.getrows(rs.recordcount,0)" execute(string) end if rs.close conn.close set rs=nothing set conn=nothing end sub %>

For customised quote/rate, please contact us at :

taxiduminervois@aol.com

jacques@taxi-du-minervois.com


Mobile: +33 670 374 885 (Jacques)

Mobile: +33 674 592 634 (Annick




Telephone : +33 (0) 670 374 885