Laurence W. Carstensen Jr. Department Head	GIS, cartography, wireless telecommunications modeling, unmanned vehicle navigation
	John Boyer Instructor	world regions, viticulture, geography of wine
	James B. Campbell Professor	remote sensing, soils and geomorphology, quantitative methods
	David Carroll Instructor	Meteorology, forecasting, severe weather
	Kirsten M. de Beurs Assistant Professor	remote sensing, land surface phenology, Anthropogenic Change Analysis
	Charles M. Good Emeritus Professor	medical, Africa, Third World development, immigration)
	Lawrence S. Grossman Professor	Caribbean, development, political ecology, colonial environmental history
	Lisa M. Kennedy Assistant Professor	physical geography, biogeography, Quaternary paleoenvironments
	Korine N. Kolivras Assistant Professor	medical geography, climate and health, climatology
	Robert W. Morrill Emeritus Professor	geographic education, North America, political
	Robert Oliver Instructor	Geography of Sport, Public Spaces
	Lynn M. Resler Assistant Professor	biogeography, alpine treeline, mountain environments, field methods, digital image analysis
	Bonham C. Richardson Emeritus Professor	historical, Caribbean, human ecology
	Joseph L. Scarpaci Emeritus Professor	Latin American Studies, International Development , Place promotion, Heritage, International & Socail Marketing
	Peter Sforza Research Associate	remote sensing, geospatial informatics, biosecurity, epidemiology, scientific visualization and virtual reality environments, weather and climate
	Tamim Younos Research Faculty	water resources, watershed assessment and monitoring, environmental hydrology, water-energy nexus

 

 

<% 'ASP Code here to fill in the students Dim adoCon 'Holds the Database Connection Object Dim rsStudentsData 'Holds the recordset for the records in the database Dim strSQL 'Holds the SQL query for the database Dim today 'Holds today's date Dim email Dim website Dim degree today = Date() 'Create an ADO connection odject Set adoCon = Server.CreateObject("ADODB.Connection") 'Set an active connection to the Connection object using a DSN-less connection adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Students.mdb") 'Create an ADO recordset object Set rsStudentsData = Server.CreateObject("ADODB.Recordset") 'Initialise the strSQL variable with an SQL statement to query the database strSQL = "SELECT * FROM Students ORDER BY Students.PHD, Students.Last;" 'Open the recordset with the SQL query rsStudentsData.Open strSQL, adoCon Response.Write(today) 'Loop through the recordset Do While not rsStudentsData.EOF 'Write the HTML to a table if rsStudentsData("PHD") = True then degree = "GEA PhD." if rsStudentsData("PHD") = False then degree = "MS in Geography" if rsStudentsData("website") <> "" then website = "" end if Response.Write ("") Response.Write ("" & "") Response.Write("") 'Move to the next record in the recordset rsStudentsData.MoveNext Loop Response.Write("

Geography Graduate Students at Virginia Tech

Name	Contact Email	WebSite	Degree
" & "" & rsStudentsData("Last") & " webpage" & "" else website = "	" & "Website under construction" & "
" & rsStudentsData("First") & " " & rsStudentsData("Last") & "	" & "" & rsStudentsData("Email") & "" & website & "	" & degree & "

") 'Reset server objects rsStudentsData.Close Set rsStudentsData = Nothing Set adoCon = Nothing 'end of ASP code, back to template %>