<%
	'dim variables
	Dim oConn
	Dim oRS
	
	' set up db connection
	Set oConn = Server.CreateObject("ADODB.Connection")	
	' set up Recordset
	Set oRS = Server.CreateObject("ADODB.Recordset")
	' create odbc connection string & open connection
	oConn.ConnectionString = "Driver=SQL Server;UID=cgt4562z;Password=purdue2z54;SERVER=sotdev4.tech.purdue.edu;database=cgt4562z"

%>