<%@ Language=VBScript %>


<!-- #include file="fbpresets.asp" -->
<!--#include file="i_loader.asp"-->


<%

Server.ScriptTimeOut = 2500
emailmeonsub = true

' set these to false usually
diagnostics = false
allowany = false


if fmembersonly then checksecurity

pagecat = "SUBMIT"

Response.Buffer = True

dim maxfilesize
maxfilesize = 11000000

'**http://www.stardeveloper.com/articles/display.html?article=2001042501&page=1

dim sartistval, stitleval, sdescval, scatval
sartistval = ""
stitleval = ""
sdescval = ""
scatval = "--"

public sub savefile

sartistval = load.getFileData("sartist")
stitleval = load.getFileData("stitle")
sdescval = load.getFileData("sdesc")
scatval = load.getFileData("scat")


dim returnerror, jpg
returnerror = ""
jpg = false


   ' load object
  ' Dim load
   '   Set load = new Loader
      ' calling initialize method
    '  load.initialize


   ' File binary data
   Dim fileData, filedata2
      fileData = load.getFileData("file")
	  filedata2 = load.getFileData("jpgfile")
	  if load.getFileSize("jpgfile") > 100 then jpg = true


   ' File name
   Dim fileName, origFileName
        ' this is the original file name but we are going to change it to the date and time submitted
      origFileName = load.getFileName("file")

      filename =  DatePart("M", Date) & "-" & DatePart("D", Date) & "-" & DatePart("YYYY", Date) & "-" & DatePart("H", time) & "-" & DatePart("n", time) & "-" & DatePart("s", time)
	  	


   Dim contentType
      contentType = load.getContentType("file")
      jpgcontentType = load.getContentType("jpgfile")

    Dim fileExt
    fileExt = LCase(load.getFileExt("file"))
    if len(fileExt) <> 0 then fileExt = "." & fileExt


   ' File path
   Dim filePath
      filePath = load.getFilePath("file")

   ' File path complete

   Dim filePathComplete
      filePathComplete = load.getFilePathComplete("file")
   ' File size

   Dim fileSize
      fileSize = load.getFileSize("file")     
   ' File size translated

   Dim fileSizeTranslated
      fileSizeTranslated = load.getFileSizeTranslated("file")
   ' Content Type

      
            
      'check to make sure the audio/video file is an allowed type.
       dim allowedTypes     
      allowedTypes = "image/jpeg, image/pjpeg, image/gif, video/quicktime, video/mpeg, video/x-mpeg, video/x-ms-wmv, video/mp4, audio/mp4, audio/mpeg, audio/mpeg3, audio/x-mpeg-3, application/x-shockwave-flash, audio/x-pn-realaudio, video/vnd.rn-realvideo"  
      allowedTypes = " " & allowedTypes & ","
      
      if instr(allowedTypes, " " & lcase(contentType) & ",") = 0 and allowany = false then 
         returnerror = "I'm sorry, '" & origFileName & "' does not appear to be one of our accepted file types!" ' & contentType
      end if 
      
         ' check to make sure that they are not submitting 2 jpegs (should be one jpg or 1 video/audio and 1 jpg)
      if jpg and (contenttype = "image/pjpeg" or contenttype = "image/jpeg" or contenttype = "image/gif") then returnerror = "I'm sorry, you cannot submit a second sill image if your media is an image!"
          
           'check the still image, and add its extension			

	if jpg and ((jpgcontenttype = "image/pjpeg") or (jpgcontenttype = "image/jpeg")) then
	     imgfilename = filename & "T.jpg"
	elseif jpg and (jpgcontenttype = "image/gif") then
		imgfilename = filename & "T.gif"
	elseif jpg then
	  returnerror = "I'm sorry, your still image does not appear to be a valid jpg or gif file!" '& jpgcontenttype 
	end if
      


   ' No. of Form elements
   Dim countElements
      countElements = load.Count
   ' Value of text input field "name"

   Dim nameInput
      nameInput = load.getValue("stitle")
   ' Path where file will be uploaded

   Dim pathToFile
      pathToFile = Server.mapPath("submitbin/") 
   ' Uploading file data

  

     Dim fso
       Set fso = Server.CreateObject("Scripting.FileSystemObject")

dim filenocount, tempfilename
filenocount = 0
tempfilename = filename

    do while fso.fileexists(pathToFile & "/"  &  filename & fileExt) 
		filename = tempfilename
	    filenocount= filenocount + 1
		fileName = fileName & "_" & cstr(filenocount)
	loop

