<%  dim connstrre
    dim connre
	dim dbre
	dbre="rose_ege.mdb"
 Set connre = Server.CreateObject("ADODB.Connection")
connstrre="DBQ="+server.mappath(dbre)+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
 connre.open connstrre
%>