|
tomasalsbro
Average Member
Sweden
818 Posts |
 Posted - 13 June 2007 : 04:19:04
|
Hi,
I use (Snitz) Image Forums 2001 ver.3.4.06 Multi-Language V2, and encore problems which manifests in Admin Section, User E-mail List, as I show in the following two images:
In English-US:
All Forums
Admin Section
User E-mail List
NOTE: The following table will show you a list of all users of this forum, and their e-mail addresses.
Page: Microsoft VBScript runtime error '800a01c2' Wrong number of arguments or invalid property assignment: 'fLang' /forum/admin_emaillist.asp, line 229
In Swedish:
*A Emaillist001
*A Emaillist002
*A Emaillist003
*A Emaillist004 *A Emaillist005
*A Emaillist010 Microsoft VBScript runtime error '800a01c2' Wrong number of arguments or invalid property assignment: 'fLang' /forum/admin_emaillist.asp, line 229
Admin_emaillist.asp, line 206-236:
sub DropDownPaging(fnum)
if maxpages > 1 then
if mypage = "" then
pge = 1
else
pge = mypage
end if
scriptname = request.servervariables("script_name")
Response.write " <form name=""PageNum" & fnum & """ action=""admin_emaillist.asp"">" & vbNewLine
Response.Write " <td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine
if fnum = 1 then
Response.Write(" <b>" & fLang("L_A_Emaillist010") & " </b><select name=""whichpage"" size=""1"" onchange=""ChangePage(" & fnum & ");"">" & vbNewLine)
else
Response.Write(" <b>" & fLang("L_A_Emaillist011",maxpages) & " </b><select name=""whichpage"" size=""1"" onchange=""ChangePage(" & fnum & ");"">" & vbNewLine)
end if
for counter = 1 to maxpages
if counter <> cLng(pge) then
Response.Write " <option value=""" & counter & """>" & counter & "</option>" & vbNewLine
else
Response.Write " <option selected value=""" & counter & """>" & counter & "</option>" & vbNewLine
end if
next
if fnum = 1 then
Response.Write(" </select><b> " & fLang("L_A_Emaillist012",maxPages) & "</b>" & vbNewLine)
else
Response.Write(" </select>" & vbNewLine)
end if
Response.Write(" </font></td>" & vbNewLine)
Response.Write(" </form>" & vbNewLine)
end if
end sub
--------------
How do I solve this problem?
Thanks / Tomas
|
!-Keep distance in traffic-!
www.whiplashinfo.se |
|
Topic Locked
