Course #: Course Title

(:*toc Table of Contents:)

Books in the Main Stacks

Citing Your Resources

Doing ethical research means citing sources. It is critical to credit writers for their work and their contributions to your research. To not do so is unethical and leads to plagiarism - unintentionally or not. Here are some sources to help you cite properly and to avoid the problem of plagiarism.

  • Citation of Sources
    This lists citation engines which help you create proper citations as well as providing information on different citation styles.
  • Tips on avoiding plagiarism
  • Turnitin
    Turnitin is a service that faculty and students use to detect and avoid plagiarism in their writing.
  • NoodleBib
    NoodleBib is an online resource that will help you format MLA and APA bibliographies, exporting them directly to your word processing program.

Dictionaries & Encyclopedias

Find Subject Articles

<% Dim titleID titleID=request.querystring("ID") sql = "SELECT [databases with subjects].SubjectID, [databases with subjects].Subjects, [database titles].ID, [database titles].dbtitle, [database titles].URL, [database titles].Rank, [database titles].[access message] FROM [database titles] INNER JOIN [databases with subjects] ON [database titles].ID = [databases with subjects].[Database Title] WHERE (([databases with subjects].SubjectID=" & titleID & ") AND ([database titles].display = False))" sql = sql & " ORDER BY [database titles].[dbtitle]" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 3, 3 totrows=-1:totcols=0 rstarray = rs.getrows totrows = Ubound(rstarray, 2) totcols = Ubound(rstarray, 1) rs.close set rs=nothing conn.close set conn=nothing 'Grab the subject name to put in header strSubject = rstarray(1,0) %>

Databases with Articles contain material published in magazines, journals, and newspapers.
Reference Sources include dictionaries, encyclopedias, directories and more.
info= database and full text info.

<% 'open the table with the article column response.write ("" & chr(13)) response.write ("" & chr(13)) %>
Databases with Articles
Reference Sources

    ") 'loop through the array to fill the first column For r=0 to totrows Dim varURL varURL = rstarray(4,r) If isNull (varURL) then varURL = rstarray(3,r) Else varURL = "" & rstarray(3,r) & " " End If Dim intRank intRank = cInt(rstarray(5,r)) If intRank = 1 then %>
  • <%=varURL%> <%=rstarray(6,r)%>
  • <% Else response.write ("") End If Next 'add a line and close the column but test if line is necessary Dim varLine varLine = rstarray(0,0) If varLine = 79 then response.write ("") Else response.write ("
  • Multi-Purpose Full Text Databases
  • " & chr(13)) End If response.write ("


    " & chr(13)) 'loop through the array again to fill the second column For i=0 to totrows Dim varURLb varURLb = rstarray(4,i) If isNull (varURLb) then varURLb = rstarray(3,i) Else varURLb = "" & rstarray(3,i) & " " End If Dim intRank2 intRank2 = cInt(rstarray(5,i)) If intRank2 = 2 then %>
  • <%=varURLb%> <%=rstarray(6,i)%>
  • <% Else response.write ("") End If Next 'add a line and close the column but first see if necessary If varLine = 78 then response.write ("") Else response.write ("
  • General Reference Databases
  • " & chr(13)) End If response.write ("

Periodicals

Web Sites

<%@ Language="vbscript" %> <% Dim r, ID, title, strsql, rst, rs, rsarray ID = request.querystring("ID") If IsNull(ID) or (trim(ID)="") Then ID = 1 End If 'Grab the category to put in the header hsql = "SELECT tblcategories.pgtitle FROM tblcategories WHERE tblcategories.catID = " & ID set rshead = Server.CreateObject("ADODB.Recordset") rshead.Open hsql, Objconn If rshead.EOF then title = " " Else title = rshead.fields("pgtitle") End If rshead.Close set rshead=nothing 'Grab child headings strsql = "SELECT tblsubcats.child, tblsubcats.heading " &_ "FROM tblsubcats WHERE tblsubcats.parent=" & ID &_ " ORDER BY tblsubcats.heading;" set rst = Server.CreateObject("ADODB.Recordset") rst.Open strsql, Objconn, 3, 3 totrows=-1:totcols=0 'If there are no children If rst.EOF then response.write (" ") Else rstarray = rst.getrows totrows = Ubound(rstarray, 2) totcols = Ubound(rstarray, 1) rst.Close set rst=nothing %> " & chr(13)) response.write ("" & chr(13)) %>
    <% Dim n n = totrows\2 For r=0 to n %>
  • <%=rstarray(1,r)%>
  • <% Next 'Close the loop and column response.write ("
    " & chr(13)) r = n+1 For r=r to totrows %>
  • <%=rstarray(1,r)%>
  • <% Next 'Close the loop and column response.write ("
<% End If 'Display any links sql = "SELECT Trim(tbllinks.title) AS Exp1, tbllinks.url, tbllinks.description, Trim(tblrelations.heading) AS Exp2, tbllinks.date, tbllibrarians.initials, tbllibrarians.email " &_ "FROM tbllibrarians INNER JOIN (tbllinks INNER JOIN tblrelations ON tbllinks.linkID = tblrelations.link) ON " &_ "tbllibrarians.libID = tbllinks.librarian WHERE tblrelations.category=" & ID & " ORDER BY Trim(tblrelations.heading), Trim(tbllinks.title);" set rs=Server.CreateObject("ADODB.Recordset") rs.Open sql, Objconn, 3, 3 totrows2=-1:totcols2=0 If rs.EOF Then response.write (" ") Else rsarray = rs.getrows totrows2 = Ubound(rsarray, 2) totcols2 = Ubound(rsarray, 1) rs.Close set rs=nothing Dim sPrevCat, sCat sPrevCat = "" sCat = "" For q=0 to totrows2 SPrevCat = sCat sCat=rsarray(3,q) If isNull (sCat) Then sCat = "" End If If strcomp(sPrevCat, sCat) <> 0 Then response.write("" & rsarray(3,q) & "") Else response.write ("") End If %>

<%=rsarray(0,q)%>
<% If isNull (rsarray(2,q)) OR (rsarray(2,q)) = "" Then response.write ("") Else response.write (rsarray(2,q) & "
") End If %>

<% Next %> <% End If Objconn.Close set Objconn=nothing %>

Ask a Librarian

Flash required

Evaluate Your Information Instruction Class



Leave a Comment/Suggestion

Do you have information to add? Then please Edit this page. Otherwise to leave a comment, use the box below.

Add Comment 
Sign as Author 
1993

Last updated August 26, 2009, at 12:17 PM by Marie Accardi