Hier finden Sie Informationen zu den aktuellen Aufträgen.
<%Try
VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW
'Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(799124)
Dim VERAGSQL = New VERAG_PROG_ALLGEMEIN.SQL
' MsgBox(VERAGSQL.GetADMINConnectionString())
'Response.Write(AD.Ordnungsbegriff)
Dim STANDORT = "SUB"
If (Request.QueryString.Count > 0) AndAlso (Request.QueryString("STANDORT") IsNot Nothing) Then
Try
STANDORT = (Request.QueryString("STANDORT"))
Catch ex As Exception
STANDORT = "SUB"
End Try
End If
If True Then
Dim AVISO_dt As System.Data.DataTable = VERAG_PROG_ALLGEMEIN.cAviso.getAVISO_List(STANDORT)
If AVISO_dt IsNot Nothing Then
If True Then 'AVISO.Status <> 1 And AVISO.Status <> 2 Then 'SENDUNGSTABELLE'%>