Delete data from three tables

[fran7]

Hi, I have this that works fine.

	dim strSQLDeleteWatch
	strSQLDeleteWatch = "Delete from tblWatches where WatchedProfileID = " & rsProfiles("ProfileID")
	objConn.Execute strSQLDeleteWatch

            rsProfiles.movenext
        wend

	strSQLDeleteWatch = "Delete from tblWatches where WatchingUserID = " & intOptionsAndInfoUserIdDelete
	objConn.Execute strSQLDeleteWatch

        rsProfiles.close
        set rsProfiles = Nothing

I need to delete other associated data like.

'dim strSQLDeletelink
	'strSQLDeletelink = "Delete from tblLinkTrackerLogs where link_id = " & rsProfiles("ProfileID")
	'objConn.Execute strSQLDeletelink

I cannot see where I need to include it with the wend that is currently there. Any pointers would be great.
Thanks in advance.
Richard

[Rabbit]

We don't know either, you haven't told us how it's related so it's difficult to say how to delete the relation.

[fran7]

Hi, thanks for the reply.

Looks like i solved it by adding the other delete above the two connected by wend

	dim strSQLDeletelink
	strSQLDeletelink = "Delete from tblLinkTrackerLogs where link_id = " & rsProfiles("ProfileID") 
	objConn.Execute strSQLDeletelink	


   dim strSQLDeleteWatch
    strSQLDeleteWatch = "Delete from tblWatches where WatchedProfileID = " & rsProfiles("ProfileID")
    objConn.Execute strSQLDeleteWatch
 
            rsProfiles.movenext
        wend

Thanks
Richard