%
'********************** Åpning av database *********************************************
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER= MICROSOFT.JET.OLEDB.4.0; DATA SOURCE=" & server.mappath("fpdb/db1.mdb")
'********************** Åpner tabellen for kunder *************************************
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM Chat ORDER BY dato DESC"
rs.CursorType = 2
rs.LockType = 3
rs.Open strSQL, conn
%>
isabel lucas.net » your isabel lucas source