Tilføj DB virker ikke

Har følgende script... Meningen er at de først skal gå ind og tjekke om en bestmet session er oprettet... Hvis ikke, skal den indsætte en post til en tabel i en database...

Derefter skal den løbende indsætte poster ind i en anden tabel, med reference til den post som tidligere blev oprettet i den anden tabel...

Filen er en der er includeret i alle mine sider, da den skal tælle hits og den opretter også fint nok den første post, men når den opretter ikke dem der skal have reference til den første... Hvorfor ikke???



<% dato = date()
dag = day(dato)
mdr = month(dato)
aar = year(dato)
stat_tal = dag & "" & mdr & "" & aar & "" & int(1235 * rnd)
if session("sejs_gruppe_stat") <> "online" then
Set Conn = Server.CreateObject("ADODB.Connection")
Set rs_stat = Server.CreateObject("ADODB.Recordset")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("inc/db/stat.mdb")
strSQL = "SELECT * FROM hits"
rs_stat.Open strSQl, Conn, 1, 3
rs_stat.AddNew
rs_stat("reftal") = stat_tal
rs_stat("dag") = dag
rs_stat("mdr") = mdr
rs_stat("aar") = aar
rs_stat("dato") = date()
rs_stat("tid") = time()
rs_stat.Update
conn.Close
Set conn = nothing
Set strSQL = nothing
session("sejs_gruppe_stat") = "online"
Set Conn = Server.CreateObject("ADODB.Connection")
Set rs_akk = Server.CreateObject("ADODB.Recordset")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("inc/db/stat.mdb")
strSQL = "SELECT * FROM hits where reftal = " & stat_tal
rs_akk.Open strSQl, Conn, 1, 3

elseif session("sejs_gruppe_stat") = "online" then
Set Conn = Server.CreateObject("ADODB.Connection")
Set rs_hit = Server.CreateObject("ADODB.Recordset")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("inc/db/stat.mdb")
strSQL = "SELECT * FROM hits_sider"
rs_hit.Open strSQl, Conn, 1, 3
rs_hit.AddNew
rs_hit("refid") = rs_akk("id")
rs_hit("side") = akk_side
rs_hit("tid") = time()
conn.Close
Set conn = nothing
Set strSQL = nothing
end if %>