<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> Delete Last Record

Delete Last Record

<% 'Open a recordset connection Dim rsMembership Dim strSQL strSQL = "Select * from MemberData where Phone LIKE 'unlisted'" 'strSQL = "Select * from MemberData where Name LIKE 'The NEW & IMPROVED Tom Jones'" Set rsMembership = Server.CreateObject("ADODB.Recordset") rsMembership.Locktype=3 rsMembership.Open strSQL, conn 'Delete last record rsMembership.MoveLast rsMembership.Delete %>

Record deleted!

<% 'close connections rsMembership.Close conn.close %>
Valid XHTML 1.1   Valid CSS!
<% thisfile = Request.ServerVariables("SCRIPT_NAME") thisfile = Server.MapPath(thisfile) set fso = CreateObject("Scripting.FileSystemObject") set fs = fso.getfile(thisfile) dlm = fs.datelastmodified set fs = nothing: set fso = nothing Response.Write("This page was last updated on: ") Response.Write("" & formatdatetime(dlm,1) & " " & formatdatetime(dlm,3) & " Mountain Time") %>
Source code: DeleteLast-Record.txt