Modificare il file: \Admin\Cancella\Prodotti_list.asp

<%@ Language=VBScript %> <link REL="stylesheet" href="include/style.css" type="text/css"> <!--#include file="include/Prodotti_dbconnection.asp"--> <!--#include file="include/Prodotti_variables.asp"--> <!--#include file="include/Prodotti_aspfunctions.asp"--> <% Session.LCID = 2064 On Error Resume Next Dim rs, dbConnection strOrderBy="" strOrderImage="" Call CalculateOrderBy if request.Form("action")="" then Session(strTableName & "SQL")="" Session(strTableName & "MasterKey")="" end if strMasterKey = Request.Form("masterkey") if strMasterKey="" then strMasterKey = Session(strTableName & "MasterKey") end if Session(strTableName & "MasterKey") = strMasterKey TargetPageNumber=Request.Form("TargetPageNumber") if TargetPageNumber="" or Request.Form("action")="search" then _ TargetPageNumber=1 if Request.Form("PageSize")<>"" then Session("PageSize") = Request.Form("PageSize") end if if Session("PageSize")<>"" then PageSize = Session("PageSize") ' delete record if (Request.Form("mdelete")<>"") then set dbConnection = server.CreateObject ("ADODB.Connection") dbConnection.ConnectionString = strConnection dbConnection.Open Call ReportError for i=1 to request.form("mdelete").count ind = CInt(request.form("mdelete")(i)) strSQL="delete from " & strTableName & _ " where " & AddWrappers(strKeyField) & "=" & gstrQuote & Replace(request.form("mdelete1")(ind), "'", "''") & gstrQuote if strKeyField2<>"" then _ strSQL = strSQL & " and " & AddWrappers(strKeyField2) & "=" & gstrQuote2 & Replace(request.form("mdelete2")(ind), "'", "''") & gstrQuote2 if strKeyField3<>"" then _ strSQL = strSQL & " and " & AddWrappers(strKeyField3) & "=" & gstrQuote3 & Replace(request.form("mdelete3")(ind), "'", "''") & gstrQuote3 LogInfo(strSQL) dbConnection.Execute strSQL Call ReportError next dbConnection.close set dbConnection = nothing end if if Request.Form("action")<>"Search" and Request.Form("action")<>"AdvancedSearch" and Len(Session(strTableName & "SQL"))>3 then strSQL=Session(strTableName & "SQL") if strOrderBy<>"" then if InStr(1, strSQL, "order by")>0 then strSQL = Left(strSQL,InStr(1, strSQL, "order by")-1) & strOrderBy else strSQL = strSQL & strOrderBy end if end if else if gstrSQL="" then strSQL="select * from " & strTableName else strSQL = gstrSQL if LCase(Left(strSQL,7)) = "select " then if not InSQL(strKeyField, gstrSQL) then strSQL = "select " & AddWrappers(strKeyField) & ", " & Mid(strSQL, 8) if not InSQL(strKeyField2, gstrSQL) then strSQL = "select " & AddWrappers(strKeyField2) & ", " & Mid(strSQL, 8) if not InSQL(strKeyField3, gstrSQL) then strSQL = "select " & AddWrappers(strKeyField3) & ", " & Mid(strSQL, 8) if RemoveWrappers("")<>"" and not InSQL("", gstrSQL) then strSQL = "select " & AddWrappers("") & ", " & Mid(strSQL, 8) end if end if ' see if we have some search parameters ' regular search if Request.Form("action")="Search" and ( Request.Form("SearchFor")<>"" or Request.Form("SearchOption")="IsNull") then strSearchFor=Trim(Request.Form("SearchFor")) strSearchOption=Trim(Request.Form("SearchOption")) if Request.Form("SearchField")<>"AnyField" then if IsNumeric(strSearchFor) or IfNeedQuotes(GetFieldType(Request.Form("SearchField")))="True" or _ strSearchOption="Contains" or strSearchOption="Starts with ..." then strAdd = " where " & AddWrappers(Request.Form("SearchField")) & StrWhere(Request.Form("SearchField"), strSearchFor, strSearchOption, "") end if else strAdd = " where 1=0" end if if InStr(strSQL, " where ") > 0 then strAdd = " and (" & Mid(strAdd, 8) & " ) " strSQL = strSQL & strAdd end if ' advanced search if Request.Form("action")="AdvancedSearch" then sWhere="" For i = 1 To Request.Form("SearchFor").Count strSearchFor=Trim(Request.Form("SearchFor")(i)) strSearchFor2=Trim(Request.Form("SearchFor2")(i)) if strSearchFor<>"" or Request.Form("SearchOption")(i)="IsNull" then if sWhere="" then sWhere=" where 1=1" strSearchOption=Trim(Request.Form("SearchOption")(i)) if (IsNumeric(strSearchFor) and (strSearchFor2="" or IsNumeric(strSearchFor2))) or IfNeedQuotes(GetFieldType(Request.Form("FieldName")(i)))="True" or _ strSearchOption="Contains" or strSearchOption="Starts with ..." then sWhere = sWhere & " and " & AddWrappers(Request.Form("FieldName")(i)) & StrWhere(Request.Form("FieldName")(i), strSearchFor, strSearchOption, strSearchFor2) end if end if next if InStr(strSQL, " where ") > 0 then sWhere = " and (" & Mid(sWhere, 8) & " ) " strSQL = strSQL & sWhere end if strSQL = strSQL & " " & Trim(strOrderBy) end if if strMasterKey <> "" then n1 = InStr(strSQL, " where ") n2 = InStr(strSQL, " order by ") n3 = InStr(strSQL, "[Marca] = " & strMasterKey) if n3 = 0 then if n1>0 then if n2>0 then strSQL = Left(strSQL,n1) & " where (" + Mid(strSQL, n1 + len(" where "), n2-n1-len(" where ")) + ") and [Marca] = " & strMasterKey & Mid(strSQL, n2 ) else strSQL = Left(strSQL,n1) & " where (" + Mid(strSQL, n1 + len(" where ")) & ") and [Marca] = " & strMasterKey end if else if n2>0 then strSQL = Left(strSQL,n2) & " where [Marca] = " & strMasterKey & Mid(strSQL, n2 ) else strSQL = strSQL & " where [Marca] = " & strMasterKey end if end if end if end if Session(strTableName & "SQL") = strSQL Response.Write("<html>") Response.Write("<head>") Response.Write("<title>CANCELLA TUTTA LA LISTA</title>") Response.Write("</head>") Response.Write("<body topmargin=5 bgcolor=white") if Request.Form<>"" then Response.Write(" onLoad=""if (document.frmAdmin.SearchFor != null) document.frmAdmin.SearchFor.focus();""") Response.Write(">") %> <!-- log out form --> <form name=logout method=post action="login.asp"> <input type=hidden name=action value="logout"> </form> <!-- edit form --> <form method="POST" action="Prodotti_edit.asp" name="editform"> <input type=hidden id="editid" name="editid" value="" > <input type=hidden id="editid2" name="editid2" value="" > <input type=hidden id="editid3" name="editid3" value="" > <input type=hidden id="TargetPageNumber" name="TargetPageNumber" value=<%=TargetPageNumber%>> <input type=hidden id="NeedQuotes<%=BuildFieldName(strKeyField)%>" name="NeedQuotes<%=BuildFieldName(strKeyField)%>" value=""> <input type=hidden id="NeedQuotes<%=BuildFieldName(strKeyField2)%>" name="NeedQuotes<%=BuildFieldName(strKeyField2)%>" value=""> <input type=hidden id="NeedQuotes<%=BuildFieldName(strKeyField3)%>" name="NeedQuotes<%=BuildFieldName(strKeyField3)%>" value=""> <input type=hidden id="todo" name="todo" value="view"> <input type=hidden id=masterkey name=masterkey value="<%=strMasterKey%>"> </form> <% ' Pagination: Control Variables dim iNumberOfRows dim maxRecords dim maxpages dim mypage iNumberOfRows =0 maxRecords = 0 maxpages = 0 mypage = TargetPageNumber if mypage = "" then mypage =1 if CDBL(mypage)<=0 then mypage =1 %> <% if strMasterKey<>"" then %> <table><tr><td width=20>&nbsp;</td><td><p>Master table: [##MASTERTABLENAME##]</p></td></tr></table> <table rows='1' cols='1' align='center' width='95%' border='0'> <tr><td align="right"> <TABLE WIDTH=100% CELLPADDING=0 CELLSPACING=0 BORDER=0> <TR><TD BGCOLOR=black align=center> <table border=0 width=100% CELLPADDING=3 CELLSPACING=1> <% strMasterSQL = "##MASTERTABLESQL## where ##MASTERKEY## =" & strMasterKey set rsMaster = Server.CreateObject ("ADODB.Recordset") set dbConnection = server.CreateObject ("ADODB.Connection") dbConnection.ConnectionString = strConnection dbConnection.Open Call ReportError LogInfo(strMasterSQL) rsMaster.open strMasterSQL, dbConnection Call ReportError Call DisplayMasterTableInfo(rsMaster) rsMaster.Close set rsMaster=Nothing dbConnection.Close set dbConnection = nothing %> </table> </td></tr></table> </td></tr></table> <%end if%> <table align='center' border='0' height="45" width="168"> <tr> <% if strMasterKey<>"" then 'Session(strTableName & "SQL") = Session(strTableName & "MasterSQL") %> <form method="POST" action="Marca_list.asp" name="master" id="master"> <input type=hidden id="TargetPageNumber" name="TargetPageNumber" value="<%=Request.Form("masterTargetPageNumber")%>" > <input type=hidden id="cmdGotoPage" name="cmdGotoPage" value="GotoPage"> <input type=hidden id="action" name="action" value="backtomaster"> </form> <%end if%> <% If Session("UserID")<>"" Then %> <td width=20>&nbsp;</td> <td width=126>&nbsp;&nbsp;&nbsp; </td> <% End If %> </tr> <tr> <td width=20> <img border="0" src="../../Admin/immagini/SHUTDOWN.png" width="32" height="32"></td> <td width=126><b><font size="3"><a href="../default.asp">ESCI</a></font></b></td> </tr> </table> <p align="center"><br> <font size="3" color="#00FF00"><b>LISTA di NASCITA: <%=N_Lista%></b></font></p> <%' Control Functions %> <form method="POST" action="" name="frmAdmin"> <input type="hidden" id="TargetPageNumber" name="TargetPageNumber" value="1" > <input type="hidden" id="cmdGotoPage" name="cmdGotoPage"> <input type="hidden" id="action" name="action" value="Search"> <input type="hidden" id="orderby" name="orderby" value="<%=strOrderBy%>"> <input type="hidden" id="PageSize" name="PageSize" value="<%=Session("PageSize")%>"> <input type=hidden id=masterkey name=masterkey value="<%=strMasterKey%>"> <script language="JavaScript" src="include/jsfunctions.js"> </script> <script> var bSelected=false; function GotoPage(nPageNumber) { document.forms.frmAdmin.cmdGotoPage.value = 'GotoPage'; document.forms.frmAdmin.action.value = 'goto'; document.forms.frmAdmin.TargetPageNumber.value = nPageNumber; document.forms.frmAdmin.submit(); } </script> <% set rs = setupRs(strConnection,strSQL,PageSize) Call ReportError %> <% if not rs.eof then %> <% if CheckSecurity("", "Delete")=True then %> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <b> <a href=# onClick = "var i; bSelected = !bSelected; for (i=0;i<document.forms.deleteform.mdelete.length;++i) document.forms.deleteform.mdelete[i].checked=bSelected;"> <font size="3">Seleziona/deseleziona tutti</font></a></b> &nbsp;&nbsp; <b><a href="#" onClick="if (confirm('Vuoi veramente CANCELLARE LA LISTA?')) { document.forms.deleteform.submit(); return false; } else {return true;}"> <font size="3" color="#FF0000">Cancella i selezionati</font></a></b> <% end if %> <% end if ' quotes for search and edit fields for i=0 to rs.Fields.Count-1 strNeedQuotes=IfNeedQuotes(rs.Fields(i).Type) Response.Write "<input type=hidden name=NeedQuotes" & BuildFieldName(rs.Fields(i).Name) & " value=" & strNeedQuotes & ">" & vbCRLF if rs.Fields(i).Name=strKeyField or rs.Fields(i).Name=strKeyField2 or rs.Fields(i).Name=strKeyField3 then %> <script language="JavaScript"> document.forms.editform.NeedQuotes<%=BuildFieldName(rs.Fields(i).Name)%>.value = "<%=strNeedQuotes%>"; </script> <% if rs.Fields(i).Name=strKeyField then if strNeedQuotes="True" then gstrQuote=GetQuote(rs.Fields(i).Name) else gstrQuote="" end if end if if rs.Fields(i).Name=strKeyField2 then if strNeedQuotes="True" then gstrQuote2=GetQuote(rs.Fields(i).Name) else gstrQuote2="" end if end if if rs.Fields(i).Name=strKeyField3 then if strNeedQuotes="True" then gstrQuote3=GetQuote(rs.Fields(i).Name) else gstrQuote3="" end if end if end if next Session("gstrQuote")=gstrQuote Session("gstrQuote2")=gstrQuote2 Session("gstrQuote3")=gstrQuote3 %> </form> <!-- delete form --> <form method="POST" action="Prodotti_list.asp" name="deleteform"> <input type=hidden id=masterkey name=masterkey value="<%=strMasterKey%>"> <input type=hidden id="NeedQuotes<%=BuildFieldName(strKeyField)%>" name="NeedQuotes<%=BuildFieldName(strKeyField)%>" value="<%=IfNeedQuotes(rs.Fields(strKeyField).Type)%>"> <input type=hidden id="action" name="action" value="delete"> <input type="hidden" id="TargetPageNumber" name="TargetPageNumber" value=<%=TargetPageNumber%> > <% if strKeyField2<>"" then %> <input type=hidden id="NeedQuotes<%=BuildFieldName(strKeyField2)%>" name="NeedQuotes<%=BuildFieldName(strKeyField2)%>" value="<%=IfNeedQuotes(rs.Fields(strKeyField2).Type)%>"> <% end if %> <% if strKeyField3<>"" then %> <input type=hidden id="NeedQuotes<%=BuildFieldName(strKeyField3)%>" name="NeedQuotes<%=BuildFieldName(strKeyField3)%>" value="<%=IfNeedQuotes(rs.Fields(strKeyField3).Type)%>"> <% end if %> <table align='center' width='95%' border='0' cellpadding=3 cellspacing=2> <% if CheckSecurity("", "Search")=True then if rs.eof then Response.Write "<p>&nbsp;</p><p align=center><b>Non ci sono articoli per questa LISTA</b></p>" else call WriteTableHeader call loopRs(rs, CLng(PageSize)) end if end if %> <% rs.Close Set rs = Nothing %> </table> </form> <% if CheckSecurity("", "Search")=True then %> <script language="JavaScript">WritePagination(<%=mypage%>,<%=maxpages%>);</script> <% end if %> <% Response.Write("</body>") Response.Write("</html>") function setupRs(strConnection,strSQL,nPageSize) Err.Clear Set setupRs = server.CreateObject ("ADODB.Recordset") set dbConnection = server.CreateObject ("ADODB.Connection") dbConnection.ConnectionString = strConnection dbConnection.Open Call ReportError LogInfo(strSQL) setupRs.open strSQL,dbConnection Call ReportError ' Pagination: if NOT setupRs.EOF then setupRs.PageSize =nPageSize maxRecords = cdbl(setupRs.RecordCount) maxpages=cdbl(setupRs.PageCount) if cdbl(mypage) > cdbl(maxpages) then mypage = maxpages End IF setupRs.AbsolutePage = mypage maxrecs=cdbl(setupRs.pagesize) End IF end function sub WriteTableHeader %> <tr CLASS="blackshade" valign=top> <TD align=center> <img border="0" src="../../Admin/immagini/cestino.png" width="32" height="32"></td> <TD> <table><tr><td class=blackshade> <% if (rs.Fields("Cod").Attributes and 128) and ( rs.Fields("Cod").Type = 204 or rs.Fields("Cod").Type=205 ) then Response.Write Label("Cod") & "</td>" else %> <a class=blackshade href="Prodotti_list.asp" onClick="javascript: document.forms.frmAdmin.action.value = 'OrderBy'; document.forms.frmAdmin.orderby.value = '<%=Replace("Cod","'","\'")%>'; document.forms.frmAdmin.submit(); return false; "><%=Label("Cod")%> </td> <% if Request.Form("orderby")="Cod" and strOrderImage<>"" then Response.Write "<td><img src=images/" & strOrderImage & " border=0></td>" end if end if %> </tr></table> </TD> <TD> <table><tr><td class=blackshade> <% if (rs.Fields("Nome").Attributes and 128) and ( rs.Fields("Nome").Type = 204 or rs.Fields("Nome").Type=205 ) then Response.Write Label("Nome") & "</td>" else %> <a class=blackshade href="Prodotti_list.asp" onClick="javascript: document.forms.frmAdmin.action.value = 'OrderBy'; document.forms.frmAdmin.orderby.value = '<%=Replace("Nome","'","\'")%>'; document.forms.frmAdmin.submit(); return false; "><%=Label("Nome")%> </td> <% if Request.Form("orderby")="Nome" and strOrderImage<>"" then Response.Write "<td><img src=images/" & strOrderImage & " border=0></td>" end if end if %> </tr></table> </TD> <TD> <table><tr><td class=blackshade> <% if (rs.Fields("Descrizione").Attributes and 128) and ( rs.Fields("Descrizione").Type = 204 or rs.Fields("Descrizione").Type=205 ) then Response.Write Label("Descrizione") & "</td>" else %> <a class=blackshade href="Prodotti_list.asp" onClick="javascript: document.forms.frmAdmin.action.value = 'OrderBy'; document.forms.frmAdmin.orderby.value = '<%=Replace("Descrizione","'","\'")%>'; document.forms.frmAdmin.submit(); return false; "><%=Label("Descrizione")%> </td> <% if Request.Form("orderby")="Descrizione" and strOrderImage<>"" then Response.Write "<td><img src=images/" & strOrderImage & " border=0></td>" end if end if %> </tr></table> </TD> <TD> <table><tr><td class=blackshade> <% if (rs.Fields("Prezzo").Attributes and 128) and ( rs.Fields("Prezzo").Type = 204 or rs.Fields("Prezzo").Type=205 ) then Response.Write Label("Prezzo") & "</td>" else %> <a class=blackshade href="Prodotti_list.asp" onClick="javascript: document.forms.frmAdmin.action.value = 'OrderBy'; document.forms.frmAdmin.orderby.value = '<%=Replace("Prezzo","'","\'")%>'; document.forms.frmAdmin.submit(); return false; "><%=Label("Prezzo")%> </td> <% if Request.Form("orderby")="Prezzo" and strOrderImage<>"" then Response.Write "<td><img src=images/" & strOrderImage & " border=0></td>" end if end if %> </tr></table> </TD> <TD> <table><tr><td class=blackshade> <% if (rs.Fields("Foto").Attributes and 128) and ( rs.Fields("Foto").Type = 204 or rs.Fields("Foto").Type=205 ) then Response.Write Label("Foto") & "</td>" else %> <a class=blackshade href="Prodotti_list.asp" onClick="javascript: document.forms.frmAdmin.action.value = 'OrderBy'; document.forms.frmAdmin.orderby.value = '<%=Replace("Foto","'","\'")%>'; document.forms.frmAdmin.submit(); return false; "><%=Label("Foto")%> </td> <% if Request.Form("orderby")="Foto" and strOrderImage<>"" then Response.Write "<td><img src=images/" & strOrderImage & " border=0></td>" end if end if %> </tr></table> </TD> <TD> <table><tr><td class=blackshade> <% if (rs.Fields("Marca").Attributes and 128) and ( rs.Fields("Marca").Type = 204 or rs.Fields("Marca").Type=205 ) then Response.Write Label("Marca") & "</td>" else %> <a class=blackshade href="Prodotti_list.asp" onClick="javascript: document.forms.frmAdmin.action.value = 'OrderBy'; document.forms.frmAdmin.orderby.value = '<%=Replace("Marca","'","\'")%>'; document.forms.frmAdmin.submit(); return false; "><%=Label("Marca")%> </td> <% if Request.Form("orderby")="Marca" and strOrderImage<>"" then Response.Write "<td><img src=images/" & strOrderImage & " border=0></td>" end if end if %> </tr></table> </TD> <TD> <table><tr><td class=blackshade> <% if (rs.Fields("Dispo").Attributes and 128) and ( rs.Fields("Dispo").Type = 204 or rs.Fields("Dispo").Type=205 ) then Response.Write Label("Dispo") & "</td>" else %> <a class=blackshade href="Prodotti_list.asp" onClick="javascript: document.forms.frmAdmin.action.value = 'OrderBy'; document.forms.frmAdmin.orderby.value = '<%=Replace("Dispo","'","\'")%>'; document.forms.frmAdmin.submit(); return false; "><%=Label("Dispo")%> </td> <% if Request.Form("orderby")="Dispo" and strOrderImage<>"" then Response.Write "<td><img src=images/" & strOrderImage & " border=0></td>" end if end if %> </tr></table> </TD> <TD> <table><tr><td class=blackshade> <% if (rs.Fields("prenotato").Attributes and 128) and ( rs.Fields("prenotato").Type = 204 or rs.Fields("prenotato").Type=205 ) then Response.Write Label("prenotato") & "</td>" else %> <a class=blackshade href="Prodotti_list.asp" onClick="javascript: document.forms.frmAdmin.action.value = 'OrderBy'; document.forms.frmAdmin.orderby.value = '<%=Replace("prenotato","'","\'")%>'; document.forms.frmAdmin.submit(); return false; "><%=Label("prenotato")%> </td> <% if Request.Form("orderby")="prenotato" and strOrderImage<>"" then Response.Write "<td><img src=images/" & strOrderImage & " border=0></td>" end if end if %> </tr></table> </TD> </tr> <% end sub ' display table with results sub loopRs(rs,nPageSize) ' Pagination: dim iShadeTheDetail, iNumberOfRows, nColumns iNumberOfRows = 0 nDelete=1 nColumns=0 if isObject(rs) then ' Pagination: UNTIL iNumberOfRows>=maxrecs DO UNTIL rs.eof OR iNumberOfRows>=nPageSize ' To insure that every other one is shaded If iShadeTheDetail = 0 then sShadeClass = "class=shade" iShadeTheDetail = 1 Else sShadeClass = "" iShadeTheDetail = 0 End If %> <tr valign=top <%=sShadeClass%> onmouseover="rowRollover(<%=iNumberOfRows%>, 1);" onmouseout="rowRollover(<%=iNumberOfRows%>, 0);" id="tr_<%=iNumberOfRows%>" > <td align=center valign=middle> <% nColumns = nColumns + 1 strOwnerID = RemoveWrappers("") if strOwnerID<>"" then strOwnerID = rs(strOwnerID) if CheckSecurity(strOwnerID, "Delete")=True then %> <input type=checkbox name=mdelete value=<%=nDelete%>> <input type=hidden name=mdelete1 value="<%=rs(strKeyField)%>"> <% if strKeyField2<>"" then %> <input type=hidden name=mdelete2 value="<%=rs(strKeyField2)%>"> <% end if %> <% if strKeyField3<>"" then %> <input type=hidden name=mdelete3 value="<%=rs(strKeyField3)%>"> <% end if nDelete = nDelete + 1 %> &nbsp; <% end if %></td><TD><% if IsBinaryField(rs.Fields("Cod")) or Format("Cod")=FORMAT_DATABASE_FILE then Response.Write CreateImageControl(rs, "Cod", "") else strData = GetData(rs.Fields("Cod"), "") Response.Write ProcessLargeText(strData) end if %></td><TD><% if IsBinaryField(rs.Fields("Nome")) or Format("Nome")=FORMAT_DATABASE_FILE then Response.Write CreateImageControl(rs, "Nome", "") else strData = GetData(rs.Fields("Nome"), "") Response.Write ProcessLargeText(strData) end if %></td><TD><% if IsBinaryField(rs.Fields("Descrizione")) or Format("Descrizione")=FORMAT_DATABASE_FILE then Response.Write CreateImageControl(rs, "Descrizione", "") else strData = GetData(rs.Fields("Descrizione"), "") Response.Write ProcessLargeText(strData) end if %></td><TD><% if IsBinaryField(rs.Fields("Prezzo")) or Format("Prezzo")=FORMAT_DATABASE_FILE then Response.Write CreateImageControl(rs, "Prezzo", "") else strData = GetData(rs.Fields("Prezzo"), "") Response.Write ProcessLargeText(strData) end if %></td><TD><% if IsBinaryField(rs.Fields("Foto")) or Format("Foto")=FORMAT_DATABASE_FILE then Response.Write CreateImageControl(rs, "Foto", "") else strData = GetData(rs.Fields("Foto"), "") Response.Write ProcessLargeText(strData) end if %></td><TD><% if IsBinaryField(rs.Fields("Marca")) or Format("Marca")=FORMAT_DATABASE_FILE then Response.Write CreateImageControl(rs, "Marca", "") else strData = GetData(rs.Fields("Marca"), "") Response.Write ProcessLargeText(strData) end if %></td><TD><% if IsBinaryField(rs.Fields("Dispo")) or Format("Dispo")=FORMAT_DATABASE_FILE then Response.Write CreateImageControl(rs, "Dispo", "") else strData = GetData(rs.Fields("Dispo"), "") Response.Write ProcessLargeText(strData) end if %> </td> <TD> <% if IsBinaryField(rs.Fields("prenotato")) or Format("prenotato")=FORMAT_DATABASE_FILE then Response.Write CreateImageControl(rs, "prenotato", "") else strData = GetData(rs.Fields("prenotato"), "") Response.Write ProcessLargeText(strData) end if %> </td> </tr> <% iNumberOfRows = iNumberOfRows + 1 rs.movenext Loop end if end sub Sub CalculateOrderBy if Request.Form("action")="OrderBy" then strOrderBy = " order by " & AddWrappers(Request.Form("orderby")) if Len(Session(strTableName & "SQL"))>3 then nInd = InStr(1, Session(strTableName & "SQL"),"order by ") if nInd>0 then if Left(Mid(Session(strTableName & "SQL"),nInd+Len("order by ")),Len(AddWrappers(Request.Form("orderby")))) = AddWrappers(Request.Form("orderby")) _ and Right(Session(strTableName & "SQL"),3) = "asc" then strOrderBy = strOrderBy & " desc" else strOrderBy = strOrderBy & " asc" end if else strOrderBy = strOrderBy & " asc" end if else strOrderBy = strOrderBy & " asc" end if if right(strOrderBy,3)="asc" then strOrderImage="up.gif" else strOrderImage="down.gif" end if else strOrderBy = Request.Form("orderby") if strOrderBy="" and Len(Session(strTableName & "SQL"))<3 then strOrderBy=gstrOrderBy end if End Sub Sub DisplayMasterTableInfo(rs) %> <tr class="blackshade" valign=top> </tr> <tr class="shade"> <% if isObject(rs) then %> </tr> <% end if End Sub Function CreateMasterImageControl(rs, sFieldName, sTable, sKey) strImageWhere = " " & AddWrappers(sKey) & "=" & GetData(rs.Fields(sKey), "") CreateMasterImageControl = "<img border=0 src=""imager.asp?pictable=" & HTMLEncode(sTable) & "&picfield=" & _ HTMLEncode(AddWrappers(sFieldName)) & "&where=" & HTMLEncode(strImageWhere) & """>" End Function Function GetTotal(value, stype, iNumberOfRows, sFormat) if sFormat = FORMAT_CURRENCY and value<>"" then value = FormatCurrency(value) elseif sFormat = FORMAT_NUMBER and value<>"" then value = FormatNumber(CDbl(value), 2) end if if stype="COUNT" then GetTotal= "Count: " & CStr(iNumberOfRows) if stype="TOTAL" then GetTotal = "Total: " & CStr(value) if stype="AVERAGE" then GetTotal="Average: " & CStr(CDbl(value)/iNumberOfRows) End Function %>

[Íàçàä]