'VBScript language example
'This example ALWAYS sends the same metadata information to SAM Cast
'whenever any data is received.
Function HandleLine(sLine)
	'Recommended minimum fields to fill in
	SongInfo.Value("artist") = "ArtistABC"
	SongInfo.Value("title") = "SongDEF"
	SongInfo.Value("duration") = 60000 'In milliseconds
	SongInfo.Value("songtype") = "S" 'See songtypes.txt

	'Optional fields
	SongInfo.Value("album") = "AlbumGHI"
	SongInfo.Value("buycd") = "http://www.amazon.com"
	SongInfo.Value("website") = "http://www.artistABC.com"
	SongInfo.Value("picture") = "http://www.myradio.com/pictures/artistABC.jpg"

	'Additional optional fields - mostly useful for royalty reporting purposes
	'These fields are written to the songhistory.yyyy-dd.csv history log files.
	SongInfo.Value("filename") = "c:\music\songDEF.mp3"
	SongInfo.Value("trackno") = "1"
	SongInfo.Value("albumyear") = "2011"
	SongInfo.Value("composer") = "TheComposer"
	SongInfo.Value("ISRC") = "123456789"
	SongInfo.Value("label") = "TheLabel"
	SongInfo.Value("copyright") = "(c) TheLabel"

	'Triggers the metadata update in SAM Cast
	SongInfo.DoSongChange
End Function