<% dim strsql,cheminbdd,data
function bddconnect(chemin,strsql)
	dim objconnexion,strconnexion,rs
	strconnexion="driver={SQL Server};server=213.11.172.50;uid=solaires_admin;pwd=c3pc3p;database=solaires"
	set objconnexion=createobject("ADODB.connection")
	objconnexion.open strconnexion
	set rs=objconnexion.execute(strsql)
	if instr(ucase(strsql),"SELECT")=1 then
		if rs.eof and rs.bof then
				bddconnect=0
		else
				bddconnect=rs.getrows
		end if
	end if
	set rs=nothing
	set objconnexion=nothing
end function
%>