<!--#include file="security.asp" -->
<%
UserID = Request.Form("UserID")
Dim SQL
Dim UserID
UserID = Request("UserID")
strSQL = "SELECT * FROM tblJob Where UserID = '" & UserID & "'"
response.write UserID
response.end
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "D:/Websites/richard/admin/db/users.mdb"
Set objRs = conn.Execute(strSQL, , 1)
'File: viewJob.asp
'Description: Authorised Page
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML dir=ltr xmlns-asp="null" xmlns-shell="null"><HEAD>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="copyright" content="Copyright (C) 2005 Blue Alumni Resourcing">
<META content=en-us name=MS.LOCALE>
<META http-equiv=Content-Type content="text/html; charset=windows-1252">
<META content="Blue Alumni Resourcing" name=keywords>
<link rel="stylesheet" type="text/css" href="css.css">
<META content="<%= Date() %>" name=last-updated>
<title><%= strUsername %>, User Panel</title>
<body topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0" link="#3366CC" vlink="#008000" alink="#FF0000">
<%= strUsername %>
<H1><img border="0" src="images/BARLogo.gif" width="125" height="110"> Private Page 2</H1></p>
<p align="center" style="margin-top: -1px; margin-bottom: -1px">
</p>
<table border="0" width="100%" id="table1">
<tr>
<td>
<h3>Today: <b><%= Date() %></b> ,Welcome <b><%= rsCheckUser("First_Name") %> <%= rsCheckUser("Last_Name") %> (Login as: <%= strUserName %>)</b>, to
<%= strWebsiteName %></h3></td>
</tr>
<tr>
<td>
<BODY>
<%
If (objRs.EOF) then
%>
<P>Sorry, we do not hold any information about your previous Job history.
Else
<CENTER>
<FONT SIZE="5"><B>
Previous Job History
</B>
</FONT>
</CENTER>
<BODY>
<BR><BR>
<TABLE border=1>
<TR>
<TD>Job Start Date</TD>
<TD>Job End Date</TD>
<TD>Organisation Name</TD>
<TD>Job Title</TD>
<TD>Job Description</TD>
</TR>
<%
Do While Not (objRs.EOF)
%>
<TR>
<TD><%=objRs("JobStart")%></TD>
<TD><%=objRs("JobFinish")%></TD>
<TD><%=objRs("EmployerName")%></TD>
<TD><%=objRs("JobRole")%></TD>
<TD><%=objRs("JobDetail")%></TD>
</TR>
<%
objRs.MoveNext
Loop
%>
</TABLE>
</TABLE>
<BR>
<BR>
<A HREF="menu.asp">Return to the Main Menu</A>
<tr>
<td>
<font face="Arial" size="2">
<p align="center" style="margin-top: -1px; margin-bottom: -1px"><b> <a href="profile.asp?userid=<%=strUsername %>">View Profile</a> ||
<a href="edit.asp?.rand=<%= Md5Hash %>">Edit Account</a> ||
<a href="register.asp">New Sign Up</a> ||
<a href="forgot.asp?.rand=<%= md5Hash %>">Recover Password</a>
||
<a href="logout.asp?<%= Request.ServerVariables("QUERY_STRING")%>">Logout
</a> </b></p>
<p align="center" style="margin-top: -1px; margin-bottom: -1px"> </p>
<p> </p>
<p> </font></td>
</tr>
</table>
<!-- #include file="footer.asp" -->
<%
End If
objRs.Close
Set objRs=Nothing
objConn.Close
Set objConn=Nothing
%>
</body>
</html>