<!--#include file="../asp/processpage.asp"-->
<%

	if not Request.Cookies("lvlmods")("id") > 0 then
		'they ain't welcomed, get them out of here
		Response.Redirect("login.asp")
	else
		'they must have logged in fine let them have the world
%>
<!--#include file="../asp/header.asp"-->
<!--- page title graphic in here --->
		<td width="100%" colspan="2" background="../skinz/images<%=customcolours%>/top_bg2.gif" align="right" valign="top"><img src="../skinz/images<%=customcolours%>/t_admin.gif" width="198" height="46" alt="[ admin ]"></td>
<!--#include file="../asp/navbar_mods.asp"-->
<!--- page content goes in here --->		
		<td width="100%" valign="top">
			<span class="main">
			<table width="100%" cellpadding="4" cellspacing="2" border="0">
				<tr>
					<td class="main" bgcolor="<%=bgcolourCustom%>"><b>mod name</b></td>
					<td class="main" bgcolor="<%=bgcolourCustom%>"><b>game type</b></td>
					<td class="main" bgcolor="<%=bgcolourCustom%>"><b>comments</b></td>
					<td class="main" bgcolor="<%=bgcolourCustom%>"><b>Status</b></td>
				</tr>
		<%
		
			set tigCON = Server.CreateObject("ADODB.Connection")
	
				tigCON.Open(DSN)
				
				query = "select id, name, game_type, nmb_comments, active " & _
						"from mods_list where " & _
						"id_login = " & Request.Cookies("lvlmods")("id") & _
						" order by datestamp desc"

				'Response.Write("Query = [" & query & "]<br>")
				set tigRS = tigCON.Execute(query)
				
				if (tigRS.EOF) then
				%>
				
				It appears that there are no mods to listed under your account at the moment. 
				If you think there should be, because you definitely entered at least one, plz email 
				<a href="mailto:tigger@ebom.org">tigger@ebom.org</a>		
				
				<%
				end if
				
				dim id
				
				do while not tigRS.EOF
					
					id = tigRS("id")
				%>		
			
				<tr>
					<td class="subsm"><a href="mods_edit.asp?id=<%=id%>"><%=tigRS("name")%></a></td>
					<td class="subsm"><a href="mods_edit.asp?id=<%=id%>"><%=tigRS("game_type")%></a></td>
					<td class="subsm"><a href="mods_edit.asp?id=<%=id%>"><%=tigRS("nmb_comments")%></a></td>
					<% if tigRS("active") then %>
						<td class="subsm"><a href="beta_edit.asp?id=<%=id%>">shown</a></td>
					<% else %>
						<td class="subsm"><a href="beta_edit.asp?id=<%=id%>">not shown</a></td>
					<% end if %>
				</tr>
			<%
				tigRS.MoveNext
			loop	
 			tigRS.close		
			tigCON.close
	%>
	</table>
	<%
	end if
	%>
	
			</span>
		</td>
<!--- end page content --->
<!--#include file="../asp/footer_beta.asp"-->
