This site is supported in part by funding from the National Science Foundation as part of the National Science Digital Library.
<%
'Initialize and Open Database Connection
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open("reusablelearning")
%>
<%
Dim objRS ' Our Recordset Object
Dim strSQL ' Our SQL String to access the database
Dim strConnection ' Our Connection string to access the database
Dim i ' a counter variable
' -- Create objects
Set objRS = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM references ORDER BY reference, pubyear"
' -- Populate our Recordset with data
set objRS = objConn.Execute (strSQL)
' Check to see if any records exist
if (objRS.BOF and objRS.EOF) then
response.write "No records found"
response.end
End if
response.write("" & vbCrLf)
' Go to first record
objRS.MoveFirst
' Do Loop through all records
Do While Not objRS.EOF
' Note: to escape quotes use two quotes in a row such as "" will insert one double quote, """" will insert two double quotes--as in a null value
response.write("
")
%>
" & vbCrLf)
response.write(vbTab & " " & vbCrLf)
'Go to next record
objRS.MoveNext
Loop
response.write("" & "(" & objRS.Fields("reference") & ")" & " " & vbCrLf)
response.write(vbTab & "" & vbCrLf & "" & vbCrLf)
response.write(vbTab & "" & vbCrLf)
response.write (objRS.Fields("authors") & " (" & objRS.Fields("pubyear") & "). ")
' Check to see if a URL exists
if objRS.Fields("url") <> "" then
response.write ("" & objRS.Fields("title") & "" & ". ")
response.write(objRS.Fields("citation") & " " )
' Deprecated, since can automatically build the combined text.
'
'response.write(objRS.Fields("urlretrievedondate") & " " & vbCrLf)
response.write("
")
response.write("Retrieved from " & "" & objRS.Fields("url") & " on " & objRS.Fields("retrievaldate") & ".")
else
response.write (objRS.Fields("title") & ". ")
end if
response.write("" & "
This site is supported in part by funding from the National Science Foundation as part of the National Science Digital Library.