Snitz Forums 2000 - MiniMOD - Update Last Here Date

Currently, the forum does not update your last here date when you post while logged out. This can cause the last here date and last post dates to be out of sync. This miniMOD fixes that issue (which technically isn't a bug, but to me it's a bit odd).

In post_info.asp, find this code around lines 1847-1853:


			case else
				Response.Write("Have a nice day!")
		end select
		Response.write	"</font></p>" & vbNewLine & _
				"      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""" & strReturnURL & """>" & strReturnTxt & "</a></font></p>" & vbNewLine
	else 
		Response.write	"      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """>There has been a problem!</font></p>" & vbNewLine & _

Make that look like this by adding the code in red:


			case else
				Response.Write("Have a nice day!")
		end select
		Response.write	"</font></p>" & vbNewLine & _
				"      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""" & strReturnURL & """>" & strReturnTxt & "</a></font></p>" & vbNewLine
		If blnUpdateLastVisited Then
			UpdateLastHereDate DateToStr(strForumTimeAdjust),strDBNTUserName
		End If
	else 
		Response.write	"      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """>There has been a problem!</font></p>" & vbNewLine & _

Then find this code around lines 60-67:


if strAuthType = "db" and strDBNTUserName = "" and len(Request.Form("Password")) <> 64 then
	strPassword = sha256("" & Request.Form("Password"))
else
	strPassword = ChkString(Request.Form("Password"),"SQLString")
end if

if strAuthType = "db" and strDBNTUserName = "" then
	strDBNTUserName = Request.Form("UserName")

Make that look like this by adding the code in red:


blnUpdateLastVisited = False
if strAuthType = "db" and strDBNTUserName = "" and len(Request.Form("Password")) <> 64 then
	strPassword = sha256("" & Request.Form("Password"))
	blnUpdateLastVisited = True
else
	strPassword = ChkString(Request.Form("Password"),"SQLString")
end if

if strAuthType = "db" and strDBNTUserName = "" then
	strDBNTUserName = Request.Form("UserName")

Basically what this does is adds a boolean value at the beginning that checks if we're hashing a password (this only happens if the user enters their password, meaning they aren't logged in when they post). Then, at the end of the whole process, the forum checks that boolean value, and if it's true, updates the last here date.<