From b4006aa49108e698d6a4a915163b2256f04f9f15 Mon Sep 17 00:00:00 2001 From: ja Date: Wed, 3 Nov 2021 11:14:31 +0100 Subject: [PATCH] =?UTF-8?q?=C3=84ndeurngen=20und=20funktionieren=20aber=20?= =?UTF-8?q?Error=20in=20connectionstring=20bei=20verbindung=20zu=20datenba?= =?UTF-8?q?nk?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/VERAG_VARIABLES.vb | 1 + Customers/Invoices.aspx | 4 +- Customers/Invoices.aspx.vb | 270 ++++++++++++++++++++++++++++++-- Fehlermeldungen_Auflistung.xlsx | Bin 10435 -> 13168 bytes Global.asax | 4 +- login/login_FLEX.aspx.vb | 6 +- 6 files changed, 270 insertions(+), 15 deletions(-) diff --git a/App_Code/VERAG_VARIABLES.vb b/App_Code/VERAG_VARIABLES.vb index 11b339d..32960d1 100644 --- a/App_Code/VERAG_VARIABLES.vb +++ b/App_Code/VERAG_VARIABLES.vb @@ -11,4 +11,5 @@ Public Class VERAG_VARIABLES Shared Function geterrornumb() As String Return "Error:" + Space(1) + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(errornumb.ToString) End Function + End Class diff --git a/Customers/Invoices.aspx b/Customers/Invoices.aspx index 5e1d77c..db49a5f 100644 --- a/Customers/Invoices.aspx +++ b/Customers/Invoices.aspx @@ -108,7 +108,7 @@ - +
@@ -134,7 +134,7 @@ - +
diff --git a/Customers/Invoices.aspx.vb b/Customers/Invoices.aspx.vb index b07a782..397011a 100644 --- a/Customers/Invoices.aspx.vb +++ b/Customers/Invoices.aspx.vb @@ -12,7 +12,7 @@ Partial Class Customers_Default3 Dim LKWNR As String = "" Dim KDNAFNR As String = "" Dim dt As List(Of VERAG_PROG_ALLGEMEIN.cRechnungsausgang) - Dim reNr As String = "" + Dim reNr As String = "-1" Dim provider As CultureInfo = CultureInfo.InvariantCulture Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) @@ -136,6 +136,11 @@ Partial Class Customers_Default3 Protected Sub btn_b_Click(sender As Object, e As EventArgs) dt = Nothing + Try + Kdnrtext = Session.Item("CustomerID") + Catch ex As UnauthorizedAccessException When String.IsNullOrEmpty(Session.Item("CustomerID")) + lbl_status.Text = "Dieser Bereich ist nicht gestattet! Ein Fehler ist bei der Validierung der ID aufgetreten! Bitte erneut versuchen!" + End Try If valdaterage_1.IsValid And valdaterange_2.IsValid Then If String.IsNullOrEmpty(Kdnrtext) = False Then If Not String.IsNullOrEmpty(txt_Absender.Text) Then @@ -146,18 +151,263 @@ Partial Class Customers_Default3 If regex_txt_Absender.IsValid = True Then Absender = txt_Absender.Text Else - VERAG_VARIABLES.seterrorcount() - lbl_status.Text = VERAG_VARIABLES.geterrornumb + ": Fehler bei der Zuweisung" + VERAG_VARIABLES.seterrorcount(1) + lbl_status.Text = VERAG_VARIABLES.geterrornumb + ": Error with the Sender" End If Catch ex As Exception - VERAG_VARIABLES.seterrorcount() - lbl_status.Text = VERAG_VARIABLES.geterrornumb + ": " + VERAG_VARIABLES.seterrorcount(2) + lbl_status.Text = VERAG_VARIABLES.geterrornumb + ": Error Sender Validation" End Try End If + If Not String.IsNullOrEmpty(txt_Empfaenger.Text) = True Then + txt_Empfaenger.ValidateRequestMode = UI.ValidateRequestMode.Enabled + regex_txt_Empfaenger.Enabled = True + regex_txt_Empfaenger.Validate() + Try + If regex_txt_Empfaenger.IsValid = True Then + Empfaenger = txt_Empfaenger.Text + Else + VERAG_VARIABLES.seterrorcount(3) + lbl_status.Text = VERAG_VARIABLES.geterrornumb + "Error with the Reciever" + End If + Catch ex As Exception + VERAG_VARIABLES.seterrorcount(4) + lbl_status.Text = VERAG_VARIABLES.geterrornumb + "Error Reciever Validation" + End Try + End If + If Not String.IsNullOrEmpty(txt_KdNrAuftrag.Text) = True Then + txt_KdNrAuftrag.ValidateRequestMode = UI.ValidateRequestMode.Enabled + regex_txt_KdNrAuftrag.Enabled = True + regex_txt_KdNrAuftrag.Validate() + Try + If regex_txt_KdNrAuftrag.IsValid = True Then + KDNAFNR = txt_KdNrAuftrag.Text + Else + VERAG_VARIABLES.seterrorcount(5) + lbl_status.Text = VERAG_VARIABLES.geterrornumb + "Error with the Customer Order number validation" + End If + Catch ex As Exception + VERAG_VARIABLES.seterrorcount(11) + lbl_status.Text = VERAG_VARIABLES.geterrornumb + "Error Customer Order number Validation" + End Try + End If + If Not String.IsNullOrEmpty(txt_LKW.Text) = True Then + txt_LKW.ValidateRequestMode = UI.ValidateRequestMode.Enabled + regex_txt_LKW.Enabled = True + regex_txt_LKW.Validate() + Try + If regex_txt_LKW.IsValid = True Then + LKWNR = txt_LKW.Text + Else + VERAG_VARIABLES.seterrorcount(6) + lbl_status.Text = VERAG_VARIABLES.geterrornumb + "Error at Validation in LKW number plate field" + End If + Catch Ex As Exception + VERAG_VARIABLES.seterrorcount(12) + lbl_status.Text = VERAG_VARIABLES.geterrornumb() + "Error LKW Number plate Validation" + End Try + End If + If Not String.IsNullOrEmpty(txt_ReNr.Text) = True Then + txt_ReNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled + regex_txt_ReNr.Enabled = True + regex_txt_ReNr.Validate() + Try + If regex_txt_ReNr.IsValid = True Then + reNr = txt_ReNr.Text + Else + reNr = "-1" + VERAG_VARIABLES.seterrorcount(7) + lbl_status.Text = VERAG_VARIABLES.geterrornumb + "Error at the Validation in the invoice number field" + End If + Catch ex As Exception + VERAG_VARIABLES.seterrorcount(13) + lbl_status.Text = VERAG_VARIABLES.geterrornumb + "Error invoice number validation" + End Try + End If + If Not String.IsNullOrEmpty(txt_Absender_M.Text) = True Then + txt_Absender_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled + regex_txt_Absender_M.Enabled = True + regex_txt_Absender_M.Validate() + Try + If regex_txt_Absender_M.IsValid = True Then + Absender = txt_Absender_M.Text + Else + VERAG_VARIABLES.seterrorcount(1) + lbl_status.Text = VERAG_VARIABLES.geterrornumb + ": Error with the Sender" + End If + Catch ex As Exception + VERAG_VARIABLES.seterrorcount(2) + lbl_status.Text = VERAG_VARIABLES.geterrornumb + ": Error Sender Validation" + End Try + End If + If Not String.IsNullOrEmpty(txt_Empfaenger_M.Text) = True Then + txt_Empfaenger_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled + regex_txt_Empaenger_M.Enabled = True + regex_txt_Empaenger_M.Validate() + Try + If regex_txt_Empaenger_M.IsValid = True Then + Empfaenger = txt_Empfaenger_M.Text + Else + VERAG_VARIABLES.seterrorcount(3) + lbl_status.Text = VERAG_VARIABLES.geterrornumb + "Error with the Reciever" + End If + Catch ex As Exception + VERAG_VARIABLES.seterrorcount(4) + lbl_status.Text = VERAG_VARIABLES.geterrornumb + "Error Reciever Validation" + End Try + End If + If Not String.IsNullOrEmpty(txt_KdNrAuftrag_M.Text) = True Then + txt_KdNrAuftrag_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled + regex_txt_KdNrAuftrag_M.Enabled = True + regex_txt_KdNrAuftrag_M.Validate() + Try + If regex_txt_KdNrAuftrag_M.IsValid = True Then + KDNAFNR = txt_KdNrAuftrag_M.Text + Else + VERAG_VARIABLES.seterrorcount(5) + lbl_status.Text = VERAG_VARIABLES.geterrornumb + "Error with the Customer Order number validation" + End If + Catch ex As Exception + VERAG_VARIABLES.seterrorcount(11) + lbl_status.Text = VERAG_VARIABLES.geterrornumb + "Error Customer Order number Validation" + End Try + End If + If Not String.IsNullOrEmpty(txt_LKW_M.Text) Then + txt_LKW_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled + regex_txt_LKW_M.Enabled = True + regex_txt_LKW_M.Validate() + Try + If regex_txt_LKW_M.IsValid = True Then + LKWNR = txt_LKW_M.Text + Else + VERAG_VARIABLES.seterrorcount(6) + lbl_status.Text = VERAG_VARIABLES.geterrornumb + "Error at Validation in LKW number plate field" + End If + Catch Ex As Exception + VERAG_VARIABLES.seterrorcount(12) + lbl_status.Text = VERAG_VARIABLES.geterrornumb() + "Error LKW Number plate Validation" + End Try + End If + If Not String.IsNullOrEmpty(txt_ReNr_M.Text) Then + txt_ReNr_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled + regex_txt_ReNr_M.Enabled = True + regex_txt_ReNr_M.Validate() + Try + If regex_txt_ReNr_M.IsValid = True Then + reNr = txt_ReNr_M.Text + Else + reNr = "-1" + VERAG_VARIABLES.seterrorcount(7) + lbl_status.Text = VERAG_VARIABLES.geterrornumb + "Error at the Validation in the invoice number field" + End If + Catch ex As Exception + VERAG_VARIABLES.seterrorcount(13) + lbl_status.Text = VERAG_VARIABLES.geterrornumb + "Error invoice number validation" + End Try + End If + + If pickdate1.Text = Nothing Or pickdate2.Text = Nothing Then + Try + Dim erster = New Date(Now().Year, Now.Month, 1) + datevon = erster + datebis = Date.Parse(Now.ToShortDateString) + pickdate1.Text = datevon.ToShortDateString + pickdate2.Text = datebis.ToShortDateString + Catch ex As Exception + VERAG_VARIABLES.seterrorcount(14) + lbl_status.Text = VERAG_VARIABLES.geterrornumb + "Error in date time conversions" + End Try + Else + Try + datevon = Date.Parse(pickdate1.Text) + datebis = Date.Parse(pickdate2.Text) + Catch ex As Exception + VERAG_VARIABLES.seterrorcount(14) + lbl_status.Text = VERAG_VARIABLES.geterrornumb + "Error in date time conversions" + End Try + End If + + If String.IsNullOrEmpty(Kdnrtext) = False And String.IsNullOrEmpty(datevon.ToShortDateString) = False AndAlso String.IsNullOrEmpty(datebis.ToShortDateString) = False Then + dt = VERAG_PROG_ALLGEMEIN.cRechnungsausgang.GET_LIST_WEB(Integer.Parse(Kdnrtext), datevon, datebis, Integer.Parse(reNr), Absender, Empfaenger, LKWNR, KDNAFNR) + Else + valreq_pickdate1.Validate() + valreq_pickdate2.Validate() + If valreq_pickdate1.IsValid AndAlso valreq_pickdate2.IsValid Then + VERAG_VARIABLES.seterrorcount(15) + lbl_status.Text = VERAG_VARIABLES.geterrornumb + "Error in form validation. Please fill in all fields" + End If + End If + + If dt IsNot Nothing AndAlso Not dt.Count = 0 Then + Dim i As Integer = 0 + For Each d In dt + Dim tr As TableRow = New TableRow + Dim Cell As TableCell = New TableCell + Dim tbl_Cell_Index As TableCell = New TableCell + Dim tbl_Cell_ReNr As TableCell = New TableCell + Dim tbl_Cell_Auftragsdat As TableCell = New TableCell + Dim tbl_Cell_Absender As TableCell = New TableCell + Dim tbl_Cell_Empfaenger As TableCell = New TableCell + Dim tbl_Cell_LKWs As TableCell = New TableCell + Dim tbl_Cell_KundAuftrNr As TableCell = New TableCell + Dim tbl_Cell_Info As TableCell = New TableCell + + Dim zahl = i + 1 + tbl_Cell_Index.ValidateRequestMode = UI.ValidateRequestMode.Enabled + tbl_Cell_Index.Text = zahl.ToString + tr.Cells.Add(tbl_Cell_Index) + tbl_Cell_ReNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled + tbl_Cell_ReNr.Text = d.RechnungsNr.ToString + tr.Cells.Add(tbl_Cell_ReNr) + tbl_Cell_LKWs.ValidateRequestMode = UI.ValidateRequestMode.Enabled + tbl_Cell_LKWs.Text = d.LKW_Kennzeichen.ToString + tr.Cells.Add(tbl_Cell_LKWs) + tbl_Cell_Auftragsdat.ValidateRequestMode = UI.ValidateRequestMode.Enabled + tbl_Cell_Auftragsdat.Text = d.RechnungsDatum.ToString + tr.Cells.Add(tbl_Cell_Auftragsdat) + tbl_Cell_KundAuftrNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled + tbl_Cell_KundAuftrNr.Text = d.KdAuftragsNr.ToString + tr.Cells.Add(tbl_Cell_KundAuftrNr) + tbl_Cell_Absender.ValidateRequestMode = UI.ValidateRequestMode.Enabled + tbl_Cell_Absender.Text = d.AbsenderName_1.ToString + tr.Cells.Add(tbl_Cell_Absender) + tbl_Cell_Empfaenger.ValidateRequestMode = UI.ValidateRequestMode.Enabled + tbl_Cell_Empfaenger.Text = d.EmpfängerName_1.ToString + tr.Cells.Add(tbl_Cell_Empfaenger) + Dim btn As New ImageButton + btn.ViewStateMode = ViewStateMode.Enabled + btn.CssClass = "btn btn-primary" + btn.ImageUrl = "../images/pdficon.gif" + btn.Attributes.Add("href", "pdfviewer.aspx?P1=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d.FilialenNr).ToString() + "&P2=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d.AbfertigungsNr).ToString + "&P3=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d.RK_ID).ToString) + btn.Attributes.Add("target", "_blank") + btn.PostBackUrl = "pdfviewer.aspx?P1=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d.FilialenNr).ToString + "&P2=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d.AbfertigungsNr).ToString + "&P3=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d.RK_ID).ToString + tbl_Cell_Info.ValidateRequestMode = UI.ValidateRequestMode.Enabled + tbl_Cell_Info.Controls.Add(btn) + tr.Cells.Add(tbl_Cell_Info) + initcells(tr, tbl_Cell_Index, tbl_Cell_ReNr, tbl_Cell_LKWs, tbl_Cell_Auftragsdat, tbl_Cell_KundAuftrNr, tbl_Cell_Absender, tbl_Cell_Empfaenger, tbl_Cell_Info, + tbl_HeaderCellIndex, tbl_HeaderCell_ReNr, tbl_HeaderCell_LKWNr, tbl_HeaderCell_Auftragsdatum, tbl_HeaderCell_KundenAuftrNummer, tbl_HeaderCell_Absender, tbl_HeaderCell_Empfaenger, tbl_HeaderCell_Info) + normaltable.Rows.Add(tr) + i += 1 + Next + Else + Dim tbl_cellNothing = New TableCell() + tbl_cellNothing.ColumnSpan = tbl_Header_row.Cells.Count + tbl_cellNothing.Style.Add("text-align", "center") + Dim tr As New TableRow + tr.Style.Add("text-align", "center") + tbl_cellNothing.Text = Server.HtmlEncode("Keine Daten gefunden!") + tr.Cells.Add(tbl_cellNothing) + normaltable.Rows.Add(tr) + End If + Else + VERAG_VARIABLES.seterrorcount(16) + lbl_status.Text = VERAG_VARIABLES.geterrornumb + "Error in getting Customer-ID from login" End If - Else - lbl_status.Text = "The time chosen is newer then today or older than april 2001. Please correct." + Else + VERAG_VARIABLES.seterrorcount(8) + lbl_status.Text = VERAG_VARIABLES.geterrornumb + "The time chosen is newer then today or older than april 2001. Please correct" End If + MsgBox("Test") End Sub @@ -188,14 +438,16 @@ Partial Class Customers_Default3 Protected Sub valdaterage_1_ServerValidate(source As Object, args As ServerValidateEventArgs) If Date.Parse(pickdate1.Text) < Date.ParseExact("01.04.2001", "dd.MM.yyyy", provider) Then - lbl_status.Text = "Der zeitpunkt " + pickdate1.Text + "zu weit zurückliegend." + VERAG_VARIABLES.seterrorcount(9) + lbl_status.Text = VERAG_VARIABLES.geterrornumb + "The chosen time " + pickdate1.Text + " is too early" End If End Sub Protected Sub valdaterange_2_ServerValidate(source As Object, args As ServerValidateEventArgs) If Date.Parse(pickdate2.Text) > Date.ParseExact(Date.Now.ToShortDateString, "dd.MM.yyyy", provider) Then - lbl_status.Text = "Der Zeitpunkt " + pickdate2.Text + " ist zu weit in der Zukunft." + VERAG_VARIABLES.seterrorcount(10) + lbl_status.Text = VERAG_VARIABLES.geterrornumb + "The chosen time " + pickdate2.Text + " is too far in the future" End If End Sub End Class diff --git a/Fehlermeldungen_Auflistung.xlsx b/Fehlermeldungen_Auflistung.xlsx index 7d9a93cfa7cb40930ed995c862a7d9fbaee76a3a..e8ff1e1b995605de11109c872df2ecde81fd2e60 100644 GIT binary patch delta 8551 zcmZvB1y~$Qvo`J)AUKP=hLAvz1PyM%A-KD{EbhVG3GNQTA!yLxuFK-?7Pw3D|0n1B z?wx*~ndz#ouI`$yetW9A6;6!t<)vWZaG?;Okf5NTD4_D-#&+$Xp`enh@hM?|J@I4K z-`Uanj^nN{lq(d8*Vtun0$~>;i6`b@4MTHYm|^$&b}f#f136_#krd35K3Z)Y-_L*H zC$TY)E2qeIZZQ1ywV$JEg24)(=03S?6O*}{z6`rhoqirK`iod2SNHr3tTC=twV`sv zV~j)m%PAPt?XHQ@r9cf4cXZSvVBqI4_!GfOm$CfX7nZ{Yxm_Q->5{_}Lg&we-XDv@ z5E#xIx>TJqrkt#pGEl~x)hl;=K5G*ejM+s~Spbphv9Ij?Jb19Git@;vfGa0Y3&YY8 zl_BsnxJg1ClG{$~HH*QMIg*$o(vyqUc3g=q=?#KLgsT13ERnHys+2zNQNBEN4nA26Cfs@K_MgU; z55FOaEh|1weVAP1o1jLveb=d{#5vwXM}ef!ZKqcEW_diO;O8`<@at{dB0QVSt-T%M zI0XXS+8S6ISmZ~uJyjIQM;NYMLtuagw#Lax^{`|09{a6Q3@;ayH-}g@BZ|(IR*;eB zO%_gKTJ|NM zshBEvDbf}2)3S4`_Ucn{@Dyp-l@P%fLt%CRve6KRXB6~Y?`#yD)v*Ny zGff6&4R21?#qnZHA|)u_S)b7)A7ts_rOlTi8#r13%B+``hN)TJ*tgKasgqWDu4A$J z7)Rr{A#WKg695)mZ6|~C?H)rBlIXb9JfWY>1LVff^P`1@EL21&C``zLb+u%3v9Y(% zx3RHcb+xiAQ`VAOWXJW&s(Zq^kHD-K_XbffENP`y?$_?w}X$+bx zNbo^Fiy3Tw0w@w~y0A)Lj;S-ARTzI+@fTN7K)+D_q4_3z`c`wzobkA2W>j<;rYBbQ z^M{Mo1haa0w9qKH?nkPWQiMVAU2a1%+Jxx3#KPzXQW#y zxR%*huEep&;tlJx!H6mxo^+)rJ}=+aX3}i#O(Aber$eIs6VXl zT-+enOdH}dyU9W85=F%|^p(2%t#jP) zl|OxL|2k)NC|5W(cDfkDDbV*dM}&hQuhx6BP64@S6Q%o!i-aQt)GoXJa1)}an_Yvn zN72`F-h{y;RxaK1D*UCr(&fu6HYnAH{O;UDHuqpn?Hz0kvReYal}au4c2-{?Qz#4x zdH7bU&D-rviPBG(b0oLk*iEF)mnY55PXqpn)Kj)E2KHNf&51^aQ_ zv~#3sq?Uyp^vl=TDi|wRWOOe?0rzi5TRX4B3}ykhnHF-trbftrm^lNI>r%I=AIXx; zbvRE?WC;^#67Do69st^nObtARD2{W8ozU&%Am94e5BmpPP`^EinmApL9O6ld$WTz| ze>};-(aqAx;n|N4RHVWe*|FO3@5lm)N`hk&$|onD zR$>mQwHq#~Js2;rEj~^Zrrd7DTsX18H=7iIG>o{LQC{hnOubZ<3Hq?|vI{16^pmne z&dZ^b7$@M3)8m=w!hEi7qemYz4AQibtBq9)WggSD^u&>5qjZ;S`IkIAk;&+aHxVis zE!6O#-L|sSU=&OwCiO?;ki4z)9CS$*P4nAGRO=`JDwTT0%3Dd|W*l8}vJunJJ5y`@ zskBKd?fV_lA5yuzT8m7bG|d%mKLBYh)KWr2sMtXA59kb%;shT~+PLIIQeSi*HRWP% zo0TUV$`@k}!ldXHp?2-nPUtADH>BHhCloHLI?BPDQc9oIO$iYj`tpRN&(br_+v*F$ zuM!?bPAl2lkxW%9x;FGX#0no|#B%fY$ss0v!!jw=H-Vx*!`-PJE`ovMtT>Kj;j1K{ zL?8eHkGKkng`*VGrCG6_bTg0Yipgu)PPvQEl&Ti|a)P)#uIrlvS2G&$=Ef$&COgCl3?6VSCR3TYKTA}|D6fmeL9w;c{VRZvkwH*h`Bj2M*q7j9H!6G2OgME{Cr})O) zDnPw}s5c@mLhG@^N1cJ-J-Q2M^JyJyO6Vqf$IctKE#nQbV{om~311LWO^tc(Adg#4BNNmaJ32d_ zUVZf^YDMzDZAa)lC_Wr=1++_iWvAz_=%!B|*`-t)u8hkT|LV${Rc;eYnKGBjXEzl@ z9Tt>x7$K*UC`J2?$IeOLv;;m@;2{uavj?u}A!iWy+k;RVj$E9)AvknR8)rj62;_Kn zob*(!sNA=>LB~v&AIK{f!X@-!C1_I(-%z~X(^e{JIBaM{qrj=7&J)-YR(|q`lCg}G z;d`s;ErYgz=GH84z`Q}DjEie+SqMY!4b@-7i=5Z;SD zidI@3EljK9ODFGD)ZQH7mD}?Oc09ekRa5z)2o3V4(u;MsdHEo>E=SG^>;|s3Oi;*` z*08#aAaO)#ZatpZ^f!X26H@L#E|S9E?GoBH4-lM-cdjX7#J9d`)vWQx$ry3G)tcT& zw@G^JxIP8N55J8|Lv~AF4KS=}YC;F-S$ivvJIXuYGqtx`Q=gL z8X^R2Z3dz4SY)=%?9|QzspUFML=)cF^6OJW`k z)8FkkM6h@u^L}|n$oeXAwlk~u5^$UPSbmln%M(7dQR%sOu>SSrz_M1$o;8&Xyw9fo z*lM%Z_#z^MCA0U+D{h*hOv8t8JVc9*1yvjc=ny zJL=BcE>qp9bU1JASh#Zq&NMhrp*zz4!-%uRMu}8IC)I>X0G~R$*(HM>k0@RrFHECf z?@F!i3cR&4`u>&?(8+_#+c!U2n{wt?NGQ>ZYpM{U>RmB7^B&<3e$GjR-2tBs$<*Zh2Qg&gfS2(LzD6Feq<#ULz z`aSF|Z`sUi759d!^Zlyfcj+dH@ThavCoE;AwcY0Y2Kgqaye$|*lJ88^@R)U5JpZB7 z1?K~UjBI(~p4%VE)>nNU!6^N$xJ(c|`4Y1VACJY>W0aEUuvKF=S+S^HRHn20L7w2n ztoO+7j7W9y%NUh{pn8XV!K6Q2h5 zzBQfZVNbQ}64#prnGi|7foY_MH(!DGsh0IPHjW$Zwd2-8N*jVRedebXXX7I>4GW=U z5OSM>FtiB5Epb$0sgMizyg8lsROmfG485VNQS3X{ob1t_^~agfIdF)z17A{n5oW#L z1>;`(q=G*Sj-`{c;enF~7jNd!i}{Psdar9ix?EJv882KuPz41C={MGFoB&Om;G9}w z%dcocsD+kWblGY^x@4$T2TA7pj>{lbJgRbUDadm#Eu`Ry#+!E^Y2}b^mk!X z!gtwg2T}x~1Z*6Jk|Hv30U3v$rGzQ8QVK^$$(0M#5@NWtY?rRd^Ges1(gjPTs~M?Q zo7T|e!4(3Es}X3Qz);5&MHPcJ(}D>tds4lGd4td@V1ZSN0Tsmbin>pB2*vh3%I|&- z0q6I8CZ}Z>F;tAMN*=mX={rkEE>;W~;O~Op#Oz+`_$bdu=C%T(CQw~6heoKS??a$U zYe*4G?Xy+Ed`VQ1IV;FjjF4F{A~rLge~#oXP|a3LIOJAKfNjgfSW=$9U?lG>vFz_E zA=# z+yK&5#&A;JY9g^iyOiY?PjIXIrk?XW$8}@Ey$suE#&grq$@|pKHkAU17LvR{K8=l? z5@te=TRdTb3`R_H!}{YAd(2T;b43+0aQ}z! z3)yQ@1E4EYd%Cbu-X{-He`-iKcv`VWrC#RpgvA?Zv71Oz_IXk@mQJ0oaCyhcCAP-( zohhFiK=jOoB1rt!L;b9$dx-SWs>(IV><#m?GKptp?$wh3b~8EpJg{9_?YWf1cqX&i z+DQUmw9tBZq2o39v!V96H_#76ws>AVFq!wGowk=y*1&DCk(75026bNvYy?l2ocJDG zs8(TYye;#-nOwcc0kd67qch7EFj7zfb)x1BwMpfpc$WSvRcY+D`YOz_AG62jLFF(s zadVomnNy9HpK2Wjc+Cg}Z9VX&12lw|^gk8;x31~)Ck6jp-15_5J zPrv^aYv<8{h$wWl{u9qXi(ncENRtC)Y(Q_Zf{x+u$lx*-gqh=F9|GsX)nuzY=;fIg ztSZB#`@at+GX1y}7=K!!co|8*5HX;2P?0fgdl5~!N+{X->%yJB)kJ05&F%A@A?Fpp z^YEaRx2MJ(@bT34^?6&fMATv(eU#;HNA$&WlynpqTJMx9)<@X=O>&>_UrBUuQj0xN6v12Z;hPaR~bwq z6syI&?bJCwS7ga0VQcw-xh0sYmpAmN8AzcZU%j2a+R2Lh>lHP& z0rLVpDv*5+&i{111aI53<>DzLddK=L4JOyRE9t68?e2qd;_xEctG%?F{TAV;&9^O zgu}Qei_ZJn2eZ{q8-pE=tk>a(i$T+b(ki+{oxgFs9-@71d;`9vS1qt$g-MF%vpw(Jd0f!@^hOO=?4uV6O zBV6FD;ji03qhFDiN{9-^&dt4v`MQ+`R`_R<0HAg;`(431ARtXDs_K|x%OuO+ISD!2 zWR9Oe^!~`s1d!+=?XMw~*59(Cv{tKWb%b+w`*^H#v{TvGbtGAuH!InbKbHWY8>aV= zJz{>>;<|xXo-ebGt8;DE+u&V_yKh^KkbkoGxd_UcDt`H=A8lLqSK{$Y>yzx6+ECsh zYf~3j7ONm@VBID;?if?K(S!wq8fd@lGk2MKQ?23Q-3mri9eS-fOPsb;7f;hDkDVTP zG`4=@pwVAL>>NU<@HtP9S z$;uWf7a9!{20v?>P?=p4tF*Q?)y#;4rZs5WfQc-Ybn*OxAc<9qYFnF7j~K-~yJS_1 zRHQKP0&)a+TI&>fT85lEjY!RKHP`vKnnjFd1GCGQp%UrXNhf{7`Gu@?7*VSW0-*TJ zkkqXBb!$2@jbJlu*e{BS6y~WE?wNx7>?3^;wwUYm;xvIf?Q^}&w~s*)>y0uNKTtK> zDS4|)Aa@I+k=GYs=GnSfEV1m%o9 zvN<6e-y@VM4O!S-9?uBqs3Z#L1MVIYT(H2B&b_9emsC&iB2kVFwo{TQXr@-YU(oqY zh=UMh3Yuxdz1qM+TuLcQFTr{w%JIdlgOrIhvW<-QxuCp3C1s6bqUc;>zkQ#Gp7SR*I_X8e>$2yE;@zGNgU$KwvN zr*r&w>*GJIw>JbM+ZfXT-huxJV?;&99^Z|9OILcQr2KA5`B}O^%v!dDq@;vouOvbR zHQn0q_t0`m1|fiFTHpC^Y5!EK0_s>{Ps#qO?|I&8C$7=uY>Hy1gmBo%yD`DK+ z7lOHzbjo-uA-R9%bt$`D`BR%C%YDXkm%6=Zk zZ-HkN1y-7_j+sDU^gNf)Y&^5nbgd_bFAD8}k`PYwPq@CpOT; zqFWF5BeTwYeBUd(sdrUpkv~$k%w^>d`MqQ z3Qr0N6M3PR@sfUl^>&h&%}bGwNjaC1#^$058HHn6G6sgxpYcsfbSp+m6p{u@cW0+6;Sl ziNO4|y_!7Rw=&!rw1>h^Hz}4XExkMUqNMXu-^ZsB>DggCzEKHaCG(=hQ4C*pbl8y% zTg4BmVH;*ra*x5xAVq2lmWdPBWuu}MspGQ!JA^*ud8VZJ!!5iT(N4o#K(<7q=eD5|56GCSTTb%wNVo9{xf zK1RZ@@vZN0ZP*KPu=F#nj={eMj*%e7< zCZx2W_Q-7ep>0|Bg-6zdpo;iM*5hSL{M2FfsX8LE7Fysp?M+I5T?6pr@dj$F(Wcj7N>*FcfUOen~oe?ZBcpCy!6?q~aK7DI`;7&wf^iZ)&E>BI_G3^Gf~-vDMjvn#%c$)A0e$JD*kvyPA|QWh)4 zVD632x$gyi4zo1Dat96zInutv39-9xctxncN=f6DV!v&+c9hJB*S_J=ypna_v4FA^7Q2flg%06Wj67WV!$fsP>7GxScbgKp{Mjp?TS zxjNc(wdAihtPef?4H4HtYep+cqV@dAa4#!O7y6atG5Pj3J>tkNy8`%?*!XP%AD#KW z$O-GLGM{0-WAj!~JbOU8(D@T*ZbgOftb}~B2go5D>rb57K+n=Z*i_HV`Z;1|n6PaA zT>v-W7}YDd>iW%*b=?PoK)gG+L)d_CZ-i=MsN=5=iI)`lZ-dFm=guqPjS&O($7lH%-^b<^kVWlx`Z>pe^Qk^K_( z`D)H{3*Ox1hp!&vm0|w+Il~I0g<9>(e8MS{%dUW&vYfK)hd7-q_$`=W_+(UekN+&d z-&J1r|6MfM|962U?14gHt2{egHttf>kld+OE6)qikU*}F#by-6D@}-3U}DHq`6OAM zm#hKp5aVZ#nQTBAIUt$M59ieT|OJeq+ihd3~*~@v%Fkn=mZ!KB}~7ZDCF{!b5>&c6tcNB!8Zi6E}@l z;*%_tf4$8GLf!6eDub)6d%cwcH@(Iy>ZRjn`nq0~ce_(|rX$5U(7CXn*_l^2l7-5= zbe|T}f3kKSEeuVEqY4P--{ixdo4rGK`;JtA#eFC|LWer Y#@^^p|L_RUtAw z-v4*K-?!HP?6uC?&wk$ho*n1BXTQ(BeYZBHmKqxR0{|uf8vp<>0rGfVz|JTD0C5c^ zGb*Gqty8lbh#$H4^n*N{$EnWa2{vNEs)K|b^pKHtmxfQ{jTr61!kWE}Txq4;)?01b z%iH#5U-mjPn_52fsgZOS(|AKneTla_<+gi6>sNVpR1tbzVt8x|Xti_47f!W{K^^h6 zeCd^m<1+4vwUJ7e-y{v^%S>M=6wSO_HU9)@FhpsmPuOkt7J()NxICKmKE#I4W@bw5 zAdf;>U&*Eq6NMrS2EuB~0QUKP; zLtfX6#)d|mij}sFez*EEXaE2W02>8%1Ei_L!oo&@RHhC&^#Jh|e?{DcjkkFShG<24 z*pENYbj^PG$~{d?-5SdzoC;rMetkvd95fW52-n^vYfqS zn+@kVNTIZ~h9|6;Xkzpcqs-)ksOOLU#Z;3@I z0K!gCRm8%qhpu^TR=L!8EhaC7hsn9zihCx}iLEe#n|jjcM>AEFrba-RFLuopcBCP~ zf8=?J-y`Q^LWSB`r`Of0OXVnt5gAkioq)*(U;a%B#`F)X7gbn_`nmo6TS`w`Dm!-g za4Heu9N{vZW6j-~mVr%r!(Lozh8t3^e0__S&!4@M|5QQjvfRI7^R$fxGRG$>9&F9l z{j3%@|6P{@5ZWHE^u+k1zBTp|$2gS3jbCEc;vm*+x5#EG}~5u=t-FOJ(wE-MZ7TB@FG405Wz_zZA5`!C@@u3XijU`{>}L7 zZsqp2^7jve^l`PCefn-7-ll?_yknGSxO~GlExIMT8TuR*I9a`Mco@3^q-}1QrucdV z6f(`yo9S^w+q~xY0R`mDU>%{&{mN1Z@A z&OyD|axQ^MyXNtt*N5Z+-Z9|`K*o&C_+c%iV-hV{|IQaLzB!GC)}>#!aJISfJ9#qZmL?h&uMm7Fj#FOZjE zL!nrgfDQF+!fpF$mBx9>BaC3sBn5YKV9wR~kD-h*H|Z7%5nWchyw*9}%~xXIGySFf zhB7XXc(C4lB3bw>>}Nvirvu5)(`Ck;9uo9RaDwc743CsZQ`wE-JIYdvavH5YouKUE zBuMc^v}bAxgha*AhfBVjU;Ha9baLTIoXzVh)-UksUsLtE{zwV#8Td@gVQUZ5xq>U5 zzf`OM=C}*NI+5Sl>sR)MB#cz{igt&zM`tHo5UX@+SPe_`U+7{Log$FFZ+uUmF6XZLLX@}R;Bg57cftV?-Nssz$xp{8OYg1n+U7e~-F#d>v+J79kvhom zElI0h6953Ww`hR-|0k@K2)8bP5`qQMqpHPSz1sv!ECArn;P*y&2e{b%-hm>$W$-+Z z_+@_mZRcUoCMz)}r;45`i{56D3ed5d-J_!%qL64+FnRMUmyEGY!pHeiE_nTDeQ)gv%nUTsAuZOzJui%8>)Q(X5Lezm;1 z3~vWpr58&qD2JDjWN7r+x4K2zBh4ZZXuBgfSS&#e;gaC_(SV`{{Y@46k@8ze`Da&g z2TFL~37LczN*(|vJkl_RX_QRJJrno_nL`&+Mah#YJwn zJ#;Xj!P7TpbUO20Z__u}Zyle8UO1Y%w|t4k%}~YiGS4k4TcgyZB0r6#V*|Zb*cJiF4`hlP(8T^P(qJzsNo~t>B&Wc|8?N|Rmj=gEQEo7=oz@AE67SOH)9?COvz^1 zX1#K8eZ2&JdkH4;6I!mwKK}45?(nnz&EtyeXIp#iCT;0oW-dM%uE|D1ygnW#X?Pi- z%jVM0aUqm{MC3Aga#rZfcT|7T(X!x9-&HKsAsIXHC(W6-+HRtzfNLZkx_=UCL<>1GLss4ry%JoYY z?W_PW`PJKffwU-+WefTZNScG5QAU(K`d?w`=Pj2j$b$yXakih2 zgXNh)Ki`cSyv0CD(wvK|gGsT(Fop%Ouv5zr`2O;32<}m4-LEQ955PU+p;H1&f{@Sa- z2#b{pP*G*Xs}l7(c8C=YPb@tDvsLUZA0aBkHvq~**=ydUQ%3vaQTVUSXU^UcZtrOlb6#K5I06=v)LjY1oSCt%g0DY;yoOOY)V{yUXAu7+ zMl)`tz8drB>2V7BOY78)M>y{0zt~@3Ddj|%%@=Li>9qyElYG5*!uG>no+A0|w4*E9 zb0;!Rk&NnqM)PJUunpgQCElJPcBjF5(SUUZcfw%1ikyiXwF9E$i!76ROzGvTiJpcDG@-O^W%7Lc`uypYX3Hk})U@_rjM+b?Lw!86eO9{$ds7>>f`+(lx+{%`ie{d_ z(*)OPni;+~to0268`-&J>N)>)Y>YcS=c;dRZ#0VXKVA?g-Y;j51lz2PyFF{dcO;g( z24{hlR_6+1)bX(?74Wd;!Pvki?$E{gn%ZN}LKJ30rs!#mW9 zIlgoSeSFHxUO)*+5fik8$u_yEgb3tgJf$c{(mQziWa>H;NsE35eKBcD2wr8RnR&bh zqfpTozZV@7Gm_Mn%0sdzjay}5p(Qx2US)l^2PHhp-&|E_^03}p>sbkgD4c9q(S0e6 z*_~p}_)5z06}tU6akHmetel+eYh27nY95|ii?wn$$!K{!QT7&k8*l$jPPN*k!ixi7 z;%2|@FPnLuB=Z(ZeweH-wL7M96SYl}HV zn%-Q$HeUdha)WKTiC}{OWFCIsB6ZhtVp|?m+x()@6d5TIRbDI^UzjEMMZ@TOZ4XFS zVrl>$K_fusW6)RHD<_)vH}>$pgBXbg(*>GUyi?JIt%6E??)bf$$nS%431TfgHdCnm zT07zQq`zy`-|Ub7W+8jO>1Zz>tiB~U{JP2^tN_M?_h=Pa6+ixMT>G?DIuXVbRn8Oj zw>$6Z&jWDzFL3#-}m#QR#UwSfsU>Ou;!$UqKnPrCvoy8p)xQQWgEiMxYT z4IQAxr*S!^Mx`Xmes=N3D^$C1Ma?P*?-VJ=Kb<}Q)w$Gsb~B@o_~`$6_*RA z4T6uR9;f_gnA&mUpnpR=I{A-e;{ST?|DV)zhqNf$jGId9;u47ZS#zjSIN6T#Q5Sa0 zlhL^C_GqTxk8b*|;cjZy9KN--_ft!~pE#%QZ|k0W>w8jJvNvs10aIWsg2uyJ?S5Cx zx9j)#>z@q^Y>-`YA@UBrcF4CGmm~o~j!oB3Ht_3 ziL|GfI03_6Og<6{eswBhPeOgv@rpeOq()M_)bmQfyQM(wAeA^?)+Iz2<>?MzZus2dI;-n;gh%%skJC0ZvhL)FmLM z3xnd<*NJT^oT+Vf*q$oOOU-H9PayChB^rxnjVr_N^r|aeB8Gm{)@^?Q1>a!HXjZ#z zRYX2FF!Ok#!Yk%8!S$5=ot88yr}pN9-jZo@R1APm{I}5L7=1bz|*d7XdIM z`}@t6eK1KdddAz-w*-BHUo4%j^tC@`SWjzQPmZuf!%o1(Aq6sJRaN4I3M)geHGCEZ zP4{`n+ zsqZBzSUV9W?n*Q3GR0kLqlyk&;h}^~eO2uN5=VaX>I}m6+AS7>nL%E(yj~$kVuZUb zQq0#2D<1C>K+P8S-hpBJtl?Ar)gHinkAdqn$%86pGM&e{7v87GH>ZKWp0HOl<#qwz zA~zn}ONcay`p`z6zQqd>w2MfS^4XG*G0I-xPh{FF7B4&*X$9>Q& zeoM@-tUQc<2z6=-VI(QFNB`FnER`BJVtZQcd?$lhi%NBF@YZOTM0M`#m&_neEY2WK z$e{+ZWBYfhwA2UkWRiczwa2J~8g<@7yiAPGsP-szuZ%i)Eh&COe0xlxu)jJ#TiOGK zGO0h`!(>@}V$1ziy|%Um|Beh2-yn=EhI{b{hb=-RH|uVV`06mZ7*Qapoo);FsvX)X zVdQQ?jxT5A6MgL>`ar`PfJcyntpo|XT4WE6O1=ZQmXg-BFlO?!o^~Mr;w0ux%bY0x z7Lc7bnCWMosV!2Yv~rnZwd~5{z|1zL!(av4FGmNAp}jtdGwvO;W{u;r!OO?3VR52- z&R*AzIT3F+s!DH-2I+BJ9MqbbUNHj-5Co=X1ia+)c!uPu+|YTo)vqU!9#?jAv0jFXd`oruA0URP3E{78V$vDEO6G?Bv?< zEmdIZQFFLz9_}Ve0mDyR7j+zvaNYZ1SIL0CoxFqx~a@0RTk*aQ77gm^_G??tfK*KPC$J zuoyvhSO6t4{-4Gn0vM_w8{Pk=uzw6x$zh=&2D(4zdjNpy4|`WLpn}N@a{nDcVL%~r z5?%%Xz!q$yqrSg5d};EBy05->uJo8!)i^%b}IK a`+aVqrG{~rZ2$mxcctwv_ugZ>NB;-V8Ngrw diff --git a/Global.asax b/Global.asax index 51da6f3..e46e1e6 100644 --- a/Global.asax +++ b/Global.asax @@ -30,7 +30,7 @@ void Session_Start(object sender, EventArgs e) { // Code, der ausgeführt wird, wenn eine neue Sitzung gestartet wird - VERAG_VARIABLES.initerrorcount() + VERAG_VARIABLES.initerrorcount(); } void Session_End(object sender, EventArgs e) @@ -39,7 +39,7 @@ // Hinweis: Das Ereignis "Session_End" wird nur ausgelöst, wenn der Modus "sessionstate" // in der Datei "Web.config" auf "InProc" festgelegt ist. Wenn der Sitzungsmodus auf "StateServer" // oder "SQLServer" festgelegt ist, wird das Ereignis nicht ausgelöst. - + Session.Remove("TokenforEmail"); diff --git a/login/login_FLEX.aspx.vb b/login/login_FLEX.aspx.vb index cb54da1..074de72 100644 --- a/login/login_FLEX.aspx.vb +++ b/login/login_FLEX.aspx.vb @@ -162,12 +162,14 @@ Partial Class login_FLEX If tb2.Text = dr("Username") Then UserNaMe = dr("Username").ToString Else - Login1.FailureText = "Username is not in the database!" + VERAG_VARIABLES.seterrorcount(8) + Login1.FailureText = VERAG_VARIABLES.geterrornumb + "Username is not in the database!" End If If tb3.Text = dr("Password") Then passw = VERAG_PROG_ALLGEMEIN.cCryptography.Encrypt(dr("Password").ToString) Else - Login1.FailureText = "Password is not in the database!" + VERAG_VARIABLES.seterrorcount(9) + Login1.FailureText = VERAG_VARIABLES.geterrornumb + "Password is not in the database!" End If MsgBox("Erfolgreich validiert.")