set con2=server.CreateObject("ADODB.Connection")
con2.ConnectionTimeout =1200
con2.open "Driver={SQL Server};server=111.111.111.11;user id=xx;pwd=xxx;Database=xxx"
con2.execute("DELETE FROM tablename WHERE fieldid NOT IN(SELECT fieldid FROM tablename2)")
con2.close
set con2=nothing
set con2=server.CreateObject("ADODB.Connection"