/SQL/scripts/srv/srvcon.asp

http://github.com/khaneh/Orders · ASP · 56 lines · 54 code · 2 blank · 0 comment · 0 complexity · 52f763ed46818c9ed0fc96bdccfef680 MD5 · raw file

  1. <!-- #INCLUDE FILE="../inc/mla_sql_include.asp" -->
  2. <%
  3. Dim myArrCon, myConCount, i, myObjStr, myStrClass, myStrImg, myStrTree
  4. openConnection
  5. myStrTree = getTreeStr("2_3_1", Array())
  6. myArrCon = getSrvCon()
  7. closeConnection
  8. If isArray(myArrCon) Then myConCount = UBound(myArrCon, 2) Else myConCount = -1 End If
  9. %>
  10. <!-- #INCLUDE FILE="../inc/metaheader.asp" -->
  11. <BODY>
  12. <P CLASS="treeinfo"><% = myStrTree %></P>
  13. <TABLE BORDER=0 CELLPADDING=2 CELLSPACING=0 CLASS="content" SUMMARY="Database Information">
  14. <TR><TD CLASS="caption">
  15. <IMG SRC="../../themes/<% = mla_cfg_theme %>/images/mylittletree/connection.gif" WIDTH="16" HEIGHT="16" BORDER=0 ALIGN="MIDDLE" ALT="Connections"> <% = myTObj.getTerm(230) %></TD></TR>
  16. <TR><TD>
  17. <TABLE BORDER=0 CELLPADDING=2 CELLSPACING=2 ALIGN=CENTER CLASS="content" SUMMARY="Connection List">
  18. <THEAD>
  19. <TR><TD CLASS="collabel"><% = myTObj.getTerm(240) %></TD><TD CLASS="collabel"><% = myTObj.getTerm(241) %></TD><TD CLASS="collabel"><% = myTObj.getTerm(242) %></TD><TD CLASS="collabel"><% = myTObj.getTerm(243) %></TD><TD CLASS="collabel"><% = myTObj.getTerm(122) %></TD></TR>
  20. </THEAD>
  21. <TBODY>
  22. <%
  23. Set myObjStr = New mlt_string
  24. For i = 0 To myConCount
  25. If i MOD 2 = 0 Then myStrClass = "odd" Else myStrClass = "even" End If
  26. Select Case myArrCon(1, i)
  27. Case 1: myStrImg = "connection_ntgroup.gif"
  28. Case 2 : myStrImg = "connection_ntuser.gif"
  29. Case Else : myStrImg = "connection.gif"
  30. End Select
  31. myObjStr.strAppend "<TR CLASS=""" & myStrClass & """>" & vbCrLf
  32. myObjStr.strAppend "<TD NOWRAP><IMG SRC=""../../themes/" & mla_cfg_theme & "/images/mylittletree/" & myStrImg & """ WIDTH=""16"" HEIGHT=""16"" BORDER=0 ALT=""" & myArrCon(0, i) & """ ALIGN=""MIDDLE""> "
  33. myObjStr.strAppend "<B>" & myArrCon(0, i) & "</B>"
  34. myObjStr.strAppend "</TD>" & vbCrLf
  35. Select Case myArrCon(1, i)
  36. Case 1 : myObjStr.strAppend "<TD>" & myTObj.getTerm(244) & "</TD>" & vbCrLf
  37. Case 2 : myObjStr.strAppend "<TD>" & myTObj.getTerm(245) & "</TD>" & vbCrLf
  38. Case Else : myObjStr.strAppend "<TD>" & myTObj.getTerm(223) & "</TD>" & vbCrLf
  39. End Select
  40. myObjStr.strAppend "<TD>" & myArrCon(2, i) & "</TD>" & vbCrLf
  41. myObjStr.strAppend "<TD>" & myArrCon(3, i) & "</TD>" & vbCrLf
  42. myObjStr.strAppend "<TD>" & myArrCon(4, i) & "</TD>" & vbCrLf
  43. myObjStr.strAppend "</TR>" & vbCrLf
  44. Next
  45. Response.Write myObjStr.getStr()
  46. Set myObjStr = Nothing
  47. %>
  48. </TBODY>
  49. </TABLE>
  50. </TD></TR>
  51. </TABLE>
  52. </BODY>
  53. </HTML>
  54. <!-- #INCLUDE FILE="../inc/mla_sql_end.asp" -->