Fixen des Accordion-Schließen Bug

2021-09-23 13:00:26 +02:00
parent 9ae3a92971
commit 4d0444d40a
8 changed files with 128 additions and 48 deletions
--- a/sendFeedback.aspx
+++ b/sendFeedback.aspx
@@ -16,7 +16,7 @@
      
      <link href="bootstrap@5.0.2/dist/css/bootstrap.min.css" rel="stylesheet" integrity="sha384-EVSTQN3/azprG1Anm3QDgpJLIm9Nao0Yz1ztcQTwFspd3yD65VohhpuuCOmLASjC" crossorigin="anonymous"/>
 
-
+    
        <meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
        <title>Verag Feedback Panel</title>
        <link rel="stylesheet" type="text/css" href="css/main.css">
@@ -31,15 +31,15 @@
    <script runat="server">

        Protected Sub Button1_Click(sender As Object, e As EventArgs)
-   
+
            SendEmail()
            If False Then
-                    
+
                Const SMTPSendUsing = 2 ' SMTP über Netzwerk
                Const SMTPServer = "smtp.1und1.de"
                Const SMTPServerPort = 25 '587'25
                Const SMTPConnectionTimeout = 10 'Sekunden
-
+                
                Dim sSubject, sEmail, sMailBody, sFrom, sReadReceipt, sMsg
                sSubject = "Test"
                sEmail = "al@verag.ag"
@@ -77,10 +77,10 @@
                If Err.Number <> 0 Then sMsg = "Fehler: " & Err.Description

                Response.Write(sMsg)
-              

-        
-        
+
+
+
                '    Dim msgMail As New MailMessage("al@verag.ag", "al@verag.ag")

                ' msgMail.To = "christophw@sleeper.Dev.AlfaSierraPapa.Com"
@@ -88,24 +88,24 @@
                ' msgMail.From = "webmaster@aspheute.com"
                ' msgMail.Subject = "Hi Chris, another mail"

-            
+
                ''  Dim strBody As String = "<html><body><b>Hello World</b>" &
                ' " <font color='red'>ASP.NET</font></body></html>"
                '  msgMail.Body = strBody

-           
+
                ' Dim smtp As New SmtpClient()
                '  smtp.DeliveryMethod = SmtpDeliveryMethod.PickupDirectoryFromIis
-            
+
                '  smtp.Send(msgMail)
-            
+
                Response.Write("Email was queued to disk")
-          
+
            End If
-                
+
        End Sub
-        
-         Function SendEmail() As Boolean
+
+        Function SendEmail() As Boolean
            Dim Msg As New MailMessage
            Dim myCredentials As New System.Net.NetworkCredential
            myCredentials.UserName = "al@verag.ag"
@@ -121,11 +121,11 @@
                Msg.To.Add("al@verag.ag")
                Msg.Subject = "TEST"
                Msg.Body = "TEST"
-                
+
                '     Dim attachment As Attachment = New Attachment(File.OpenRead(excel), "Kundenliste.xlsx")
                '     Msg.Attachments.Add(attachment)
                '     mySmtpsvr.Send(Msg)
-                   MsgBox("SENT")
+                MsgBox("SENT")
                Return True
            Catch ex As Exception
                MsgBox(Err.Number & ex.Message & ex.StackTrace.ToString) 'Falls ein Fehler auftritt wird eine MsgBox angezeigt