<% ' Set DbCon=Server.CreateObject("ADODB.Connection") ' DbCon.Open ("DSN=cdrs;UID=cdrs;PWD=cdrs0712") ' sql = "select id from Counter" ' set rs = Dbcon.Execute(sql) ' if Session.sessionID <> rs(0) then ' sql = "update Counter set counter=counter+1, id='"&Session.sessionID&"'" ' Dbcon.Execute sql ' end if %> CDRS_Carbon Dioxide Reduction & Sequestration R&D Center
 
 
<% ' sql = " select *from Counter " ' set rs = Dbcon.Execute(sql) %>
   <%'=Replace(date,"-",".")%>
<%'=rs("counter")%>
 
 
<% ' Dbcon.Close ' set Dbcon = nothing %>