2 i en database

jeg har lavet en database med 2 en drinks og en nyheder
men den vil ikke vise drinks ,, men nyheder virker ;;;
nyheder:
<%
Response.Buffer = True


Set Con = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("nyheder.mdb")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath


    Sql = "SELECT * FROM nyheder ORDER BY Dato DESC"
    Set Record =  Con.Execute(Sql)

%>

drinks:
<%
Response.Buffer = True


Set Con = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("nyheder.mdb")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath


    Sql = "SELECT * FROM drinks ORDER BY Dato DESC"
    Set Record =  Con.Execute(Sq1)

%>

kan evt lægge det sammen i en zip det hele så i kan se det