<!--#include file="config.asp" -->
<%
'=====================================================
' Spd E-Letter Bounce Reader Module Install
'-----------------------------------------------------
' © 2002 PensaWorks, inc. All Rights Reserved
'=====================================================
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Subscriber DB Import Module v1
'   by Lane Williams
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

modName = "Subscriber DB Import"
modPath = "module_subscriber_db_import.asp"

set dupCheck = mlConn.Execute("SELECT * FROM ML_Modules WHERE modName = '" & replace(modName, "'", "''") & "'")
	if dupCheck.EOF then
		set dupCheck = nothing
		mlConn.Execute("INSERT INTO ML_Modules (modName, modAdded, modLink) VALUES ('" & replace(modName, "'", "''") & "'," & cfgDate & ",'" & replace(modPath, "'", "''") & "')")

		if lcase(strDBType) = "access" then
		  strSQL = "CREATE TABLE DB_Import( "
		  strSQL = strSQL & "dbimpID COUNTER CONSTRAINT PrimaryKey PRIMARY KEY,"
		  strSQL = strSQL & "dbimpListID Long Null,"
		  strSQL = strSQL & "dbimpFormat Text(255) Null, "
		  strSQL = strSQL & "dbimpDB Text(255) Null, "
		  strSQL = strSQL & "dbimpSQL Memo NULL, "
		  strSQL = strSQL & "dbimpNamefield Text(255) Null, "
		  strSQL = strSQL & "dbimpName2field Text(255) Null, "
		  strSQL = strSQL & "dbimpEmailfield Text(255) Null, "
		  strSQL = strSQL & "dbimpDescription Text(255) Null )"
		  mlConn.Execute(strSQL)
		else
		  strSQL = "CREATE TABLE DB_Import ("
		  strSQL = strSQL & "dbimpID Int Identity(1, 1) Primary Key, "
		  strSQL = strSQL & "dbimpListID Int Null, "
		  strSQL = strSQL & "dbimpFormat VarChar(255) Null, "
		  strSQL = strSQL & "dbimpDB VarChar(255) Null, "
		  strSQL = strSQL & "dbimpSQL NText Null, "
		  strSQL = strSQL & "dbimpNamefield VarChar(255) Null, "
		  strSQL = strSQL & "dbimpName2field VarChar(255) Null, "
		  strSQL = strSQL & "dbimpEmailfield VarChar(255) Null, "
		  strSQL = strSQL & "dbimpDescription VarChar(255) Null )"
		  mlConn.Execute(strSQL)
		end if
	else
		set dupCheck = nothing
	end if

response.redirect "misc_modules.asp?msg=1&modName=" & server.urlencode(modName)
%>