fileName = fileName & fileExt


dim errorz
errorz = true
 if returnerror = "" then   
     if  load.saveToFile("file", pathToFile & "/"  &  fileName) then errorz = false
 
	 if jpg then 
	   if not load.saveToFile("jpgfile", pathToFile & "/"  &  imgfilename) then errorz = true
	end if
  end if 


if not errorz then
 


dim objConn     ' Our Connection Object
dim objRS1       ' Our Recordset Object
dim strSQL     ' Our SQL string to access the database

Set objConn = CreateObject("ADODB.Connection")
Set objRS1 = CreateObject("ADODB.Recordset")

objConn.Open  ConnStr



  strSQL = "INSERT INTO submissions (uid, subdate , filename , imgfilename,  artist,  title,  description, "
  strSQL = strSQL & "category, filetype, size) VALUES (" 
  strSQL = strSQL & "'" & session("memberuid") & "',"
  strSQL = strSQL &  "NOW(), " 
  strSQL = strSQL &  "'" & fileName & "', "
  
  
  if jpg then
    strSQL = strSQL &  "'" & imgfilename & "', "
  else
        strSQL = strSQL &  "'', "
  end if
    
  strSQL = strSQL &  "'" & replace(replace(load.getValue("sartist"), "'", "&#39;"), "%34", "&#34;") & "', "
  strSQL = strSQL &  "'" & replace(replace(load.getValue("stitle"), "'", "&#39;"), "%34", "&#34;") & "', "
  strSQL = strSQL &  "'" & replace(replace(load.getValue("sdesc"), "'", "&#39;"), "%34", "&#34;") & "', "
  strSQL = strSQL &  "'" & load.getValue("scat") & "', "
  strSQL = strSQL &  "'" & contentType & "', "
  strSQL = strSQL &  "'" & fileSize & "')"


'response.write strSQL

set objRS1 = objConn.Execute(strSQL) 

objConn.Close
    
   
   
if diagnostics then %>
   <table width="400" border="1" align="center">
   <tr>
      <td>File Name</td><td><%= fileName %></td>
   </tr><tr>
      <td>File Path</td><td><%= filePath %></td>
   </tr><tr>
      <td>File Path Complete</td><td><%= filePathComplete %></td>
   </tr><tr>
      <td>File Size</td><td><%= fileSize %></td>
   </tr><tr>
      <td>File Size Translated</td><td><%= fileSizeTranslated %></td>
   </tr><tr>
      <td>Content Type</td><td><%= contentType %></td>
   </tr><tr>
      <td>Title</td><td><%= nameInput %></td>
   </tr>
   </table><br><br>
   <% end if

if emailmeonsub and Request.ServerVariables("server_name") <> testservername then


		Set objSendMail = server.CreateObject("CDONTS.NewMail")	
		With objSendMail
		.From = "server@filmboston.com"
    	.To = "alert@filmboston.com"
'	    .Cc = objRS1("email2").value
	    .Bcc = ""
		.Subject = "VisualBoston: Content Submitted!!!"
		.Body = "http://www.visualboston.com/dbase/admin.asp"
		.Send
		End With
		Set objSendMail = Nothing


end if

%>





   <%

	if not diagnostics then	response.redirect "login.asp?actmsg=" & EncodeMe("Files Uploaded Sucessfully (remember: files are reviewed before posting)") 
		
else

if diagnostics then %>
   <table width="400" border="1" align="center">
   <tr>
      <td>File Name</td><td><%= fileName %></td>
   </tr><tr>
      <td>File Path</td><td><%= filePath %></td>
   </tr><tr>
      <td>File Path Complete</td><td><%= filePathComplete %></td>
   </tr><tr>
      <td>File Size</td><td><%= fileSize %></td>
   </tr><tr>
      <td>File Size Translated</td><td><%= fileSizeTranslated %></td>
   </tr><tr>
      <td>Content Type</td><td><%= contentType %></td>
   </tr><tr>
      <td>Title</td><td><%= nameInput %></td>
   </tr>
   </table><br><br>
   <% end if


	if returnerror = "" then
	         Response.Write "<font color=""red"">File could not be uploaded..."
	         Response.Write "</font><br>"
	         OutputForm()
	else
	
	   Response.write "<font color = red>" & returnerror & "</font><Br>"
	   OutputForm() 
	end if


