<%@LANGUAGE="VBSCRIPT"%> <% '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Spd E-Letter v4 ' © 2001, 2002 PensaWorks, inc. ' For help with this program, please visit http://www.pensaworks.com '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Dim Access : Access = "User" Dim Nav3 : Nav3 = "2" %> <% server.scripttimeout = 1000 ListID = 0 if (session("svListID") <> "") then ListID = Session("svListID") if (request("ListID") <> "" AND IsNumeric(request("ListID"))) then ListID = CInt(request("ListID")) if not allowedList(listID, allowedLists) then response.redirect "message.asp?msg=49" if listID <> 0 then set getList = mlConn.Execute("SELECT Listname FROM ML_Lists WHERE ListID = " & listID) if getList.EOF then impListName = "None" else impListName = getList("ListName") end if set getList = nothing end if if (request("action") <> "" AND IsNumeric(request("action"))) then action = CInt(request("action")) else Action = 1 if Action = 2 then delimiter = request("delimiter") if delimiter = "" then Action = 1 : msg = 1 end if if delimiter = "o" then delimiterType = request("otherDelimiter") else delimiterType = delimiter if CStr(request("type")) = "2" then action = 3 else action = 4 chrDel = request("Delimiter") select case chrDel case "c" chrDel = "," txtDel = "Comma [ , ]" case "p" chrDel = "|" txtDel = "Pipe [ | ]" case "t" chrDel = chr(9) txtDel = "Tab" case "o" if request("OtherDelimiter") <> "" then chrDel = request("OtherDelimiter") txtDel = "Other [ " & request("OtherDelimiter") & " ]" else response.redirect("message.asp?msg=23") end if end select end if %> <%=ListName%> - Spd E-Letter Administration
 

Import Subscribers

<% if action = 3 then %>

Please choose the file you wish to pull for the import below.


List:
 <%=impListName%>
Delimiter:
 <%=txtDel%>
Import Type:
 From File - See below
Choose the text file to import below:
<% returnFile = "" getIt = listFiles("txt", returnFile, baseDirectory) if returnFile <> "" then response.redirect "subscriber_importadd.asp?ListID=" & request("listID") & "&Delimiter=" & server.urlencode(request("Delimiter")) & "&OtherDelimiter=" & server.urlencode(request("otherDelimiter")) & "&Type=2&filePath=" & server.urlencode(returnFile) end if %>

Note: Import data must be in the exact format (subscribe date is optional):
SubscriberName[delimiter]Email[delimiter]Format[delimiter]SubscribeDate

Example:
John<%=chrDel%>John@domain.com<%=chrDel%>HTML<%=chrDel%>12/18/2001 1:00:01 AM
Jane<%=chrDel%>Jane@domain.net<%=chrDel%>Text<%=chrDel%>12/18/2001 1:00:01 AM
Ron<%=chrDel%>Rob@domain.org<%=chrDel%>HTML<%=chrDel%>12/18/2001 1:00:01 AM
"> "> ">
<% elseif Action = 4 then %>
For speed issues, please try to limit the number of lines you import by breaking it up into sections. No more than 128K of data may be passed on to the next page due to server limitations. If you are on a dialup connection, it is best to break up your imports even more to ensure you local connection doesn't time out while uploading the data stream to the server.

 

List:
 <%=impListName%>
Delimiter:
 <%=txtDel%>
Import Type:
 Entered Data
Data:


Note: Must be in the exact format (subscribe date is optional):
SubscriberName[delimiter]Email[delimiter]Format[delimiter]SubscribeDate

Example:
John<%=chrDel%>John@domain.com<%=chrDel%>HTML<%=chrDel%>12/18/2001 1:00:01 AM
Jane<%=chrDel%>Jane@domain.net<%=chrDel%>Text<%=chrDel%>12/18/2001 1:00:01 AM
Ron<%=chrDel%>Rob@domain.org<%=chrDel%>HTML<%=chrDel%>12/18/2001 1:00:01 AM
"> "> ">
<% else %> <% if msg = 1 then %>

You must choose a delimiter type.

<% end if %>
Delimiter: Tab Comma [ , ] Pipe [ | ] Other
List:
Data:

From Entered Data
<% if comCheck(6, debugMode) then %> From a Text File (must exist on the server) <% end if %>

<% end if %>