Connction?

Hej,

Er der nogen der kan sige mig hvilken connection er det her? Så vidt jeg kan se er det ikke en conncetion til en database.

Kan nogen så hjælpe mig med at få den lavet om til en forbindelse/conncetion til en database?

<%Dim intDays,intStart,rsSite,rsTopNumber,objConn
set objConn =server.createobject("ADODB.connection")
objConn.open "DSN=Photo"
set rsTopNumber=objConn.execute("select count(*) from tblPhoto")
intCount = rsTopNumber(0)
rsTopNumber.close

set rsTopNumber=Nothing
intDays = DatePart("y",now)

intStart = intdays Mod intCount
intStart = intStart + 1

Dim sqlSELsite,ObjRSSel

sqlSELsite = "SELECT fldID,fldThought,fldPhoto FROM tblPhoto WHERE fldID = '" & intStart & "'"
    Set ObjRSSel = Server.CreateObject("ADODB.Recordset")
    ObjRSSel.Open sqlSELsite,objConn
   
        strID = ObjRSSel(0)
        strThought = ObjRSSel(1)
        strPhoto = ObjRSSel(2)

%>

PÅ FORHÅND MANGE TAK!!!