<% '----------------------------------------------------------------- '--Page info '----------------------------------------------------------------- PAGE_NAME = "Program" PAGE_NAME_S = "Programs" IS_ADDING = True blnIsAdmin = True '----------------------------------------------------------------- '--Page code '----------------------------------------------------------------- If Request.ServerVariables("REQUEST_METHOD")="POST" Then Set uploadRequest = New clsUpload '------------------------------------ '--upload image, if any '------------------------------------ imageName = uploadRequest("oldDocumentFileName") fileName = LCase(uploadRequest("image").FilePath) If fileName <> "" Then fileExt = Right(fileName,Len(fileName)-InStrRev(fileName,".")) If imageName = "" Then myFilePath = Server.MapPath(PROGRAM_IMAGE_PATH) & "\" Set FileSys = New clsFileSystem If Not FileSys.FileExist(myFilePath & fileName) Then imageName = getUniqueName() & "." & fileExt Else imageName = fileName End If Set FileSys = Nothing pathToFile = myFilePath & imageName Else oldExt = Right(imageName,Len(imageName)-InStrRev(imageName,".")) If fileExt <> oldExt Then Set FileSys = New clsFileSystem FileSys.DeleteFile(PROGRAM_IMAGE_PATH & imageName) If FileSys.FileExist(Server.MapPath(PROGRAM_IMAGE_PATH & fileName)) Then imageName = getUniqueName() & "." & fileExt Else imageName = fileName End If Set FileSys = Nothing End If pathToFile = Server.MapPath(PROGRAM_IMAGE_PATH & imageName) End If uploadRequest("image").SaveAs pathToFile ElseIf uploadRequest("removeDocument").value="1" then Set FileSys = New clsFileSystem FileSys.DeleteFile(PROGRAM_IMAGE_PATH & imageName) Set FileSys = Nothing imageName = "" End If '------------------------------------ '--save it in the database '------------------------------------ Set DB = New clsDatabase DB.OpenDatabase DATABASE_NAME , DATABASE_USERNAME , DATABASE_PASSWORD DB.OpenRecord "library_programs" , 0 DB.SetField "category_id" , uploadRequest("category_id") DB.SetField "name" , uploadRequest("name") 'DB.SetField "duration" , uploadRequest("duration") DB.SetField "description" , uploadRequest("description") DB.SetField "link" , uploadRequest("link") DB.SetField "large_image" , imageName DB.CloseRecord() newID = DB.GetLastID If uploadRequest("broadcasters_id") = "" Then DB.RunQuery("DELETE FROM library_program_broadcasters WHERE program_id=" & newID) Else DB.RunQuery("DELETE FROM library_program_broadcasters WHERE program_id=" & newID & " AND broadcaster_id NOT IN (" & uploadRequest("broadcasters_id") & ")") DB.RunQuery("INSERT INTO library_program_broadcasters (program_id, broadcaster_id) SELECT " & newID & ", library_broadcasters.id FROM library_broadcasters WHERE library_broadcasters.id IN (" & uploadRequest("broadcasters_id") & ") AND library_broadcasters.id NOT IN (SELECT library_program_broadcasters.broadcaster_id FROM library_program_broadcasters WHERE library_program_broadcasters.broadcaster_id IN (" & uploadRequest("broadcasters_id") & ") AND library_program_broadcasters.program_id=" & newID & ")") End If Set DB = Nothing IsSaved = True Else IsSaved = False Dim RecordData(15,0) strSelectBroadcasters = "SELECT id, name FROM library_broadcasters ORDER BY name" Set DB = New clsDatabase DB.OpenDatabase DATABASE_NAME , DATABASE_USERNAME , DATABASE_PASSWORD CATEGORY_LIST = GetLibraryCategoryList() numOfBroadcasters = DB.RunQuery(strSelectBroadcasters) - 1 If numOfBroadcasters > -1 Then allBroadcasters = DB.GetLastResults() Set DB = Nothing If IsArray(allBroadcasters) Then strBroadcastersList = BuiltList(allBroadcasters, 2, False) strBroadcastersListMultiple = strBroadcastersList End If %>

Adding a <%=PAGE_NAME%>

<%If Not IsSaved Then%> <%Else%> <%End If%>     New <%=PAGE_NAME%> added successfully ! What would you like to do ?