:: Tawam Medical Library ::

<%@ LANGUAGE="VBScript" %> :: Tawam Medical Library :: <% dim adoCon dim rsMsg dim strSQL 'Create an ADO connection odject Set adoCon = Server.CreateObject("ADODB.Connection") 'Set an active connection to the Connection object using a DSN-less connection adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("libDb.mdb") Set rsMsg = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * from msg where msgdate='" & FormatDateTime(now(),1) & "' order by id desc ;" rsMsg.Open strSQL, adoCon set rsMsg = adoCon.Execute(strSql) dim var Do While not rsMsg.EOF 'rsMsg.movefirst var= rsMsg("msg") & " "& var rsMsg.MoveNext Loop Set rsMsg = Nothing Set strSQl = Nothing adoCon.Close Set adoCon = Nothing %>