<%
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "AtHome",Session("ODBCUser"),Session("ODBCPass")
Set TestRS = Connection.Execute("SELECT * FROM AtHomeStatsSearchEngineClicks WHERE SessionID = '" & Session.SessionID & "' AND Program = 'css'")
if TestRS.EOF = True then
Connection.Execute("INSERT INTO AtHomeStatsSearchEngineClicks (SessionID, Program) VALUES ('" & Session.SessionID & "','css')")
end if
%>
Harvard@Home: A "COMPLETE" Search for New Suns
<![CDATA[
<body bgcolor="#FFFFFF"></body>
]]>