New Page 1

Because we are a University research center, most projects are conducted with a joint research/development and education focus, benefiting both sponsors and supported students. The timelines for these projects typically follow the academic year. However, given the requirements of today's business environment, the Center also offers a fast-track program. For additional consideration to be negotiated, the Center fast-tracks projects subject to their technological requirements and available laboratory resources. These projects utilize primarily full-time, dedicated Center personnel and typically have both a shorter timeline and narrower scope than traditional research programs. Additional details can be obtained by contacting us.<% 'list of publications Dim spew, SQLtext, list, pagesize, pagenum, maxpages, reccount, i 'number of records displayed on a page pagesize = 30 'retrieve the page number we're on If Request.QueryString("pgn") <> "" then pagenum = cInt(Request.QueryString("pgn")) Else pagenum = 1 End If 'open the database Dim DataConn, objRS set DataConn = Server.CreateObject("ADODB.Connection") DataConn.ConnectionString = Application("aewcdb_ConnectionString") DataConn.Open , Application("aewcdb_RuntimeUserName"), Application("aewcdb_RuntimePassword") set objRS = Server.CreateObject("ADODB.Recordset") 'objRS.CursorLocation = 3 'aduseclient 'objRS.CacheSize = 5 SQLtext = "SELECT tblpublications.Title, tblpublications.Publisher, tblpublications.Authors, tblpublications.Year " SQLtext = SQLtext & "FROM tblpublications " SQLtext = SQLtext & "ORDER BY tblpublications.Authors, tblpublications.Year;" objRS.Open SQLtext, DataConn, 1, 1 'adOpenKeyset, adLockReadOnly 'establish paging parameters objRS.MoveFirst objRS.PageSize = pagesize maxpages = cint(objRS.PageCount) objRS.AbsolutePage = pagenum 'display paging information spew = spew & "

Page number " & pagenum & " of " & maxpages & " total pages.
" If pagenum <> 1 then spew = spew & "[previous] " & vbcrlf End if If pagenum <> maxpages then spew = spew & "[next] " & vbcrlf End If For i = 1 to maxpages spew = spew & "" & i & " " & vbcrlf next spew = spew & "" 'print out a listing reccount = 0 Do until objRS.EOF OR reccount >= pagesize spew = spew & "

" spew = spew & objRS.Fields("Authors") & " " spew = spew & objRS.Fields("year") & ". " spew = spew & objRS.Fields("title") & " " spew = spew & objRS.Fields("publisher") spew = spew & "

" & vbcrlf objRS.MoveNext reccount = reccount + 1 Loop 'display paging information spew = spew & "

" 'close the database objRS.Close set objRS = nothing DataConn.Close set DataConn = nothing Response.Write spew %>

A Center for Research, Education, and Economic Development at the University of Maine

An ISO 17025 Certified Research & Development Laboratory

Accredited by International Accreditation Service

Click here for a list of accredited ASTM Tests Offered by AEWC (PDF)