<%@ LANGUAGE = "VBScript" ENABLESESSIONSTATE = True %>
<%Option Explicit%>
<%Response.Buffer = false%>
<%Server.ScriptTimeout = 100000000%>
<%
'***********************************************************
'** Copyright Notice **
'** Tassietek - MailerPro **
'** Copyright 2001-2004 Tassietek All Rights Reserved. **
'***********************************************************
'** PREVENT PAGE FROM BEING CACHED
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 2
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "No-Store"
'** CHECKING TO SEE IF LOGGED IN IF NOT TAKE YOU TO THE LOGIN PAGE
If Request.Cookies("login") = "" Then
Response.Cookies("action") = "error"
Response.Write("")
Response.End
Elseif Request.Cookies("login") = "3" Then
Response.Write("")
End If
If Session("Start") = "" Then
Response.Cookies("a") = "ended"
Response.Write""
End If
%>
<%
'** DECLARING VARIABLES
Dim strnotfound
Dim strdeleted
Dim strtotal
Dim stremailarray
Dim strcount
Dim stri
Dim stroddeven
Dim rs
strnotfound = 0
strdeleted = 0
strtotal = 0
'** CREATING ARRAY
stremailarray = Split(Request("email"), chr(13)&chr(10))
strcount = Ubound(stremailarray)
For stri = 0 to strcount
If stremailarray(stri) = "" Then
'if empty to nothing
Else
strtotal = strtotal + 1
'** JAVASCRIPT PROGRESS COUNTER
Response.Write(vbCrLf & "")
'** CREATING CONNECTION TO DATABASE EMAIL TABLE
Set rs = conn.execute("Select * From " & tbl_prefix & Request("ID") & " Where email = '" & stremailarray(stri) & "'", adOpenForwardOnly, adLockReadOnly)
If err <> 0 Then
Response.Write""
err.clear
Response.End
End If
'** CHECKING FOR NOT FOUND EMAIL
If rs.EOF Then
strnotfound = strnotfound + 1
'** JAVASCRIPT PROGRESS COUNTER
Response.Write(vbCrLf & "")
'** CREATING NOT FOUND TABLE
If strnotfound = 1 Then
Response.Write "
Not found Emails
"
End If
stroddeven = strnotfound / 2
If instr(stroddeven,".") > 0 Then
Response.Write "
" & stremailarray(stri) & "
"
Else
Response.Write "
" & stremailarray(stri) & "
"
End If
End If
'** DELETING FOUND EMAIL
If Not rs.EOF Then
strdeleted = strdeleted + 1
'** JAVASCRIPT PROGRESS COUNTER
Response.Write(vbCrLf & "")
rs.Close
Set rs = nothing
conn.execute"Delete From " & tbl_prefix & Request("ID") & " Where email = '" & stremailarray(stri) & "'", , adExecuteNoRecords
If err <> 0 Then
Response.Write""
err.clear
Response.End
End If
End If
End If
Next
'** JAVASCRIPT PROGRESS COUNTER
Response.Write(vbCrLf & "")
If strnotfound => 1 Then
If Not instr(stroddeven,".") > 0 Then
Response.Write "
"
Else
Response.Write ""
End If
End If
%>
<%
'** 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
%>