Får inte till detta.....
Jag får fel mess på: "rs2.Open strsql, objConnection, 3, 3"
_______________________________________________
Feltyp:
ADODB.Recordset (0x800A0BB9)
Parametrarna är felaktiga, ligger utanför tillåtet intervall eller skapar en inbördes konflikt.
_______________________________________________
Set rs2 = Server.CreateObject("ADODB.Recordset")
strsql = "SELECT * FROM annons"
rs2.Open strsql, objConnection, 3, 3
strSQL="delete from annons where date<#" & DateAdd("m",-60,Date()) & "#"
objConnection.Execute strSQL,,128
rs2.Close
objConnection.Close
Set rs2 = Nothing
Set objConnection = Nothing