<%
Dim Conn, rs, rs1

sub conectar()

	Set Conn = Server.CreateObject ("ADODB.Connection")
	
	DSNtest="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & replace(server.MapPath("/"),"wwwroot","database",1,-1,1) & "\congreso2007.mdb"
	Conn.Open DSNtest
	
	'Abrmios el RecordSet (accedemos a los datos de la BD).
	Set rs = Server.CreateObject ("ADODB.RecordSet")
	Set rs1 = Server.CreateObject ("ADODB.RecordSet")
	
end sub

%>