quote:

---

Originally posted by PeeWee.Inc

Any help, or anyone got the code done from thier site?

---

<%
'#################################################################################
'## Top Navigation of forum and login
'#################################################################################

if (mlev = 0) then	'not logged in

	if not(Instr(Request.ServerVariables("Path_Info"), "uk_home.asp") > 0) And _
		not(Instr(Request.ServerVariables("Path_Info"), "login.asp") > 0) then

		Response.Write	"        <form name=""frmLogin"" action=""" & Request.ServerVariables("URL") & """ method=""post"">" & vbNewLine & _
				"        <input type=""hidden"" name=""Method_Type"" value=""login"">" & vbNewLine & _
				"        <tr>" & vbNewLine & _
				"          <td align=""left"">" & vbNewLine & _
				"				<table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"">" &vbCrLf &_
				"				<tr>" &vbCrLf &_
				"					<td bgcolor=""" & strTableBorderColor & """>" &vbCrLf &_		
				"						<TABLE WIDTH=""100%"" BORDER=""0"" CELLSPACING=""1"" CELLPADDING=""4"">" &vbCrLf &_
				"						<TR>" &vbCrLf &_
				"							<TD align=""left"" bgcolor="""& strCategoryCellColor &""" nowrap valign=""top""><b><font face="""& strDefaultFontFace &""" size="""& strDefaultFontSize &""" color="""& strCategoryFontColor &""">Login</font></b></TD>" &vbCrLf &_
				"						</TR>" &vbCrLf &_		
				"						<TR>" &vbCrLf &_
				"							<TD align=""left"" bgcolor="""& strForumCellColor &"""  nowrap valign=""top"">"
	
		if (strAuthType = "db") then
			Response.Write	"                <font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><b>Username: </b></font>" & vbNewLine & _
					"					<input type=""text"" name=""Name"" size=""10"" maxLength=""25"" value="""">" & vbNewLine & _
					"					<font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><b>Password: </b></font>" & vbNewLine & _
					"					<input type=""password"" name=""Password"" size=""10"" maxLength=""25"" value="""">" & vbNewLine
			if strGfxButtons = "1" then
				Response.Write	"                <input src=""" & strImageUrl & "button_login.gif"" type=""image"" border=""0"" value=""Login"" name=""Login"">" & vbNewLine
			else
				Response.Write	"                <input type=""submit"" name=""btnSubmit"" value=""Login"">" & vbNewLine
			end if 
			Response.Write	"                <input type=""checkbox"" class=""checkbox"" name=""SavePassWord"" value=""true"" tabindex=""-1"" CHECKED><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><b> Save Password</b></font>" & vbNewLine
		else
			if (strAuthType = "nt") then 
				Response.Write	"                <font face=""" & strDefaultFontFace & """ size=""1""  color=""" & strHiLiteFontColor & """>Please <a href=""policy.asp"" tabindex=""-1"">register</a> to post in these Forums</font>" & vbNewLine
			end if
		end if 
	
		if (lcase(strEmail) = "1") then
			Response.Write	"               <font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & vbNewLine & _
					"                <a href=""password.asp""" & dWStatus("Choose a new password if you have forgotten your current one...") & " tabindex=""-1"">Forgot your "
			if strAuthType = "nt" then Response.Write("Admin ")
			Response.Write	"Password?</a>" & vbNewLine
			if (lcase(strNoCookies) = "1") then
				Response.Write	"                |" & vbNewLine & _
						"                <a href=""admin_home.asp""" & dWStatus("Access the Forum Admin Functions...") & " tabindex=""-1"">Admin Options</a>" & vbNewLine
			end if
			Response.Write	"                </font>" & vbNewLine
		end if
				
		Response.Write	"						</td>" &vbCrLf &_
				"						</tr>" &vbCrLf &_				
				"						</table>" &vbCrLf &_
				"					</td>" &vbCrLf &_
				"				</tr>" &vbCrLf &_
				"				</table>" &vbCrLf &_
				"          </td>" & vbNewLine & _
				"        </tr>" & vbNewLine &_
				"		<script language=""javascript"">document.frmLogin.Name.focus();</script>" & vbNewLine &_
				"        </form>" & vbNewLine &_
				"        <tr>" & vbNewLine & _
				"          <td height=""5""></td>" & vbNewLine & _
				"        </tr>" & vbNewLine
				
	end if
else
	Response.Write	"        <form name=""frmLogout"" action=""" & Request.ServerVariables("URL") & """ method=""post"">" & vbNewLine & _
			"        <input type=""hidden"" name=""Method_Type"" value=""logout"">" & vbNewLine & _
			"        </form>" & vbNewLine			
end if
%>