<% LANGUAGE="VBSCRIPT"
 
' Deffinition der Variablen
'
' Anzahl der Steuerungen
 
 max = 30
 
'############# End of config ###########################
 
 Set ServerObj = CreateObject("OPC.Automation.1")
 
 ServerObj.Connect "RSLinx OPC Server"
 
 Set GroupObj = ServerObj.OPCGroups.Add("test")
 GroupObj.IsActive = TRUE
 'GroupObj.IsSubscribed = False
 
 Set ItemObj = GroupObj.OPCItems.AddItem("[KZW_S8]Steuerung[0].Bezeichnung",1)
 GroupObj.OPCItems.AddItem "[kzw_s8]Steuerung[0].Betrieb",1
 GroupObj.OPCItems.AddItem "[kzw_s8]Steuerung[0].Zyklus",1
 GroupObj.OPCItems.AddItem "[kzw_s8]Steuerung[0].Sonder",1
 
 GroupObj.OPCItems.Item(1).Read(1)
 GroupObj.OPCItems.Item(2).Read(1)
 GroupObj.OPCItems.Item(3).Read(1)
 GroupObj.OPCItems.Item(4).Read(1) 
 
 
 z = 0
 
 for i = 1 to max
 
 GroupObj.OPCItems.AddItem "[KZW_S8]Steuerung["&i&"].Bezeichnung",1
 GroupObj.OPCItems.AddItem "[kzw_s8]Steuerung["&i&"].Betrieb",1
 GroupObj.OPCItems.AddItem "[kzw_s8]Steuerung["&i&"].Zyklus",1
 GroupObj.OPCItems.AddItem "[kzw_s8]Steuerung["&i&"].Sonder",1
 
 GroupObj.OPCItems.Item(z+1).Read(1)
 GroupObj.OPCItems.Item(z+2).Read(1)
 GroupObj.OPCItems.Item(z+3).Read(1)
 GroupObj.OPCItems.Item(z+4).Read(1) 
 
 z = z +4
 
 next
 
 
 
 'Dim myValue
 'Dim myQuality
 'Dim myTimeStamp
 'ItemObj.Read 1, myValue, myQuality, myTimeStamp
 
Function GetQualityText(Quality)
    Select Case Quality
        Case 0:     GetQualityText = "BAD"
        Case 64:    GetQualityText = "UNCERTAIN"
        Case 192:   GetQualityText = "GOOD"
        Case 8:     GetQualityText = "NOT_CONNECTED"
        Case 13:    GetQualityText = "DEVICE_FAILURE"
        Case 16:    GetQualityText = "SENSOR_FAILURE"
        Case 20:    GetQualityText = "LAST_KNOWN"
        Case 24:    GetQualityText = "COMM_FAILURE"
        Case 28:    GetQualityText = "OUT_OF_SERVICE"
        Case 132:   GetQualityText = "LAST_USABLE"
        Case 144:   GetQualityText = "SENSOR_CAL"
        Case 148:   GetQualityText = "EGU_EXCEEDED"
        Case 152:   GetQualityText = "SUB_NORMAL"
        Case 216:   GetQualityText = "LOCAL_OVERRIDE"
 
        Case Else: GetQualityText = "UNKNOWN ERROR"
    End Select
End Function
 
On Error Resume Next%>
server=<%=ServerObj.ServerName%><br>
<%
 
max = (max-1)*4
z = 1
 
for i = 0 to max step 4
 
  bezeichnung = ""
  betrieb = ""
  zyklus = ""
  sonder=""
  stat = ""
  timest = ""
 
  bezeichnung = (GroupObj.OPCItems.Item(i+1).Value)
  betrieb= (GroupObj.OPCItems.Item(i+2).Value)
  zyklus = (GroupObj.OPCItems.Item(i+3).Value)
  sonder = (GroupObj.OPCItems.Item(i+4).Value)
 
  stat = GetQualityText(GroupObj.OPCItems.Item(i+3).Quality)
  timest = (GroupObj.OPCItems.Item(i+3).Timestamp)
 
  ausgabe = ""
  ausgabe =  z & ";" & bezeichnung & ";" & betrieb & ";" & zyklus & ";" & _
    sonder & ";" & stat & ";" & timest & "<br>" & chr(13) & chr(10) 
 
  Response.Write(ausgabe)
  z = z + 1
 
next
 
Set ItemObj = Nothing
ServerObj.OPCGroups.RemoveAll
Set GroupObj = Nothing
ServerObj.Disconnect
Set ServerObj = Nothing 
%>