<%
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 = 'irw'")
if TestRS.EOF = True then
Connection.Execute("INSERT INTO AtHomeStatsSearchEngineClicks (SessionID, Program) VALUES ('" & Session.SessionID & "','irw')")
end if
%>
International Relations: A New Role in a Complex World
<![CDATA[
<body bgcolor="#FFFFFF"></body>
]]>