<%@ Language=VBScript %>
<% Response.Buffer=TRUE %>
   <!--#include file="adovbs.inc"-->
   <!--#include file="connect.asp"-->
   <!--#include file="check.inc"-->


   <%
   Set Srs = Server.CreateObject("ADODB.RecordSet")
   Ssql = "SELECT * FROM medlemmar WHERE pass ='" & Request.Cookies("prylsajten") & "'"
   Srs.Open Ssql, Connect, 3, 3



   Set rs = Server.CreateObject("ADODB.RecordSet")
   sql = "SELECT * FROM annonser WHERE id = " & Request.Querystring("id") & ""
   rs.Open sql, Connect, 3, 3

   if Srs("id") = rs("bymember") Then

   rs.Delete

   rs.Update

   rs.Close
   Srs.Close
   Ssql = ""
   sql = ""

   End if


   Response.Redirect "myannons.asp"

   %>