Back to
the Source Listing
<!--#include
file="../../../FacApp/includes/FacDBConn.inc"-->
<!DOCTYPE HTML PUBLIC
"-//W3C//DTD HTML 4.0 Transitional//EN">
<html lang="en"
dir="ltr">
<head>
<meta http-equiv="Content-Type"
content="text/html; charset=windows-1252">
<meta name="GENERATOR"
content="Microsoft FrontPage 4.0">
<meta name="ProgId"
content="FrontPage.Editor.Document">
<title>Alumni
Information Form - K-State Department of Agronomy</title>
<link rel="stylesheet"
type="text/css"
href="../../styles/agrn.css">
</head>
<body background="../../images/backgroundtile.gif">
<%
Dim rsFac
'Open a recordset containing the
current faculty member using the variable lngFacID
Set rsFac =
Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM
tblFaculty WHERE fldFacID = " & Request("ID") &
";"
rsFac.Open strSQL, fp_conn,
adOpenDynamic, adLockOptimistic, adCmdText
If Not rsFac.EOF Then
%>
<!--webbot bot="Include"
u-include="../../includes/insidemenu.htm" tag="BODY"
-->
<div class="center">
<div align="center">
<center>
<table
border="0"
cellpadding="0"
cellspacing="0"
width="640"
style="border-collapse: collapse">
<tr>
<td colspan="8"
width="640">
<p class="locationlinks">Location:
<a href="../../welcome.asp">Home</a>
> <a
href="../welcome.asp">People</a>
> <%= rsFac("fldName")%></td>
</tr>
<tr>
<td class="drkcreamcellcolumn"
width="200"
height="78">
<p class="logotypesm"><a
href="../../welcome.asp"><img
border="0"
src="../../images/logotypesm.gif"
alt="K-State Agronomy home"></a></td>
<td width="40"
height="78"
class="redcell"><img
border="0"
src="../../images/pictures/set2/sunflowerpic.jpg"
alt="Sunflower"></td>
<td width="38"
class="redcell"
height="78"><img
border="0"
src="../../images/place.gif"
alt></td>
<td width="113"
class="drkcreamcell"
height="78"><img
border="0"
src="../../images/place.gif"
alt></td>
<td width="62"
height="78"
class="goldcell"><img
border="0"
src="../../images/pictures/lndscppic.jpg"
alt="field"></td>
<td width="61"
class="goldcell"
height="78"><img
border="0"
src="../../images/place.gif"
alt></td>
<td width="63"
height="78"
class="goldcell"><img
border="0"
src="../../images/pictures/set2/wheatripepic.jpg"
alt="wheat"></td>
<td width="63"
class="bluecell"><img
border="0"
src="../../images/pictures/set2/sorghumpic.jpg"
alt="sorghum"></td>
</tr>
<tr>
<td class="drkcreamcellcolumn"
width="200"><br/>
<!--webbot bot="Include"
u-include="../../includes/randicons.asp"
tag="BODY" -->
<div class="indentinside">
<a class="linkside"
onmouseover="Show(1)"
onmouseout="Hide(1)"
href="../../">About
Us<img
border="0"
src="../../images/tri.gif"></a>
</div>
<div class="indentinside">
<a class="linkside"
onmouseover="Show(2)"
onmouseout="Hide(2)"
href="../../../academics/">Academics<img
border="0"
src="../../images/tri.gif"></a>
</div>
<div class="indentinside">
<a class="linkside"
href="../../../extension/">Extension</a>
</div>
<div class="indentinside">
<a class="linkside"
href="../../../research/">Research</a>
</div>
<div class="indentinside">
<a class="linkside"
onmouseover="Show(3)"
onmouseout="Hide(3)"
href="../../../testing%20services/welcome.asp">Testing
Services<img
border="0"
src="../../images/tri.gif"
alt=" "></a>
</div>
<div class="indentinside">
<a class="linkside"
onmouseover="Show(4)"
onmouseout="Hide(4)"
href="../../../people/">People<img
border="0"
src="../../images/tri.gif"
alt=" "></a>
</div>
<div class="indentinside">
<a class="linkside"
onmouseover="Show(5)"
onmouseout="Hide(5)"
href="../../../events/">Events<img
border="0"
src="../../images/tri.gif"
alt=" "></a>
</div>
<div class="indentinside">
<a class="linkside"
href="../../../links/">Links</a>
</div>
<div class="indentinside">
<a class="linkside"
href="../../../intranet/">Intranet
<img border="0"
src="../../images/key.gif"
alt=" "></a>
</div>
<div class="indentinside">
<a class="linkside"
href="../../welcome.asp">Home</a>
</div>
<!--webbot
bot="Include" u-include="../../includes/search.asp"
tag="BODY" -->
<p><br>
<img
border="0"
src="../../images/bar.gif"
width="90%"
height="2"
alt=" "></p>
<address
class="indent">
</address>
<address
class="indent">
Department of Agronomy<br>
2004 Throckmorton<br>
Plant Sciences Center<br>
Kansas State University
Manhattan, KS 66506 USA<br>
<br>
Phone (785) 532-6101<br>
Fax (785) 532-6094 <a
href="mailto:agronomy@ksu.edu">agronomy@ksu.edu</a>
</address>
<address
class="indent">
</address>
<address
class="indent">
<img
border="0"
src="../../images/bar.gif"
width="90%"
height="2"
alt=" ">
</address>
<p class="indent"><a
href="../../sitemap/welcome.asp"
class="links">Site
Map</a><br>
<a href="http://www.ksu.edu"
class="links">K-State</a><br>
<a href="http://www.ag.ksu.edu/"
class="links">College
of Agriculture</a><br>
</td>
<td colspan="7"
width="440">
<br/>
<div align="center">
<table
border="0"
cellpadding="4"
cellspacing="0"
style="border-collapse: collapse"
width="98%"
id="AutoNumber1">
<tr>
<td colspan="3"
height="41">
<h1 class="center"><%=
rsFac("fldName")%></h1>
</td>
</tr>
<tr>
<td rowspan="5">
<table
border="1"
cellpadding="0"
cellspacing="0"
style="border-collapse: collapse"
bordercolor="#111111"
id="AutoNumber3"
class="picborder">
<tr>
<td><img
src="<%=
rsFac("fldPictureURL")%>"
alt="<%=
rsFac("fldName")%>"
border="0"></td>
</tr>
</table>
</td>
<td>
<p class="title">Position: </td>
<td>
<%=
rsFac("fldPosition")%></td>
</tr>
<tr>
<td>
<p class="title">Office: </td>
<td>
<%=
rsFac("fldOffice")%> Throckmorton
Plant Sciences Center</td>
</tr>
<tr>
<td>
<p class="title">Phone:</td>
<td>
<%=
rsFac("fldPhone")%></td>
</tr>
<tr>
<td>
<p class="title">Fax:</td>
<td>
<%= rsFac("fldFax")%>
</td>
</tr>
<tr>
<td>
<p class="title">E-mail:</td>
<td><a
href="mailto:<%=
rsFac("fldEmail")%>"><%=
rsFac("fldEmail")%></a></td>
</tr>
</table>
</div>
<p> </p>
<div class="center">
<table
align="center"
border="0"
cellpadding="4"
cellspacing="0"
style="border-collapse: collapse"
width="98%"
id="AutoNumber2">
<tr>
<td width="100%"
height="18"
colspan="2">
<p class="happenings">PROFESSIONAL
INFO: <span class="smaller"><%
If Not rsFac("fldVitae") = "" Then %><a
href="<%=
rsFac("fldVitae") %>">Vitae</a><%
End If %></span></p>
</td>
</tr>
<%If Not
rsFac("fldResearchInterest") = "" Then%>
<tr>
<td>
<p class="title">Research
Interest</p>
</td>
<td>
<p><%=
rsFac("fldResearchInterest")%></p>
</td>
</tr>
<%End If%>
<%
'Select all information for
courses taught by the current faculty member
Set rsCourses =
Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT
tblCourses.fldCourseID, tblCourses.fldNumber, tblCourses.fldName,
tblCourses.fldDescURL, tblCourses.fldWebPageURL"
strSQL = strSQL & " FROM
tblCourses INNER JOIN tblCoursesTaught ON tblCourses.fldCourseID =
tblCoursesTaught.fldCourseID"
strSQL = strSQL & "
WHERE (((tblCoursesTaught.fldFacID)=" & Request("ID") &
"));"
rsCourses.Open strSQL, fp_conn,
adOpenDynamic
If Not rsCourses.EOF Then
'If the faculty member has
courses, loop through and display all their course information
'****************************************************************************************
%>
<tr>
<td>
<p class="title">Courses
taught:</p>
</td>
<td>
<% Do While Not
rsCourses.EOF
Response.Write "<p
class='facIndent'>"
If rsCourses("fldDescURL")
<> "" Then
Response.Write "<a href='"
& rsCourses("fldDescURL") & "'>"
Response.Write
rsCourses("fldNumber") & " "
Response.Write
rsCourses("fldName")
Response.Write
"</a>"
Else
Response.Write
rsCourses("fldNumber") & " "
Response.Write
rsCourses("fldName")
End If
If rsCourses("fldWebPageURL")
<> "" Then
Response.Write " - "
Response.Write "<a href='"
& rsCourses("fldWebPageURL") & "'>"
Response.Write "Course Web
Page"
Response.Write
"</a>"
End If
Response.Write
"</p>"
rsCourses.MoveNext
Loop
%>
</td>
</tr>
<%
rsCourses.Close
End If
%>
<tr>
<td>
<p class="title">Education:</p>
</td>
<td>
<p class="facindent"><%=
rsFac("fldBS")%></p>
<p class="facindent"><%=
rsFac("fldMS")%></p>
<p class="facindent"><%=
rsFac("fldPhD")%></p>
</td>
</tr>
<%If Not
rsFac("fldHonors") = "" Then%>
<tr>
<td>
<p class="title">Honors:</p>
</td>
<td>
<p><%=
rsFac("fldHonors")%></p>
</td>
</tr>
<% End If %>
<%'Open rsMiscCat for
the current faculy member
Set rsMiscCat =
Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM
tblMiscCategory WHERE ((fldFacID)=" & Request("ID") &
");"
rsMiscCat.Open strSQL, fp_conn,
adOpenDynamic
'Loop through each of the Misc
Categories for the current faculty member, and
'Display each of the Misc Data
Items for each of the Categories
'****************************************************************************
%>
<% While Not
rsMiscCat.EOF %>
<tr>
<td>
<p class="Title"><%=
rsMiscCat("fldMiscTitle") & ":" %></p>
</td>
<td></td>
</tr>
<% 'Open rsMiscData for
the current Misc Category
Set rsMiscData =
Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM
tblMiscData WHERE ((fldMiscCatID)=" & rsMiscCat("fldMiscCatID")
& ");"
rsMiscData.Open strSQL, fp_conn,
adOpenDynamic, adCmdText
'Loop through the rsMiscData and
display each of the Misc Data
'items for the current Misc
Category
'*************************************************************
While Not rsMiscData.EOF
%>
<tr>
<td></td>
<td>
<% If IsNull(
rsMiscData("fldLocation")) Then %>
<p class="facIndent"><%=
rsMiscData("fldInformation") %></p>
<% Else %>
<a href="<%=
rsMiscData("fldLocation")%>"><%=
rsMiscData("fldInformation") %></a>
<% End If %>
</td>
</tr>
<% rsMiscData.MoveNext
Wend %>
<%
rsMiscCat.MoveNext
Wend %>
<tr>
<td colspan="2"><br>
<br>
</td>
</tr>
<tr>
<td>
<p class="Title">Last
Updated:</p>
</td>
<td><%=
rsFac("fldTimeStamp")%></td>
</tr>
<%
'Close the faculty recordset
rsFac.Close
%>
</table>
</div>
<br/>
<br/>
</td>
</tr>
<tr>
<td colspan="8"
width="640">
<p> </p>
<!--webbot bot="Include"
u-include="../../includes/bottomlinks.htm"
tag="BODY" -->
</td>
</tr>
</table>
</div>
<% End If%>
</div>
</center>
</body>
</html>