أخد كود الصفحة الحالية لارسالها عن طريق الاميل

السلام عليكم ورحمة الله

اخواني

اود ان أعرف طريقة أخد كود سورس الصفحة من أجل ارسالها عن طريق الاميل

بحت كتيرا وجربت ولم ينجح ما وجدت

متل هده function

 Public Function ScreenScrapeHtml(ByVal url As String) As String

        Dim objRequest As WebRequest = System.Net.HttpWebRequest.Create(url)
        Dim sr As New StreamReader(objRequest.GetResponse().GetResponseStream())
        Dim result As String = sr.ReadToEnd()
        sr.Close()

        Return result

    End Function

لم تعمل أيضا

فعوض ان آخد المعلومات التي احتاجها وأشيد الصفحة بكود html.فهدا يأخد وقت. بالأضافة ان الصفحة التي أود ارسالها تحتوي على gridview فلا اظن انه يمكن ارسالها بالاميل والله أعلم

فحبدا لو طريقة معينة لأخد الكود

لدي سؤال تاني سبق وطرحته لكن لم اتلق أي اجابة

استعمل gridview للتعديل والحدف عن طريق الكود vb وليس عن طريق wizard

متال عن كود التعديل

  Protected Sub GestionAdmins_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GestionAdmins.RowDeleting
        Try
            OpenConn()
            lblmsg.Text = ""
            Dim IDAdmin As String = GestionAdmins.Rows(e.RowIndex).Cells(0).Text
            SQL(2) = "DELETE FROM ADMINS WHERE IDADMIN=@IDADMIN"
            SQLCMD = New SqlCommand(SQL(2), conn)
            SQLCMD.Parameters.Add("@IDADMIN", SqlDbType.Int).Value = IDAdmin
            SQLCMD.ExecuteNonQuery()
            RemplirGrid()
        Catch ex As Exception
            lblmsg.Text = ex.Message
            lblmsg.ForeColor = Drawing.Color.Red
        End Try
    End Sub

الكود يعمل جيدا ويقوم بالمطلوب لكن يتكرر مريتن كأني وضعته بحلقة تكرارية فتظهر رسالة حطأ ان index hors limit فأين المشكل بنظركم؟؟

وجزيتم خيرا.