<%@ LANGUAGE = "VBScript" ENABLESESSIONSTATE = True %>
<%Option Explicit%>
<%Response.Buffer = True%>

<%Server.Execute("settings.asp")%>

<!--#include file="conn.asp"-->
<!--#include file="functions.asp"-->

<%
Dim rs, sql, stractive

Set rs = conn.execute("select * From " & tbl_prefix & "tracking_lists Where tracking_name = '" & Request("t") & "'", adOpenForwardOnly, adLockReadOnly)
If rs.EOF Then
stractive = False
Else
stractive = True
End If
rs.Close
Set rs = nothing

stractive = True

If stractive = True Then
Set rs =  conn.execute("SELECT * FROM " & tbl_prefix & "tracking Where email = '"& Request("e") & "' And tracking_name = '" & Request("t") & "'", adOpenForwardOnly, adLockReadOnly)
If rs.EOF Then
conn.execute "Insert Into " & tbl_prefix & "tracking (listID,email,opened, tracking_name) Values(" & Request("id") & ",'" & Request("e") & "','" & SetDate(Now()) & "','" & Request("t") & "')", , adExecuteNoRecords
End If
End If
Response.Redirect Session("ScriptUrl") & "/images/tracking.gif"
%>

<%
'** ASSURING THAT ALL DATABASE CONNECTIONS ARE CLOSED
On Error Resume Next
rs.close
Set rs = nothing
rsfun.close
Set rsfun = nothing
conn.close
Set conn = nothing
on error goto 0
%>