select case Request.Form("Method_Type")

	case "login"
		Response.Write	"      </table>" & vbNewLine & _
				"    </td>" & vbNewLine & _
				"  </tr>" & vbNewLine & _
				"<tr>" & vbNewLine & _
				"<td width=""100%"">" & vbNewLine & _
				"<table border=""0"" bgcolor=""" & strTableBorderColor & """ align=""left"" cellPadding=""0"" cellSpacing=""1"" width=""100%"" height=""27"">" & vbNewLine & _
				"<tr><td bgcolor=""" & StrHeadCellColor & """>" & vbNewLine & _
				"<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """> " & vbNewLine& _
				"</font></td></tr><tr><td bgcolor=""" & StrForumCellColor & """>" & vbNewLine
		if strLoginStatus = 0 then
		Response.Write	"<p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=red><br>Your username and/or password were incorrect.</font></p>" & vbNewLine & _
				"<p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=red>Please either try again or register for an account.<br><br></font></p>" & vbNewLine & _
				"<p align=""center""><a href=""sitenews.asp"">try again</a> | " & vbNewLine & _
				"<a href=""register.asp"">register for an account</a></p>" & vbNewLine & _
				"<table align=""center"" border=""0"" cellPadding=""0"" cellSpacing=""0"" width=""100%"">" & vbNewLine & _
				"  <tr>" & vbNewLine & _
				"    <td>" & vbNewLine
		else
		Response.Write	"<p align=""center""><font face=""" & strDefaultFontFace & """ size=2 color=""" & strForumhoverFontColor & """><br>You are being logged on please standby...</font></p>" & vbNewLine & _
				"<meta http-equiv=""Refresh"" content=""2; URL=" & Request.ServerVariables("HTTP_REFERER") & """>" & vbNewLine & _
				"<br>" & vbNewLine & _
				"<table align=""center"" border=""0"" cellPadding=""0"" cellSpacing=""0"" width=""100%"">" & vbNewLine & _
				"  <tr>" & vbNewLine & _
				"    <td>" & vbNewLine
		end if
		WriteFooter
		Response.End
	case "logout" 
		Response.Write	"      </table>" & vbNewLine & _
				"    </td>" & vbNewLine & _
				"  </tr>" & vbNewLine & _
				"<tr>" & vbNewLine & _
				"<td width=""100%"">" & vbNewLine & _
				"<table border=""0"" bgcolor=""" & strTableBorderColor & """ align=""left"" cellPadding=""0"" cellSpacing=""1"" width=""100%"" height=""27"">" & vbNewLine & _
				"<tr><td bgcolor=""" & StrHeadCellColor & """>" & vbNewLine & _
				"<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """> " & vbNewLine& _
				"</font></td></tr><tr><td bgcolor=""" & StrForumCellColor & """>" & vbNewLine & _
				"<p align=""center""><font face=""" & strDefaultFontFace & """ size=2 color=""" & strForumhoverFontColor & """><br>You are being logged out please standby...</font></p><br>" & vbNewLine & _
				"<meta http-equiv=""Refresh"" content=""2; URL=default.asp"">" & vbNewLine & _
				"<table align=""center"" border=""0"" cellPadding=""0"" cellSpacing=""0"" width=""100%"">" & vbNewLine & _
				"  <tr>" & vbNewLine & _
				"    <td>" & vbNewLine
		WriteFooter
		Response.End
end select