Copyright (c) Jeroen nl Telefoon log Mon, 18 Oct 2004 08:37:04 +0200 <% function opmaakdd(dd) opmaakdd = day(dd) & "-" & month(dd) & "-" & year(dd) & " " & hour(dd) & ":" & minute(dd) & ":" & second(dd) end function constring = "DRIVER={SQL Server};SERVER=IPVANDESQL;DATABASE=DATABASE;UID=USER;PWD=PASSWORD" Set MyConn=Server.CreateObject("ADODB.Connection") MyConn.Open constring sql = "SELECT top 20 telefoonlog.datum, telefoonlog.telid, telefoonlog.van, telefoonlog.naar, telefoonnummers.omschrijving FROM telefoonlog LEFT OUTER JOIN telefoonnummers ON telefoonlog.van = telefoonnummers.telefoonnr ORDER BY telefoonlog.datum DESC" set rs = myconn.execute(sql) do while rs.eof = false response.write "" if rs.fields("omschrijving") > "" then ww = rs.fields("omschrijving") else ww = rs.fields("van") end if response.write "'>" response.write "" ww = "" ww = ww & "Datum: " & opmaakdd(rs.fields("datum")) & "\n" ww = ww & "Van: " & rs.fields("van") & "\n" ww = ww & "Wie: " & rs.fields("omschrijving") & "\n" ww = ww & "Naar: " & rs.fields("naar") response.write ww response.write "" response.write "" rs.movenext loop %>