<%@ LANGUAGE = "VBScript" ENABLESESSIONSTATE = True %>
<%Option Explicit%>
<%Response.Buffer = True%>
<%
'***********************************************************
'** Copyright Notice **
'** Tassietek - MailerPro **
'** Copyright 2001-2004 Tassietek All Rights Reserved. **
'***********************************************************
'** 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
'** VARIABLES
Dim strerror
Dim stri
Dim strrecordarray
Dim strcount
Dim strx
Dim rs
Dim sql
%>
<%=Session("SiteName")%> - Subscriber Details
Subscriber Details
<%
Set rs = conn.execute("Select * From " & tbl_prefix & Request("LID") & " Where ID = " & Request("ID"), adOpenForwardOnly, adLockReadOnly)
If err <> 0 Then
Response.Write""
err.Clear
Response.End
End If
If Not rs.EOF Then
%>
<%=strerror%>
List Name
<%=getlistname(Request("LID"))%>
Email
" style="width: 250" size="20">
Subscribe Date
" style="width: 250" size="20">
From IP
" style="width: 250" size="20">
<%
For stri = 1 To getfields(Request("LID"),"field_count")
%>
<%
If getfields(Request("LID"),"type_" & stri) = 2 Or getfields(Request("LID"),"type_" & stri) = 8 Then
strrecordarray = getfields(Request("LID"),"field_" & stri)
strrecordarray = split(strrecordarray,",")
%>
