% dim maanedNavn(12) maanedNavn(1)="januar" maanedNavn(2)="februar" maanedNavn(3)="marts" maanedNavn(4)="april" maanedNavn(5)="maj" maanedNavn(6)="juni" maanedNavn(7)="juli" maanedNavn(8)="august" maanedNavn(9)="september" maanedNavn(10)="oktober" maanedNavn(11)="november" maanedNavn(12)="december" ' DSNLess forbindelse til databasen Set myConn = Server.CreateObject("ADODB.Connection") myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../database/igokoloo.mdb") ' Opbygning af SQL streng strSQL = "SELECT top 1 * FROM nyheder ORDER BY dato DESC" Set rs = myConn.Execute(strSQL) If Not (rs.BOF Or rs.EOF) Then strDato="d. " & Day(rs("dato")) & ". " & maanedNavn(Month(rs("dato"))) & " " & Year(rs("dato")) strOverskrift=rs("appoverskrift") strNyhed=rs("apptekst") else strDato="" strOverskrift="" strNyhed="" end if rs.Close set rs = nothing myConn.Close set myConn = nothing %>
|