Scholarship Listings

<% Dim objConn Dim objRS 'Open up a connection to our Access Database 'We will use a DSN - less connection. Set objConn = Server.CreateObject("ADODB.Connection") objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("OnlineScholarships.mdb") '& ";Mode=ReadWrite;" objConn.Open 'Create a recordset object instance and retrieve the information 'from the resources table. 'Set objRS = Server.CreateObject("ADODB.RecordSet") 'MM_JOURNALS_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/macromedia/csitfaculty/csitfaculty.mdb") & ";" '01. Default sql statement... strSQLstatment = "SELECT Source, URL FROM ScholarshipURL ORDER BY Source ASC" 'STATEMENTS USED TO OPEN DATABASE AND TABLE Set ScholarshipRS = Server.CreateObject("ADODB.Recordset") ScholarshipRS.ActiveConnection = objConn ScholarshipRS.Source = strSQLstatment ScholarshipRS.CursorType = 0 ScholarshipRS.CursorLocation = 2 ScholarshipRS.LockType = 1 ScholarshipRS.Open() 'objRS.Open "ScholarshipURL", objConn, , 3 , 2 ScholarshipRS.MoveFirst 'oRSeof.MoveFirst response.write "" 'Response.write "" Do while NOT ScholarshipRS.EOF Response.write "" 'Response.write "" ScholarshipRS.MoveNext Loop response.write "

Source

" & ScholarshipRS("Source") & " "&""& ScholarshipRS("URL") & ""&"

" ScholarshipRS.Close Set ScholarshipRS = Nothing objConn.Close Set objConn = Nothing %>