%>
<script language = "javascript">
        submitwin = window.open("","submitpop");
         submitwin.close();
</script>
<%

'delete file in case it got saved anyway


end if

   ' destroying load object
   Set load = Nothing


   
end sub




function OutputForm()

dim counter, es,ee,i,myarray()
set es=Server.CreateObject("Scripting.FileSystemObject")
set ee=es.OpenTextFile(Server.MapPath("fblog.txt"),1,false)

do while ee.ReadLine <> "*categories"
loop

i = 0

do 
ReDim Preserve myarray(i+1)
	myarray(i) = ee.ReadLine
	i = i + 1

loop while (myarray(i-1) <> "x")


ee.close
%>
<br>
<font face="times new roman" size="3">
Submissions are best kept under 5 to 7 minutes, and file size must be less than <b><%=maxfilesize/1000000%> MB</b>.
We accept submissions based on our perception of quality, and our current needs (which change daily). 
Please give us time to respond, and please do not be insulted if we can't use it!

<br>

<form name="frmSend" method="POST" enctype="multipart/form-data" action="submit.asp" onSubmit="return onSubmitForm();">

<font size = 2>

<table cellpadding = 0 cellspacing = 0 ><tr><td>
*Producer's Name:&nbsp;</td><td><input name=sartist type=text size=50 value = '<%=sartistval%>'></td></tr><tr><td>
*Submission Title:&nbsp;</td><td><input name=stitle type=text size=40 maxlength = 75 value = '<%=stitleval%>'></td></tr><tr><td>
*Category: </td><td><select name = scat>
<option value = "">--</option> 
<%for counter = 0 to i-2%>
<option <%if mid(scatval,1, len(scatval)-2) = myarray(counter) then response.write "SELECTED"%> value = "<%=myarray(counter)%>"><%=myarray(counter)%></option>
<%next%>
</select></td></tr><tr><td>
*File:</td><td> <input name='file' type=file size=35 ></td></tr><tr><td>
JPG or GIF Still:</td><td> <input name='jpgfile' type=file size=35>
</td></tr></table>

<table cellpadding = 0 cellspacing = 0 ><tr><td valign = top>
*Description:&nbsp;</td><td><textarea  name=sdesc rows = 5 cols=40><%=sdescval%></textarea><br>

    <input  type=submit value="SUBMIT">

</td></tr></table>

    </form>
    
<%
end function
%>


<html>
	<head>




<script language = "javascript">



function onSubmitForm() {
    var formDOMObj = document.frmSend;
    var goforit;
    goforit = true;
    
    
    if (formDOMObj.sartist.value == ""  ) {
        alert("Producer's name is required!")
	    goforit = false;
    }

    if (formDOMObj.stitle.value == ""  ) {
        alert("Submission title is required!")
	    goforit = false;
    }

    if (formDOMObj.scat.value == ""  ) {
        alert("Category is required!")
	    goforit = false;
    }


    if (formDOMObj.file.value == ""  ) {
        alert("You have to pick a file!")
	    goforit = false;
    }

    if (formDOMObj.sdesc.value == ""  ) {
        alert("Description is required!")
	    goforit = false;
    }

    if (goforit == true) 
        if (confirm("By pushing OK you are declaring that you are the owner of this content and therefore have the right to submit it to VisualBoston. You are also giving VisualBoston the right to broadcast it on the Internet seeking any further permission from you, or paying you any cashola! So PLEASE don&#8217;t come whining to us. We do try to respect all reasonable requests to remove content from our programming, but we certainly can not be held responsible for anything bad that your content causes you or anyone else!!!")) {
        submitwin = window.open("submitmediapop.asp","submitpop","width=300,height=300,location=0,menubar=no, resizable=1,scrollbars=0,status=1,titlebar=1,toolbar=0,screenX=100,left=100,screenY=30,top=60");
		
		return true;
		}
     else

       return false;
}
</script>


<!-- #include file="i_top.asp" -->


<%
if Request.ServerVariables("REQUEST_METHOD") <> "POST" then
        OutputForm()
else

 Dim load
   Set load = new Loader

      ' calling initialize method
    load.initialize


    if maxfilesize < request.totalBytes then 
		response.write "File Too Big! <br>"    
    else
		SaveFile

    	response.write "<br>"


end if

end if

%><!-- #include file="i_bot.asp" -->