<%@ Language=VBScript %>
<%Option Explicit%>
<%
'Include Security
'Server.Execute("/admin/includes/security.asp")
%>
<%'Include Utility Scripts%>
<%'Include Data Connection%>
<%
'open data connection
Call OpenConn()
%>
<%'Include Utility Scripts%>
Vitesse :: Administration Centre ::
<%
Function CIntNumber(strString, strReturnValueIfNotNumeric)
If strString <> "" And IsNumeric(strString) Then
CIntNumber = CLng(strString)
Else
CIntNumber = strReturnValueIfNotNumeric
End If
End Function
Dim strFileName, intDelType, strIndex
Dim strOther : strOther = ""
strIndex = Request.Form("txtIndex")
intDelType = CIntNumber(Request.Form("txtDelType"), 0)
If intDelType = 0 Then
intDelType = CIntNumber(Request.Form("optDelType"), 1)
End If
If intDelType = 4 Then
strOther = Request.Form("txtOther")
End If
strFileName = Request.Form("txtFileName")
If strFileName = "" Then
strFileName = Request.QueryString("f")
End If
%>
<% Dim arrSubscribers : arrSubscribers = GetSubscriberArray(strFileName, intDelType, strOther) %>
<% Call WritePreview(arrSubscribers, Split(strIndex, "|")) %>
<%
'close data connection
Call CloseConn()
%>