<!-- #include virtual="/includes/functions.asp" -->
<% 
server.scripttimeout = 600

verify 

Set theform = Server.CreateObject("SoftArtisans.FileUp")

if not trim(theform.Form("leadsfile").UserFileName) = "" then
	theform.Path = Server.MapPath("\_admin\temp")
	leadsfile = Mid(theform.Form("leadsfile").UserFilename, InstrRev(theform.form("leadsfile").UserFilename, "\") + 1)
	theform.Form("leadsfile").SaveAs theform.Path & "\" & leadsfile
end if


set objDB = OpenDatabase(false)
if leadsfile <> "" then
	set rFile = server.createobject("Scripting.FileSystemObject")
	set theFile = rFile.OpenTextFile(server.mappath("\_admin\temp") & "/" & leadsfile)
	
	while not theFile.atendofstream	
		theline = split(thefile.readline, ",")
		
		FirstName = left(replace(fixsql(theline(0)), "&quot;", ""), 50)
		LastName = left(replace(fixsql(theline(1)), "&quot;", ""), 50)
		JobTitle = left(replace(fixsql(theline(2)), "&quot;", ""), 100)
		Company = left(replace(fixsql(theline(3)), "&quot;", ""), 100)
		Email = left(replace(fixsql(theline(4)), "&quot;", ""), 255)
		BusinessStreet = left(replace(fixsql(theline(5)), "&quot;", ""), 255)
		BusinessStreet2 = left(replace(fixsql(theline(6)), "&quot;", ""), 255)
		BusinessCity = left(replace(fixsql(theline(7)), "&quot;", ""), 255)
		BusinessState = left(replace(fixsql(theline(8)), "&quot;", ""), 50)
		BusinessZip = left(replace(fixsql(theline(9)), "&quot;", ""), 15)
		if len(BusinessZip) > 5 then
			BusinessZip = left(businesszip, 5)
		elseif len(businesszip) < 5 then
			for x = 1 to 5 - len(businesszip)
				busineszip = "0" & businesszip
			next
		end if
		BusinessCountry = left(replace(fixsql(theline(10)), "&quot;", ""), 50)
		BusinessPhone = left(replace(fixsql(theline(11)), "&quot;", ""), 50)
		BusinessCell = left(replace(fixsql(theline(12)), "&quot;", ""), 50)
		BusinessFax = left(replace(fixsql(theline(13)), "&quot;", ""), 50)
		Notes = left(replace(fixsql(theline(14)), "&quot;", ""), 1500)
		Notes2 = left(replace(fixsql(theline(15)), "&quot;", ""), 1500)
		RMComments = left(replace(fixsql(theline(16)), "&quot;", ""), 1500)
		PrimaryMarket = left(replace(fixsql(theline(17)), "&quot;", ""), 255)
		SecondaryMarket = left(replace(fixsql(theline(18)), "&quot;", ""), 255)
		LeadSource = left(replace(fixsql(theline(19)), "&quot;", ""), 255)
		
		if ubound(theline) >= 20 then
			Status = left(replace(fixsql(theline(20)), "&quot;", ""), 50)
		else
			satatus = "New"
		end if
		
		SQL = "Insert into Leads (FirstName,LastName,JobTitle,Company,Email,BusinessStreet,	BusinessStreet2,BusinessCity,BusinessState,BusinessZip,BusinessCountry,BusinessPhone,BusinessCell,BusinessFax,Notes,Notes2, RMComments,PrimaryMarket,SecondaryMarket, LeadSource, Status) VALUES ('" &_
			FirstName & "','" & LastName & "','" & JobTitle & "','" & Company & "','" & Email & "','" & BusinessStreet & "','" & BusinessStreet2 & "','" & BusinessCity & "','" & BusinessState & "','" & BusinessZip & "','" & BusinessCountry & "','" & BusinessPhone & "','" & BusinessCell & "','" & BusinessFax & "','" & Notes & "','" & notes2 & "','" & rmcomments & "','" & PrimaryMarket & "','" & SecondaryMarket & "','" & leadsource & "','" & status & "')"
		response.write SQL
		UpdateDB objDB, SQL
	wend
end if

objDB.close
set objDB = nothing

response.redirect("../leads.asp?success=true")
%>