strMessage = strMessage & "' You can extend your sponsorship of '" & strForumTitle & "' at  http://www.maggotdrowning.com/store/index.php?app=gbu0&ns=prodshow&ref=sitesupporter"">The Online Shop</a> '" & vbNewLine

<%
strSql = "SELECT M_PMRECEIVE, M_SPONSORREMIND FROM " & strMemberTablePrefix & "MEMBERS WHERE MEMBER_ID="&MEMBERID
set rsPMs=my_Conn.Execute(strSql)
strSponsorRemind = "0"
if not rsPMs.EOF then
	if isnull(rsPMs("M_SPONSORREMIND")) THEN
		strSponsorRemind="0"
	else
		strSponsorRemind = cStr(rsPMs("M_SPONSORREMIND"))
	end if
	strPMReceive = cStr(rsPMs("M_PMRECEIVE"))
	rsPMs.Close
end if
set rsPMs = Nothing
if strSponsorRemind <> "1" then
	if strPMReceive = "1" and strPMStatus = "1" then
		'	PMs allowed, send PM
		set rsAdmin=Nothing
		strSql = "INSERT INTO " & strTablePrefix & "PM (M_SUBJECT, M_FROM, M_TO, M_SENT, M_MESSAGE, M_MAIL, M_READ, M_OUTBOX) VALUES ("
		strSql = strSql & "'" & strForumTitle & " Sponsor Renewal '"
		strSql = strSql & ", " & intAdminMemberID
		strSql = strSql & ", " & MEMBERID
		strSql = strSql & ", '" & DateToStr(strForumTimeAdjust) & "'"
		strMessage = strMessage & ", 'You have previously chosen to become a forum sponsor.  The sponsorship period "
		if SponsorDate >= DatetoStr(strForumTimeAdjust) then
			strMessage = strMessage & "will expire on: "
		else
			strMessage = strMessage & "expired on: "
		end if
		strMessage = strMessage & StrtoDate(SponsorDate)
		strMessage = strMessage & ". You can extend your sponsorship of " & strForumTitle & " within your profile. '" & vbNewLine & vbNewLine
		strSql = strSql & strMessage 
		strSql = strSql & ", '" & TF & "'"
		strSql = strSql & ", 0, 1)"
		set rsPM=my_Conn.Execute(strSql)
		strSql = "UPDATE " & strMemberTablePrefix & "MEMBERS SET M_SPONSORREMIND=1 WHERE MEMBER_ID="&MEMBERID
		my_Conn.Execute(strSql)
	else
		'	PMs not allowed, send EM
		strRecipientsName = strDBNTUserName
		strSql = "SELECT M_EMAIL FROM " & strMemberTablePrefix & "MEMBERS WHERE MEMBER_ID="& MEMBERID
		set rsEM=my_Conn.Execute(strSql)
		if not rsEM.EOF then
			strRecipients = chkString(rsEM("M_EMAIL"), "SQLString")
			rsEM.Close
		end if
		set rsEM = Nothing
		strFrom = strSender
		strFromName = strForumTitle
		strSubject = strForumTitle & " Sponsor Renewal "
		strMessage = "Hello " & strDBNTUserName & vbNewLine & vbNewLine
		strMessage = strMessage & "You received this message from " & strForumTitle & ".  You have previously chosen to become a forum sponsor." & vbNewLine & vbNewLine
		strMessage = strMessage & "The sponsorship period  "
		if SponsorDate >= DatetoStr(strForumTimeAdjust) then
			strMessage = strMessage & "will expire on: "
		else
			strMessage = strMessage & "expired on: "
		end if
		strMessage = strMessage & StrtoDate(SponsorDate) & ".  "
		strMessage = strMessage & "You can extend your sponsorship of " & strForumTitle
		strMessage = strMessage & " within your profile at:  " & strForumURL & "pop_profile.asp?mode=Edit" & vbNewLine & vbNewLine
		%>
		<!--#INCLUDE FILE="inc_mail.asp" -->
		<%
		strSql = "UPDATE " & strMemberTablePrefix & "MEMBERS SET M_SPONSORREMIND=1 WHERE MEMBER_ID="&MEMBERID
		my_Conn.Execute(strSql)
	end if
end if
%>

					strSql = strSql & " WHERE MEMBER_ID = " & cLng(Request.Form("MEMBER_ID"))

					my_Conn.Execute(strSql),,adCmdText + adExecuteNoRecords

After those lines, insert the following:

					if DatetoStr(Request.Form("SPONSORDATE")) > DatetoStr(strForumTimeAdjust) then
						strSql = "UPDATE " & strMemberTablePrefix & "MEMBERS SET M_SPONSORREMIND=0 WHERE MEMBER_ID="&MEMBERID
						my_Conn.Execute(strSql)
					end if