<% 'if no books redirect to main page if request("UserID")="" then Response.Redirect "/" 'Create a connection odject Set adoCon = Server.CreateObject("ADODB.Connection") Set adoRec1 = Server.CreateObject("ADODB.Recordset") Set adoRec2 = Server.CreateObject("ADODB.Recordset") strCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(strAccessDB) 'Open the recordset and do the operation adoCon.Open strCon adoRec1.LockType = 3 adoRec2.LockType = 3 UserID = request("UserID") adoRec1.Open "select * FROM List where Email='" & lcase(UserID) & "'", adoCon if adoRec1.EOF then Response.Write "هذا البريد الإلكتروني غير موجود ضمن قائمة مراسلاتنا" else adoRec2.Open "delete * FROM List where Email='" & lcase(UserID) & "'", adoCon Response.write "لقد تم الغاء اشتراكك بنجاح" end if %>