Maybe too late for you, but it might be of use for other users...
The VB version has a bug in :
Protected Function FormatDblClick(ByVal adId As Object) As String
'INSTANT VB NOTE: The local variable AdId was renamed since Visual Basic will not uniquely identify local variables when other local variables have the same name:
Dim AdId_Renamed As String = adId.ToString()
Dim location As String = String.Empty
location = "showPopWin('admin/content_ad_editor.aspx?id=" & AdId_Renamed & "&pn=" & PageName & "&pl=" & BoxPlacement & "', 650, 600, null)"
Return location
End Function
Protected Sub FormatAddAnAdURL()
Dim location As String = String.Empty
If (Not CanEdit) Then
addAnAd.Visible = False
Else
location = "showPopWin('admin/content_ad_editor.aspx?pn=" & PageName & "&pl=" & BoxPlacement & "', 650, 650, null)"
addAnAd.Attributes("onclick") = location
addAnAd.Visible = True
End If
End Sub
It should be :
Protected Function FormatDblClick(ByVal adId As Object) As String
'INSTANT VB NOTE: The local variable AdId was renamed since Visual Basic will not uniquely identify local variables when other local variables have the same name:
Dim AdId_Renamed As String = adId.ToString()
Dim location As String = String.Empty
location = "showPopWin('admin/content_ad_editor.aspx?id=" & AdId_Renamed & "&pn=" & PageName & "&pl=" & BoxPlacement.ToString() & "', 650, 600, null)"
Return location
End Function
Protected Sub FormatAddAnAdURL()
Dim location As String = String.Empty
If (Not CanEdit) Then
addAnAd.Visible = False
Else
location = "showPopWin('admin/content_ad_editor.aspx?pn=" & PageName & "&pl=" & BoxPlacement.ToString() & "', 650, 650, null)"
addAnAd.Attributes("onclick") = location
addAnAd.Visible = True
End If
End Sub
So if you change BoxPlacement to BoxPlacement.ToString the exact string gets stored in the database instead of the numeric position in the enum