<%@LANGUAGE="VBSCRIPT"%> <% id=request.querystring("id") set Tbl_data = Server.CreateObject("ADODB.Recordset") Tbl_data.ActiveConnection = MM_farne_STRING Tbl_data.Source = "SELECT * FROM dbo.Tbl_data where record_number = '" & id & "'" 'Tbl_data.Source = "SELECT * FROM dbo.Tbl_data " Tbl_data.CursorType = 0 Tbl_data.CursorLocation = 2 Tbl_data.LockType = 3 Tbl_data.Open() Tbl_data_numRows = 0 if not tbl_data.eof then set alt_title = Server.CreateObject("ADODB.Recordset") alt_title.ActiveConnection = MM_farne_STRING alt_title.Source = "SELECT * FROM dbo.Tbl_other_name where record_number = '" & id & "'" alt_title.CursorType = 0 alt_title.CursorLocation = 2 alt_title.LockType = 3 alt_title.Open() alt_title_numRows = 0 set related = Server.CreateObject("ADODB.Recordset") related.ActiveConnection = MM_farne_STRING related.Source = "SELECT * FROM dbo.Tbl_related where record_number = '" & id & "' ORDER BY related_record" related.CursorType = 0 related.CursorLocation = 2 related.LockType = 3 related.Open() related_numRows = 0 'response.write(session("array_results")) 'Do processing if we've come from the results page... if session("from_results_page") = "1" then myarray = session("array_results") 'response.write(related.source) count =-1 for each record in myarray count = count +1 if record = id then arraypos = count end if next end if if tbl_data.Fields.Item("media_filenames").Value <> "" then myimages = replace(tbl_data.Fields.Item("media_filenames").Value, " ", "") end if session("array_images") = split(myimages, ";") Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 alt_title_numRows = alt_title_numRows + Repeat1__numRows Dim Repeat2__numRows Repeat2__numRows = -1 Dim Repeat2__index Repeat2__index = 0 alt_title_numRows = alt_title_numRows + Repeat2__numRows ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables ' set the record count related_total = related.RecordCount ' set the number of rows displayed on this page If (related_numRows < 0) Then related_numRows = related_total Elseif (related_numRows = 0) Then related_numRows = 1 End If ' set the first and last displayed record related_first = 1 related_last = related_first + related_numRows - 1 ' if we have the correct record count, check the other stats If (related_total <> -1) Then If (related_first > related_total) Then related_first = related_total If (related_last > related_total) Then related_last = related_total If (related_numRows > related_total) Then related_numRows = related_total End If ' *** Recordset Stats: if we don't know the record count, manually count them If (related_total = -1) Then ' count the total records by iterating through the recordset related_total=0 While (Not related.EOF) related_total = related_total + 1 related.MoveNext Wend ' reset the cursor to the beginning If (related.CursorType > 0) Then related.MoveFirst Else related.Requery End If ' set the number of rows displayed on this page If (related_numRows < 0 Or related_numRows > related_total) Then related_numRows = related_total End If ' set the first and last displayed record related_first = 1 related_last = related_first + related_numRows - 1 If (related_first > related_total) Then related_first = related_total If (related_last > related_total) Then related_last = related_total End If 'response.write("
#" & related_numrows & "#") 'response.write(related.RecordCount & "
") 'response.write("#" & related_total & "#") %> FARNE Archive Search :: Results
FARNE - Folk Archive Resource North East
FARNE Archive Search Browse the Archive Search Tips
 

FARNE Archive Search :: Results

 

Search Results - Item Details

<% if session("from_results_page") = "1" then %>
<% if arraypos >= 1 then response.write("First") end if %> <%if arraypos >= 1 then response.write("Previous") end if %> <% if arraypos < ubound(myarray) then response.write("Next") end if %> <% if arraypos < ubound(myarray) then response.write("Last ") end if %>
<% end if %>
<% if tbl_data.Fields.Item("title").Value <> "" then %> <% end if %> <% if tbl_data.Fields.Item("notes").Value <> "" then %> <% end if %> <% if tbl_data.Fields.Item("prod_person").Value <> "" then %> <% end if %> <% if (tbl_data.Fields.Item("prod_cb").Value <> "") or (tbl_data.Fields.Item("prod_place").Value <> "") then %> <% end if %> <% if Tbl_data.Fields.Item("edition").Value<> "" then %> <% end if %> <% if Tbl_data.Fields.Item("prod_dates").Value<> "" then %> <% end if %> <% if Tbl_data.Fields.Item("duration").Value<> "" then %> <% end if %> <% myimage = left(tbl_data.Fields.Item("media_filenames").Value, 12)%> <% if tbl_data.Fields.Item("named_collection").Value <> "" then %> <% end if %>

 

 
<% myimage = left(tbl_data.Fields.Item("media_filenames").Value, 12) if tbl_data.Fields.Item("simple_name").Value = "sound recording" then myimage = "soundfile_logo.jpg" end if if tbl_data.Fields.Item("simple_name").Value = "video" then myimage = "video" end if if myimage <> "" then if myimage = "soundfile_logo.jpg" then %>

This clip is available in MP3 or RealAudio format.

<% if Tbl_data.Fields.Item("SOUND_FILE_RAM").Value <> "" then %> play real audio <% end if %>

<% if Tbl_data.Fields.Item("SOUND_FILE_M3U").Value <> "" then %> play mp3 <% end if %>

Listen here
(RealAudio)

Listen here
(MP3)

Download RealOne Player

<% end if if myimage = "video" then %>

This video clip is available in RealVideo format.

<% if Tbl_data.Fields.Item("SOUND_FILE_RAM").Value <> "" then %> Play real video <% end if %>

Click here to view
(RealVideo)

Download RealOne Player

<% end if if myimage <> "video" AND myimage <> "soundfile_logo.jpg" then response.write("
Click here to show larger image(s)
") end if else %>   <% end if %>

Title : <%=(tbl_data.Fields.Item("title").Value)%>

<% if ((Repeat2__numRows <> 0) AND (NOT alt_title.EOF)) then %> Also known as : <% end if %> <% While ((Repeat2__numRows <> 0) AND (NOT alt_title.EOF)) response.write(alt_title.Fields.Item("title").Value & " ; ") Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 alt_title.MoveNext() Wend %>

Format : <%=(Tbl_data.Fields.Item("notes").Value)%>

<%="

" & (Tbl_data.Fields.Item("prod_person").Value) & "

"%>

Production details : <%=(Tbl_data.Fields.Item("prod_cb").Value) & "
"%> <%=(Tbl_data.Fields.Item("prod_place").Value)%>

Edition : <%=(Tbl_data.Fields.Item("edition").Value)%>

Date : <%=(Tbl_data.Fields.Item("prod_dates").Value)%>

Duration : <%=(Tbl_data.Fields.Item("duration").Value)%>

<% if myimage <> "" then response.write("
Click to show larger image(s)
") end if %>

Collection name : <%=(Tbl_data.Fields.Item("named_collection").Value)%>

<% While ((Repeat1__numRows <> 0) AND (NOT alt_title.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 alt_title.MoveNext() Wend %> <% if tbl_data.Fields.Item("caption").Value <> "" then %> <% end if %> <% if Tbl_data.Fields.Item("gen_notes").Value<> "" then %> <% end if %> <% if Tbl_data.Fields.Item("brief_descrip").Value<> "" then %> <% end if %> <% if Tbl_data.Fields.Item("collector").Value<> "" then %> <% end if %> <% if Tbl_data.Fields.Item("collection_date").Value<> "" then %> <% end if %> <% if Tbl_data.Fields.Item("melody_used").Value<> "" then %> <% end if %> <% if Tbl_data.Fields.Item("first_line").Value<> "" then %> <% end if %> <% if Tbl_data.Fields.Item("heading1").Value<> "" then %> <% end if %> <% if Tbl_data.Fields.Item("heading2").Value<> "" then %> <% end if %> <% if Tbl_data.Fields.Item("keyword5").Value<> "" then %> <% end if %> <% if Tbl_data.Fields.Item("period").Value<> "" then %> <% end if %> <% if Tbl_data.Fields.Item("tune_type").Value<> "" then %> <% end if %> <% if Tbl_data.Fields.Item("key").Value<> "" then %> <% end if %> <% if Tbl_data.Fields.Item("time_signature").Value<> "" then %> <% end if %> <% if Tbl_data.Fields.Item("mode").Value<> "" then %> <% end if %> <% if Tbl_data.Fields.Item("gores_index").Value<> "" then %> <% end if %> <% if Tbl_data.Fields.Item("correction").Value<> "" then %> <% end if %> <% if Tbl_data.Fields.Item("place").Value <> "" then %> <% end if %> <% if Tbl_data.Fields.Item("person").Value <> "" then %> <% end if %> <% if Tbl_data.Fields.Item("height").Value <> "" then %> <% end if %> <% if Tbl_data.Fields.Item("width").Value <> "" then %> <% end if %> <% if Tbl_data.Fields.Item("pagination").Value <> "" then %> <% end if %> <% if Tbl_data.Fields.Item("holder").Value <> "" then %> <% end if %> <% if tbl_data.Fields.Item("copyrt_notes").Value <> "" then %> <% end if %>
 

<%=(Tbl_data.Fields.Item("caption").Value) %>

 

Notes : <%=(Tbl_data.Fields.Item("gen_notes").Value)%>

 

Collection description : <%=(Tbl_data.Fields.Item("brief_descrip").Value)%>

<%= (Tbl_data.Fields.Item("collector").Value) %>

Collection date : <%=(Tbl_data.Fields.Item("collection_date").Value)%>

 

<%=(Tbl_data.Fields.Item("melody_used").Value) %>

<%=(Tbl_data.Fields.Item("first_line").Value) %>

Subject heading : <%=(Tbl_data.Fields.Item("heading1").Value)%>

Keywords : <%=(Tbl_data.Fields.Item("heading2").Value)%>

<%="

" & (Tbl_data.Fields.Item("keyword5").Value) & "

"%>

Period : <%=(tbl_data.Fields.Item("period").Value)%>

Tune Type : <%=(tbl_data.Fields.Item("tune_type").Value)%>

Key : <%=(tbl_data.Fields.Item("key").Value)%>

<%=(tbl_data.Fields.Item("time_signature").Value)%>

<%=(tbl_data.Fields.Item("mode").Value)%>

Gore's index : <%=(tbl_data.Fields.Item("gores_index").Value)%>

<%=(Tbl_data.Fields.Item("correction").Value)%>

 

Place : <%=(Tbl_data.Fields.Item("place").Value)%>

<%=(Tbl_data.Fields.Item("person").Value)%>

 

Height : <%=(Tbl_data.Fields.Item("height").Value)%>

Width : <%=(Tbl_data.Fields.Item("width").Value)%>

<%=(Tbl_data.Fields.Item("pagination").Value) %>

 

Held by : <%=(Tbl_data.Fields.Item("holder").Value)%>

Copyright : <%=(Tbl_data.Fields.Item("copyrt_notes").Value)%>

<% if related_total <> 0 then response.write("

") for text_count = 1 to 8 select case text_count case 1 mytext = "Want to listen to this?" case 2 mytext = "Want to see the lyrics for this?" case 3 mytext = "Want to see the music for this?" case 4 mytext = "Want to see another version of this?" case 5 mytext = "Want to see related images?" case 6 mytext = "Want to hear more of this concert?" case 7 mytext = "Find out more about this collection" case 8 mytext = "Want to see related film?" end select 'mytext = "Find out more about this collection" 'mytext = "Want to see another version of this?" record_ids = "" related.movefirst() While ((related_numRows <> 0) AND (NOT related.EOF)) if related.fields.item("description").value = mytext then if record_ids = "" then record_ids = related.fields.item("related_record").value else record_ids = record_ids & "," & related.fields.item("related_record").value end if end if related.movenext() wend if len(record_ids) > 0 then array_ids = split(record_ids, ",") ' response.write(record_ids & "
") ' response.write(ubound(array_ids) & "
") if ubound(array_ids) = 0 then response.write("

" & mytext & "

") else response.write("

" & mytext & " Click on a number below.
") for count = 0 to ubound(array_ids) response.write("" & count+1 & "") response.write(" ") next response.write("

") end if end if next end if %>
 

t :: 0191 433 8430

f :: 0191 433 8424

e :: libraries@gateshead.gov.uk

Back Return to top
 

© Gateshead Council 2003

FARNE Folk Archive Resource North East
<% else response.write("

Record could not be found.

") end if %> <% if not tbl_data.eof then related.Close() Tbl_data.Close() alt_title.Close() end if %>