<%
'#####################################################
'Databas
Dim Databas,RS_setup,RS_bilder,RS_album,SQL
Set Databas = Server.CreateObject("ADODB.Connection")
Databas.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("fotoalbum.mdb")

'#####################################################
'Skriv ut album
function Print_album_Preview(aid)
	Print_album_Preview = "<table width=600 cellpadding='0' cellspan='0'><tr>"
	RS_bilder = Databas.execute("select * from bilder where aid = "& aid)
	bilder = RS_bilder.GetRows()
	for i = 1 to 4
		randomize
		tal = int(rnd * ubound(bilder,2))
		Print_album_Preview = Print_album_Preview & "<td>" & tal & "</td>"
	Next
	Print_album_Preview = Print_album_Preview & "</tr>"
end function
%>

Måste du inte skapa ditt recordset först?

Set RS_bilder = Server.CreateObject("ADODB.Recordset")

Du har glömt Set:

Set RS_bilder = Databas.Execute("select * from bilder where aid = " & aid)