% ' Initialize Variables Dim MyServer 'Address Server Portion Dim MyPath 'Address Path Portion Dim MySelf 'Full HTTP Address Dim starttime 'Time page began Dim objConnect 'Default Connection Object Dim cnpath 'Connection path Dim objCmd 'Default Command Object Dim objRst 'Default Recordset Object Dim total 'Total logins Dim totalhits 'Total page hits Dim successfullogins 'Number of Successful logins Dim failedlogins 'Number of failed logins Dim IE 'Number of Internet Explorer Hits Dim Net 'Number of Netscape Navigator Hits Dim I 'Loop control variable MyServer=Request.ServerVariables("SERVER_NAME") MyPath=Request.ServerVariables("SCRIPT_NAME") MySelf="HTTP://" & MyServer & MyPath %> <% 'Establish connection Set objConnect = Server.CreateObject("ADODB.Connection") 'SAGLAC 'cnpath = "DBQ=D:\inetpub\coramh\cgi-bin\Stats.mdb" '## MS Access 97 'Desktop 'cnpath = "DBQ=H:\WebDev\dev.coramh.org\v2\cgi-bin\Stats.mdb" '## MS Access 97 cnpath = DeskServConn objConnect.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath 'Create Command object Set objCmd = Server.CreateObject("ADODB.Command") Set objCmd.ActiveConnection=objConnect objCmd.CommandType = adCmdText 'Set up objRst Set objRst = Server.CreateObject("ADODB.Recordset") Set objRst.ActiveConnection=objConnect Set objRst.Source = objCmd objCmd.CommandText = "SELECT count(user_id) as cnt FROM user_log " & _ " WHERE action_code = 'L'" objRst.Open total = objRst("cnt") objRst.Close %>
|
Bienvenue sur le site de CORAMH!
CORAMH est la Corporation de recherche et daction sur les maladies héréditaires. Cest un organisme communautaire régional qui vise à informer et sensibiliser la population de la région québécoise du SaguenayLac-Saint-Jean aux notions importantes portant sur lhérédité, la génétique humaine et les maladies héréditaires. Vous trouverez sur ce site les sections suivantes : QUEST-CE QUE CORAMH? HÉRÉDITÉ
ET GÉNÉTIQUE LES MALADIES HÉRÉDITAIRES
AU SAGUENAYLAC-SAINT-JEAN
CORAMH tient également à remercier certains collaborateurs qui ont contribué à la réalisation du site. Prenez le temps de connaître ces collaborateurs en cliquant ici. Bonne navigation! |
|
|||||||||