I have not tested this script on a NAS drive, so this definitely could be the problem. I sounds like you are using the startup cache process, if you wish to delay this to give the drive time to connect, you could amend line 314...
Code: Select all
Dim Tmr : Set Tmr = SDB.CreateTimer(1000)
... by changing the delay from one second (1000ms) to a larger value.
The newest version now caches the artwork at the correct size. This is calculated the same as it is when the artwork is displayed.
To fix this blank page issue, I'll need you to add some debug messages for me. In the released script lines 1175-1185 are...
Code: Select all
Sub Show(ShowTimer)
Script.UnregisterEvents ShowTimer
Dim data : Set data = SDB.Objects("BrowseData")
If Not (data Is Nothing) Then
If Not (data.Item("htm") = "" ) Then
SDB.WebControl.Navigate data.Item("htm")
Exit Sub
End If
End If
SDB.WebControl.Navigate "about:"
End Sub
Can you please insert the following line...
Code: Select all
Sub Show(ShowTimer)
Script.UnregisterEvents ShowTimer
Dim data : Set data = SDB.Objects("BrowseData")
If Not (data Is Nothing) Then
Call outsql("htm="&data.Item("htm")) '<-------
If Not (data.Item("htm") = "" ) Then
SDB.WebControl.Navigate data.Item("htm")
Exit Sub
End If
End If
SDB.WebControl.Navigate "about:"
End Sub
Then can you please restart MM and get the blank screen, then email me "BrowseByArt.vbs_sql.log" in your Scripts/Auto folder?
I have not tested this script on a NAS drive, so this definitely could be the problem. I sounds like you are using the startup cache process, if you wish to delay this to give the drive time to connect, you could amend line 314...[code]Dim Tmr : Set Tmr = SDB.CreateTimer(1000)[/code]... by changing the delay from one second (1000ms) to a larger value.
The newest version now caches the artwork at the correct size. This is calculated the same as it is when the artwork is displayed.
To fix this blank page issue, I'll need you to add some debug messages for me. In the released script lines 1175-1185 are...[code]Sub Show(ShowTimer)
Script.UnregisterEvents ShowTimer
Dim data : Set data = SDB.Objects("BrowseData")
If Not (data Is Nothing) Then
If Not (data.Item("htm") = "" ) Then
SDB.WebControl.Navigate data.Item("htm")
Exit Sub
End If
End If
SDB.WebControl.Navigate "about:"
End Sub[/code]
Can you please insert the following line...[code]Sub Show(ShowTimer)
Script.UnregisterEvents ShowTimer
Dim data : Set data = SDB.Objects("BrowseData")
If Not (data Is Nothing) Then
Call outsql("htm="&data.Item("htm")) '<-------
If Not (data.Item("htm") = "" ) Then
SDB.WebControl.Navigate data.Item("htm")
Exit Sub
End If
End If
SDB.WebControl.Navigate "about:"
End Sub[/code]
Then can you please restart MM and get the blank screen, then email me "BrowseByArt.vbs_sql.log" in your Scripts/Auto folder?