Modificare il file: \iwgallery\includes\MXTableSort\MXTableSort_functions.inc.asp

<% Function getCurrentSort (rsName) value = "" If Request.QueryString("order_" & rsName) <> "" Then value = Request.QueryString("order_" & rsName) Else orderParam = rsName & "__orderParam" Execute "value=" & orderParam End If getCurrentSort = value End Function Function getSortIcon (rsName, column) getSortIcon = "" value = getCurrentSort (rsName) If value = column Then getSortIcon = " <img src=""../images/icon_down.gif"" align=""absmiddle"">" ElseIf value = column & " DESC" Then getSortIcon = " <img src=""../images/icon_up.gif"" align=""absmiddle"">" End If End Function Function getSortLink(rsName, column) value = getCurrentSort (rsName) paramVal = column if value = column Then paramVal = paramVal & " DESC" End If qstring = Request.ServerVariables("QUERY_STRING") If qstring <> "" Then ret = MX_TableSort_replaceQStringParam (qstring, "order_" & rsName, paramVal) Else ret = "order_" & rsName & "=" & Server.URLEncode(paramVal) End If url = Request.ServerVariables("URL") If Instr(url, "/") Then pageName = mid(url, InstrRev(url, "/")+1) Else pageName = url End If getSortLink = pageName & "?" & ret End Function Function MX_TableSort_replaceQStringParam(qstring, paramName, paramValue) retqstring = "" arrqstring = split (qstring, "&") For i=lbound(arrqstring) to ubound (arrqstring) If arrqstring(i) <> "" and Instr(arrqstring(i),"=") Then ' fail safe keyval = split (arrqstring(i), "=") pname = keyval(0) pvalue = keyval(1) If lcase(pname) <> lcase(paramName) Then If retqstring <> "" Then retqstring = retqstring & "&" End If retqstring = retqstring & pname & "=" & pValue End If End If Next If paramValue <> "" Then If retqstring <> "" Then retqstring = retqstring & "&" End If retqstring = retqstring & paramName & "=" & Server.URLEncode( paramValue ) End If MX_TableSort_replaceQStringParam = retqstring End Function %>

[Íàçàä]