Advanced Report 6.4 - Updated 24/06/2014

[wdpaynter]

I have figured out how to achieve the look I want by modifying both the .vbs script and the CSS file. "Seeker" - if you are interested in trying this (very easy) before Trixmoto updates, let me know and I'll explain. "Trixmoto" - if you are interested in seeing what settings/code I changed to help in future releases, let me know.

Thanks Again for a Great Script!!!
wdpaynter

[trixmoto]

Yeah, feel free to email or PM me the changes you've made, I'd be interested to me. My email server will bounce VBS files though so you might need to rename it.

[Seeker]

I have figured out how to achieve the look I want by modifying both the .vbs script and the CSS file. "Seeker" - if you are interested in trying this (very easy) before Trixmoto updates, let me know and I'll explain. "Trixmoto" - if you are interested in seeing what settings/code I changed to help in future releases, let me know.

Thanks Again for a Great Script!!!
wdpaynter

I'm very interested.

[666fox]

Is it possible to set the frameset to have the f_caps frame on top of both the other frames and setup to be horizontal?

[trixmoto]

Well it will need development of the script - I'll see what I can do.

[wdpaynter]

Here is what I did:

First, I simply modified the Advanced Script file (.vbs). Cut and Paste the " 'show artwork" section above the " 'list tracks" section. This will output the album art first in each album page.

(" 'list tracks " section in my modified script file is line 1310, but this is after the cut/paste and I believe I've made other modifications to the script file - but should get you close)

Then I modified the CSS file. Here is the info that I changed:

.tracks {
width: 100%;
float: left;
vertical-align: top;
}
.cover {
width: 35%;
float: left;
text-align: center;
vertical-align: top;
}

Note that I removed the padding in cover section (optional)

Then I modified the main file page (not f_caps or f_list), change to: <frameset cols="240,*"> I left the rows @ 280

I believe this is all I did, but after many hours of fiddling around, I may have done more. I've tested my site in both Firefox and Internet Explorer and they are working perfectly. You can check out my website to see this in action http://rbeatsrbest.webs.com - you should be able to view my code there. Let me know if it doesn't display correctly on your browsers.

Please let me know if this has helped/solved your problems.
Thanks

wdpaynter

[wdpaynter]

Here is actual view of " 'show artwork & 'list tracks also 'list genres" sections in my version of Advanced Report script code (note 'show artwork is now between 'list genres and 'list tracks - also I believe I deleted several lines from 'show artwork section, but shouldn't affect outcome):

'list genres
If ListGenres Then
href = ""
If SDB.VersionHi > 2 Then
sql = "SELECT DISTINCT Genres.GenreName FROM Genres,Songs,GenresSongs WHERE GenresSongs.IDSong = Songs.ID AND GenresSongs.IDGenre = Genres.IDGenre AND Songs.IDAlbum="&id&" "&FilterSQL&"ORDER BY Genres.GenreName"
Else
sql = "SELECT DISTINCT Genres.GenreName FROM Genres INNER JOIN Songs ON Genres.IDGenre = Songs.Genre WHERE Songs.IDAlbum="&id&" ORDER BY Genres.GenreName"
End If
Dim iter3 : Set iter3 = SDB.Database.OpenSQL(sql)
If Not iter3.EOF Then
href = iter3.StringByName("GenreName")
iter3.Next
While Not iter3.EOF
href = href&", "&iter3.StringByName("GenreName")
iter3.Next
WEnd
End If
fout.WriteLine "<p>Genre: "&MapXML(href)&"</p>"
End If

'show artwork
If AlbumArtMode < 3 Then
If AlbumArtWidth > 0 Then
fout.WriteLine "<div class=""cover""><img src="""&getalbumart(id)&""" width="""&AlbumArtWidth&""" alt="""" border=""0"" /></div>"
End If
End If
End If

'list tracks
If table Then
fout.WriteLine "<table>"
Else
fout.WriteLine "<ul>"
End If
On Error Resume Next
Do While Not iter2.EOF
SDB.ProcessMessages
If Progress.Terminate Then
Exit Do
End If
If table Then
fout.WriteLine "<tr><td align=left>"&gettrack(iter2.Item,ext,cmp)&"</td></tr>"
Else
fout.WriteLine "<li>"&gettrack(iter2.Item,ext,cmp)&"</li>"
End If
If Err.Number > 0 Then
TrackLinks = False
If table Then
fout.WriteLine "<tr><td>"&gettrack(iter2.Item,ext,cmp)&"</td><td>error</td></tr>"
Else
fout.WriteLine "<li>"&gettrack(iter2.Item,ext,cmp)&"</li>"
End If
TrackLinks = True
Err.Clear
End If
iter2.Next
Loop
On Error Goto 0
If table Then
fout.WriteLine "</table></div>"
fout.WriteLine "</div>"
Else
fout.WriteLine "</ul></div>"
End If



If SeparateFiles Or FramedView Then
fout.WriteLine "</body>"
fout.WriteLine "</html>"
fout.Close
End If

Progress.Increase
iter.Next
Loop

[wdpaynter]

Another way I've changed Trixmoto's script is to have the script generate a link to a website on every Artist page. Currently I have it set up to take me to that artist's All Music Guide Page (like "Right Click For Web" script). Let me know if anyone is interested and I will show you what I did (really easy as well). I plan to add several artist website links to the script as well.

Trixmoto - In your next version, Is there a way to add more options for display on the Artist Page? (I'd like to add my custom 1 field to the artist page rather than album page) Also, I'd really like to display Comments and other fields below Artwork and track list as next Table Row <tr><td>..., but it will require you to write "comments" into the script so that I can call for display in table (not sure how to do this stuff...getComment)

Please let me know what you think.

Thanks!
wdpaynter

[trixmoto]

I can certainly take a look at doing something.

[wdpaynter]

Here's one I can't figure out. I'm having certain albums display an incorrect year. I thought it may be my tags, but checked a couple and all tracks on the album are equal and correct (all for checked album are 1994, but is being displayed as 1861). Can anyone elaborate on how the "year" field is handled? Any rules I'm unaware of? I assume its taken directly from MM.DB.

Thanks
wdpaynter

[wdpaynter]

Ahhhh - I posted too soon regarding year. I apologize. I see that Trixmoto uses average.

Sorry!!

[Martin Blank]

Hi, I'm new to this and get an install error when trying to use the install script with MM 3.0.4.1185 -- is there a trick?

[nohitter151]

Hi, I'm new to this and get an install error when trying to use the install script with MM 3.0.4.1185 -- is there a trick?

Close MediaMonkey. Right click the MM icon on desktop, go to "Run as administrator". Now install the script.

[Martin Blank]

Hi, I'm new to this and get an install error when trying to use the install script with MM 3.0.4.1185 -- is there a trick?

Close MediaMonkey. Right click the MM icon on desktop, go to "Run as administrator". Now install the script.

Thanks! That did the trick!

[Error #76]

Hey, whenever I try to run the script, I get the following error:

Error #76 - Microsoft VBScript Runtime Error
Path not found
File: "C:\Path-to-MM\Scripts\AdvancedReport.vbs", Line: 723, Column: 13

[the above is a translation from my native language, which the pc runs at]

Anybody knows what's with it? Thanks.