[MusikMixen]

Hej

Skulle verkligen vilja ha hjälp med ett script som raderar inaktiva medlemmar efter 7 månader, alltså medlemmar som inte loggat in under 7 månader..

Koden för att avsluta sitt konto ser ut såhär:

Case "del"

SQL = "SELECT memb_id,memb_photo FROM _memb WHERE memb_pass = '"& strPass1 &"' AND memb_id = "&intUserId&""
Set rs = objCon2.Execute(SQL)
If rs.EOF Then
strMessageD = "Du måste ange rätt lösenord."
Else
objCon2.Execute("DELETE FROM board WHERE board_fromid="& intUserId)
objCon2.Execute("DELETE FROM memb_blog WHERE blog_user="& intUserId)
objCon2.Execute("DELETE FROM memb_blog_read WHERE visit_user="& intUserId)
objCon2.Execute("DELETE FROM memb_board WHERE board_fromid="& intUserId &" OR board_forid="& intUserId)
objCon2.Execute("DELETE FROM memb_fav WHERE fav_user="& intUserId &" OR fav_fav="& intUserId)
objCon2.Execute("DELETE FROM memb_mess WHERE mess_fromid="& intUserId &" OR mess_forid="& intUserId)
objCon2.Execute("DELETE FROM memb_risros WHERE rr_userid="& intUserId)
objCon2.Execute("DELETE FROM memb_recept WHERE recept_user="& intUserId)
objCon2.Execute("DELETE FROM memb_dikter WHERE dikt_user="& intUserId)
objCon2.Execute("DELETE FROM fanclub_user WHERE user_userid="& intUserId)
objCon2.Execute("DELETE FROM magasin WHERE m_userid="& intUserId)
objCon2.Execute("DELETE FROM memb_bs WHERE bs_userid="& intUserId)
objCon2.Execute("DELETE FROM fanclub WHERE fc_owner="& intUserId)
objCon2.Execute("DELETE FROM memb_skratt WHERE skratt_user="& intUserId)
objCon2.Execute("DELETE FROM memb_visits WHERE visit_user="& intUserId &" OR visit_visitor="& intUserId)
If rs("memb_photo") <> "" Then


Set FSO = Server.CreateObject("Scripting.FileSystemObject")
 FSO.DeleteFile "D:\dbd\_photo\" & rs("memb_photo")
 Set FSO = Nothing 

End If

 SQL = "SELECT album_file FROM dbd_memb_album WHERE album_userid = "&intUserId &""
	Set rsAlbum = objCon2.Execute(SQL)
	Do until rsAlbum.EOF
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
 FSO.DeleteFile "D:\dbd\_album\" & rsAlbum(0)
 Set FSO = Nothing 
objCon2.Execute("DELETE FROM dbd_memb_album WHERE album_file = '"& rsAlbum(0) &"' AND album_userid="& intUserId &"")
	rsAlbum.MoveNext
	Loop
	rsAlbum.Close: Set rsAlbum = Nothing

objCon2.Execute("DELETE FROM dbd_memb WHERE memb_id="& intUserId)


response.redirect("logout.asp")

Hur kan man göra om den så medlemmar som inte loggat in raderas automatiskt eller genom att vi klickar på en länk och den kör "checken"..

Vi har även ett stort problem med medlemmar som raderar sitt konto och aktiverar ett nytt .. Finns det något sätt att stoppa detta så de max kan avsluta sitt konto 3 ggr eller att de inte kan skapa ett nytt förrens efter 7 dagar? Alla tips och kodsnuttar är av intresse..

Tacksam för hjälp!
/Micke