प्रतिक्रिया.रीडायरेक्ट vb.net का उपयोग कर

नमस्ते,

मैं vb.net में नया हूं, एक प्रोजेक्ट कर रहा हूं जिसमें तीन मॉड्यूल हैं जैसे होम पेज, साइन अप पेज और अंत में ASP.NET का उपयोग करके हमसे संपर्क करें पेज। मेरी समस्या हमसे संपर्क करें पृष्ठ है, यानी, उपयोगकर्ता संपर्क विवरण भर सकता है जो मैं संपर्क पृष्ठ में बनाता हूं। एक बार उपयोगकर्ता फॉर्म भरने में सक्षम हो सकता है और सबमिट बटन पर क्लिक कर सकता है, और फिर यह एक पॉपअप विंडो दिखाता है जैसे “धन्यवाद” हमसे संपर्क करने के लिए। हम शीघ्र ही आपसे संपर्क करेंगे” (स्क्रिप्ट का उपयोग करके नीचे दिए गए कोड को ढूंढें) और संदेश गायब होने के लिए मुझे ओके बटन पर टैप करना होगा। मेरा सवाल यह है कि जब मैं ओके बटन पर क्लिक करूंगा तो पेज को होम पेज पर जाना होगा लेकिन यह मेरे कोड में नहीं जा रहा है। कृपया नीचे दिए गए कोड का पता लगाएं जिसका उपयोग मैंने हमसे संपर्क पृष्ठ में किया था। कृपया मुझे समाधान की एक बूंद दें जो मेरे लिए बहुत उपयोगी है…

मेरा कोड है:

Protected Sub imgLogin_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles imgLogin.Click
        Dim resulttosend As String
        Dim subject As String = "  User Request:"
        Dim msgto As String = ConfigurationManager.AppSettings("contactus_email")
        Dim msgfrom As String = ConfigurationManager.AppSettings("SendMail_from")
        Dim msgcc As String = ""
        Dim msgbcc As String = ""
        Dim msgdesc As String
        msgdesc = "Hi Administrator,<br><br>" & _
                        "Name: " & Txtname.Text & "<br>" & _
                        "City: " & txtCompany.Text & "<br>" & _
                        "Tel: " & Txttelephone.Text & "<br>" & _
                        "Email: " & Txtemail.Text & "<br>" & _
                        "Additional Information: " & Txtinfo.Text & "<br>"


        Dim clsobj As clsCommon = New clsCommon

        resulttosend = clsobj.fnsendMail(msgfrom, msgto, msgcc, msgbcc, subject, msgdesc)

        If resulttosend = "" Then
            
            Response.Write("<script language='javascript'>alert('Thank you for contacting us. We will get back to you shortly');</script>")
Response.Redirect("Index.aspx")
            txtCompany.Text = ""
            Txtemail.Text = ""
            Txttelephone.Text = ""
            Txtinfo.Text = ""
        Else
            lblStatus.Text = resulttosend
           
            Trace.Warn("ibSend_Click", "exception occured sending mail-->" & resulttosend)
        End If
    End Sub