quote:Originally posted by lucastSuggestion....Make a copy of each of the resource module scripts from the Netperfmon/resources/.... directories. Rename them. Modify the ASP code to read in a URL parameter. This parameter would contain the DV_Facility code to look up. Modify the SQL query in each module code to include a WHERE clause looking for the custom property value.In theory, this would work quite well however I just don't have time at the moment to write it for you. Perhaps when things settle down here, I.e. after we get V8 up and running solidly.HTH
<!--#include Virtual=/NetPerfMon/scripts/NetPerfMon.asp --><% SelectWeb "NetPerfMon" VerifyLogin "USER" Dim SQLResource Dim SearchStr Dim Count Dim ViewID Dim Field Field = Request("Field") SearchStr = Request("SearchStr") Count = 0 DoStyleSheets%> <table width="100%" border="0" cellpadding="8" cellspacing="0"> <tr class="ViewHeader"> <td height="35" align="left" nowrap> View Search Results of '<b><%=SearchStr%></b>' within <b><%=Field%></b> </td> </tr> </table><% SearchStr = Replace(Replace(SearchStr, "*", "%"), "'", "") Set SQLResource = NetPerfMon.NewSQLResource SQLResource.SQL="Select DV_Facility From Nodes Where [" & NetPerfMon.CleanSQLParam(Field) & "] Like '" & NetPerfMon.CleanSQLParam(SearchStr) & "' Group by DV_Facility " SQLResource.Execute If SQLResource.EOF Then Response.write "<br><font color=red size=2>No facilities were found with ""<b>" & SearchStr & "</b>"" in the <b>" & Field & "</b> Property.<br></font>" Response.Write "<br><br><font size=2>Try using wildcards in your search.<br>For Example :<br><br>" Response.Write " Cisco*<br> 10.15.*.*<br> W?ndows<br> Server-*<br> *.SolarWinds.Net </font>" End If%> <table border="0" cellPadding="2" cellSpacing="0" width="100%"><% Do While Not SQLResource.EOF %><tr> <% ViewID = 23 %> <td class="Property" nowrap><a href="thwack.solarwinds.com/.../View.asp </td> <% If Field <> "Caption" Then %> <td class="Property" nowrap><a href="thwack.solarwinds.com/.../View.asp </td> <% End If %> <td class="Property" width="100%"> </td></tr><% SQLResource.MoveNext Count = Count + 1 Loop%></table><br><% if Count = 1 then Response.Redirect "/NetPerfMon/View.asp?ViewID=" & ViewID End if%>
SQLResource.SQL="UPDATE Limitations SET WhereClause = '((Nodes.DV_Facility = '(Field)'))' WHERE LimitationID = '49'"