<%@LANGUAGE="VBSCRIPT"%> <% If Session("UserID") = "" Then Response.Redirect "Login.asp" End If %> <% ' *** Delete Record: construct a sql delete statement and execute it MM_editAction = CStr(Request("URL")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Request.QueryString End If if (CStr(Request("MM_delete")) <> "" And CStr(Request("MM_recordId")) <> "") Then MM_tableName = "tblAds" MM_tableCol = "nAdID" MM_recordId = "" + Request.Form("MM_recordId") + "" MM_redirectPage = "MenuForRegisteredUsers.asp" ' create the delete sql statement MM_deleteStr = "delete from " & MM_tableName & " where " & MM_tableCol & " = " & MM_recordId ' finish the sql and execute it Set MM_deleteCmd = Server.CreateObject("ADODB.Command") MM_deleteCmd.ActiveConnection = strConn MM_deleteCmd.CommandText = MM_deleteStr MM_deleteCmd.Execute ' redirect with URL parameters If (MM_redirectPage = "") Then MM_redirectPage = CStr(Request("URL")) End If If (InStr(1, MM_redirectPage, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_redirectPage = MM_redirectPage & "?" & Request.QueryString End If Call Response.Redirect(MM_redirectPage) End If %> <% Dim rsDeleteAds__MMColParam rsDeleteAds__MMColParam = "0" if(Request.QueryString("nAdID") <> "") then rsDeleteAds__MMColParam = Request.QueryString("nAdID") %> <% set rsDeleteAds = Server.CreateObject("ADODB.Recordset") rsDeleteAds.ActiveConnection = strConn rsDeleteAds.Source = "SELECT * FROM tblAds WHERE nAdID = " + Replace(rsDeleteAds__MMColParam, "'", "''") + "" rsDeleteAds.CursorType = 0 rsDeleteAds.CursorLocation = 2 rsDeleteAds.LockType = 3 rsDeleteAds.Open rsDeleteAds_numRows = 0 %> Motorcycle Accessory Centre GoldWing Classifieds
 

 

Browse Ads | Post A New Ad | Edit Profile | List/Edit Ads

 

Delete confirmation

Are you sure you want to delete AD ID# <%=(rsDeleteAds.Fields.Item("nAdID").Value)%>, '<%=(rsDeleteAds.Fields.Item("cTitle").Value)%>'?

"> "> "> "> ">

">

 

 

 

 

 

<% rsDeleteAds.Close Set rsDeleteAds = Nothing Set strConn = Nothing %>
101, 5701 - 17th Ave. S.E. Calgary, Alberta T2A 0W3
ph (403)248-0988    toll free orders (800)293-6453    fax (403)248-6035
motorcycle.stuff@cia.com
For questions or comments about the website, contact the webmaster.