diff --git a/Customers/CustomsAviso.aspx.vb b/Customers/CustomsAviso.aspx.vb index b89c8a5..abe9949 100644 --- a/Customers/CustomsAviso.aspx.vb +++ b/Customers/CustomsAviso.aspx.vb @@ -160,28 +160,28 @@ Partial Class Kundenbereich_Default dt = Nothing If txt_Absender.Text IsNot "" Then txt_Absender.ValidateRequestMode = UI.ValidateRequestMode.Enabled - Absender = txt_Absender.Text + Absender = Server.HtmlEncode(txt_Absender.Text) ElseIf txt_Empfaenger.Text IsNot "" Then txt_Empfaenger.ValidateRequestMode = UI.ValidateRequestMode.Enabled - Empfaenger = txt_Empfaenger.Text + Empfaenger = Server.HtmlEncode(txt_Empfaenger.Text) ElseIf txt_KdNrAuftrag.Text IsNot "" Then txt_KdNrAuftrag.ValidateRequestMode = UI.ValidateRequestMode.Enabled - KDNAFNR = txt_KdNrAuftrag.Text + KDNAFNR = Server.HtmlEncode(txt_KdNrAuftrag.Text) ElseIf txt_LKWNr.Text IsNot "" Then txt_LKWNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled - LKWNR = txt_LKWNr.Text + LKWNR = Server.HtmlEncode(txt_LKWNr.Text) ElseIf txt_Absender_M.Text IsNot "" Then txt_Absender_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled - Absender = txt_Absender_M.Text + Absender = Server.HtmlEncode(txt_Absender_M.Text) ElseIf txt_Empfaenger_M.Text IsNot "" Then txt_Empfaenger_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled - Empfaenger = txt_Empfaenger_M.Text + Empfaenger = Server.HtmlEncode(txt_Empfaenger_M.Text) ElseIf txt_KdNrAuftrag_M.Text IsNot "" Then txt_KdNrAuftrag_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled - KDNAFNR = txt_KdNrAuftrag_M.Text + KDNAFNR = Server.HtmlEncode(txt_KdNrAuftrag_M.Text) ElseIf txt_LKWNr_M.Text IsNot "" Then txt_LKWNr_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled - LKWNR = txt_LKWNr_M.Text + LKWNR = Server.HtmlEncode(txt_LKWNr_M.Text) End If If rbt_Alle.Selected = True Or rbt_Alle_M.Selected = True Then @@ -220,9 +220,9 @@ Partial Class Kundenbereich_Default Else Try datevon = Date.Parse(pickdate1.Text) - MsgBox(pickdate1.Text) + 'MsgBox(pickdate1.Text) datebis = Date.Parse(pickdate2.Text) - MsgBox(pickdate2.Text) + ' MsgBox(pickdate2.Text) dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Kdnrtext, {1}, datevon, datebis, Absender, Empfaenger, LKWNR, KDNAFNR) Catch ex As Exception MsgBox(ex.StackTrace, MsgBoxStyle.Exclamation) @@ -330,7 +330,7 @@ Partial Class Kundenbereich_Default tbl_cellNothing.Style.Add("text-align", "center") Dim tr = New TableRow() tr.Style.Add("text-align", "center") - tbl_cellNothing.Text = "Keine Daten gefunden." + tbl_cellNothing.Text = Server.HtmlEncode("Keine Daten gefunden.") tr.Cells.Add(tbl_cellNothing) normaltable.Rows.Add(tr) End If diff --git a/Web.config b/Web.config index 6b89d14..e2f3e85 100644 --- a/Web.config +++ b/Web.config @@ -27,6 +27,7 @@ +