מישהו מוכן להסביר לימשהו בקשר למאמר

נתקעתי בחלק הזה:


<%
Sub DelProduct(ProductID)
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From Products Where ID = " & ProductID
Rs.Open Sql, ObjConn, 1, 1
If Rs.Bof Then
Response.Write "מוצר אינו נמצא"
Else
Replace(Session("Cart"),"," & ProductID,"")
Response.Write "המוצר נמחק!"
End If
Rs.Close
Set Rs = Nothing
End Sub
%>

בבקשה תעזרו לי קצת מאמץ אולי יש םה טעות במאמר ….

שאלה חדשה:::
איך אני שולח את כל העמוד שיש לי לדוא"ל, בדקתי במאמרים של שליחת דואר אבל כולם מראים לי רק איך שולחים משפט אחד ואני רוצה לשלוח טבלה עם פרטים וכו' [אני רוצה שזה ישלח דרך כפתור שיהיה כתוב שלח]

אני משתמש בCSONTS
ואני רוצה לשלוח את העמוד הנוכחי לדואר.