I tried following the example on the tutorial page to add a link from a thumbnail to a larger image, but could not find the string I was supposed to replace. Any help would be appreciated.
<!-- edit form -->
<form method="POST" action="Movies_edit.asp" name="editform">
<input type=hidden id="editid" name="editid" value="" >
<input type=hidden id="editid2" name="editid2" value="" >
<input type=hidden id="editid3" name="editid3" value="" >
<input type=hidden id="TargetPageNumber" name="TargetPageNumber" value=<%=TargetPageNumber%>>
<input type=hidden id="NeedQuotes<%=BuildFieldName(strKeyField)%>" name="NeedQuotes<%=BuildFieldName(strKeyField)%>" value="">
<input type=hidden id="NeedQuotes<%=BuildFieldName(strKeyField2)%>" name="NeedQuotes<%=BuildFieldName(strKeyField2)%>" value="">
<input type=hidden id="NeedQuotes<%=BuildFieldName(strKeyField3)%>" name="NeedQuotes<%=BuildFieldName(strKeyField3)%>" value="">
<input type=hidden id="todo" name="todo" value="view">
<input type=hidden id=masterkey name=masterkey value="<%=strMasterKey%>">
</form>
<%
' Pagination: Control Variables
dim iNumberOfRows
dim maxRecords
dim maxpages
dim mypage
iNumberOfRows =0
maxRecords = 0
maxpages = 0
mypage = TargetPageNumber
if mypage = "" then mypage =1
if CDBL(mypage)<=0 then mypage =1
%>
<table align='center' border='0'>
<tr>
<td width=10> </td>
<%
If Session("UserID")<>"" Then
%>
<td align=center>Logged as <b><%=Session("UserID")%></b>
<a href="#" onclick="document.forms.logout.submit();return true;">Log out</a>
</td><td width=20> </td>
<% End If %>
<% if CheckSecurity("", "Search")=True then %>
<td align=center>
<a href="Movies_search.asp" onClick="document.advsearch.submit();return false;" >Advanced search</a>
</td><td width=20> </td>
<% end if %>
<% if CheckSecurity("", "Export")=True then %>
<td align=center>
<a href="Movies_export.asp" onClick="document.exportto.submit();return false;">Export results</a>
</td><td width=20> </td>
<td align=center>
<a href="Movies_print.asp" onClick="document.printerfriendly.submit();return false;">
<img src="images/printer.gif" border=0></a>
</td>
<td align=center>
<a href="Movies_print.asp" onClick="document.printerfriendly.submit();return false;">
Printer-friendly version</a>
</td>
<td width=20> </td>
<% end if %>
</tr></table>
<%' Control Functions %>
<form method="POST" action="" name="frmAdmin">
<input type="hidden" id="TargetPageNumber" name="TargetPageNumber" value="1" >
<input type="hidden" id="cmdGotoPage" name="cmdGotoPage">
<input type="hidden" id="action" name="action" value="Search">
<input type="hidden" id="orderby" name="orderby" value="<%=strOrderBy%>">
<input type="hidden" id="PageSize" name="PageSize" value="<%=Session("PageSize")%>">
<input type=hidden id=masterkey name=masterkey value="<%=strMasterKey%>">
<script language="JavaScript" src="include/jsfunctions.js">
</script>
<script>
var bSelected=false;
function GotoPage(nPageNumber)
{
document.forms.frmAdmin.cmdGotoPage.value = 'GotoPage';
document.forms.frmAdmin.action.value = 'goto';
document.forms.frmAdmin.TargetPageNumber.value = nPageNumber;
document.forms.frmAdmin.submit();
}
</script>
<%
set rs = setupRs(strConnection,strSQL,PageSize)
Call ReportError
%>
<% if CheckSecurity("", "Search")=True then %>
<%' Pagination: Write Search result Header%>
<table rows='1' cols='1' align='center' width='95%' border='0'>
<tr><td align="right">
<TABLE WIDTH=100% CELLPADDING=0 CELLSPACING=0 BORDER=0>
<TR><TD BGCOLOR=black align=center>
<table border=0 width=100% CELLPADDING=3 CELLSPACING=1><tr valign=center>
<% if CheckSecurity("", "Add")=True then %>
<!-- Add new record -->
<td align=center class='shade'>
<a href=Movies_add.asp
onClick="java script: document.forms.editform.action='Movies_add.asp';
document.forms.editform.todo.value = 'add';
document.forms.editform.TargetPageNumber.value=<%=mypage%>; document.forms.editform.submit(); return false;" >Add new</a>
</td>
<% end if %>
<!-- Search form -->
<td align=center valign=middle class=shade>
<b>Search for: </b>
<SELECT ID="SearchField" NAME="SearchField" SIZE="1">
<OPTION VALUE="AnyField">Any field</option>
<OPTION VALUE="Movie"><%=Label("Movie")%></option>
<OPTION VALUE="Actor"><%=Label("Actor")%></option>
<OPTION VALUE="Actor1"><%=Label("Actor1")%></option>
<OPTION VALUE="Actor2"><%=Label("Actor2")%></option>
<OPTION VALUE="Actor3"><%=Label("Actor3")%></option>
<OPTION VALUE="Actor4"><%=Label("Actor4")%></option>
<OPTION VALUE="Actor5"><%=Label("Actor5")%></option>
<OPTION VALUE="Actor6"><%=Label("Actor6")%></option>
<OPTION VALUE="Storyline"><%=Label("Storyline")%></option>
</SELECT>
<SELECT ID="SearchOption" NAME="SearchOption" SIZE="1">
<OPTION VALUE="Contains">Contains</option>
<OPTION VALUE="Equals">Equals</option>
<OPTION VALUE="Starts with ...">Starts with ...</option>
<OPTION VALUE="More than ...">More than ...</option>
<OPTION VALUE="Less than ...">Less than ...</option>
<OPTION VALUE="Equal or more than ...">Equal or more than ...</option>
<OPTION VALUE="Equal or less than ...">Equal or less than ...</option>
<OPTION VALUE="IsNull">Empty</option>
</SELECT>
<%
if Request.Form("action")="Search" then
%>
<script>
var i;
for (i=0; i<document.forms.frmAdmin.SearchOption.options.length; ++i)
{
if (document.forms.frmAdmin.SearchOption.options[i].value=='<%=Request.Form("SearchOption")%>')
{
document.forms.frmAdmin.SearchOption.selectedIndex=i;
break;
}
}
for (i=0; i<document.forms.frmAdmin.SearchField.options.length; ++i)
{
if (document.forms.frmAdmin.SearchField.options[i].value=='<%=Request.Form("SearchField")%>')
{
document.forms.frmAdmin.SearchField.selectedIndex=i;
break;
}
}
</script>
<%
end if
%>
<input type=text size=20 name=SearchFor value="<%if Request.Form("action")="Search" then Response.Write Request.Form("SearchFor")%>">
<input type=button class=button name="SearchButton" value="Search"
onClick="java script: document.forms.frmAdmin.action.value = 'Search';
document.forms.frmAdmin.submit();">
<input type=button class=button value="Show all"
onClick="java script: document.forms.frmAdmin.action.value = 'Search';
document.forms.frmAdmin.SearchFor.value=''; document.forms.frmAdmin.submit();">
</td>
<!-- How many records found-->
<td align=center class=shade>
Details found: <%=maxRecords%>
Page <%=mypage%> of <%=maxpages%>
</td>
<td align=center class=shade>
<!--Records per page-->
Records Per Page:
<SELECT name=PageSizeSelect onChange="java script: document.forms.frmAdmin.action.value='pagesize'; document.forms.frmAdmin.PageSize.value = document.forms.frmAdmin.PageSizeSelect.options[document.forms.frmAdmin.PageSizeS
elect.selectedIndex].value;document.forms.frmAdmin.submit();">
<OPTION value=10 <%if session("pagesize")=10 then Response.Write " selected"%>>10
<OPTION value=20 <%if session("pagesize")=20 then Response.Write " selected"%>>20
<OPTION value=30 <%if session("pagesize")=30 then Response.Write " selected"%>>30
<OPTION value=50 <%if session("pagesize")=50 then Response.Write " selected"%>>50
<OPTION value=100 <%if session("pagesize")=100 then Response.Write " selected"%>>100
<OPTION value=500 <%if session("pagesize")=500 then Response.Write " selected"%>>500
<!--START-->
<script language="JavaScript">DisplayHeader();</script>
<% else %>
<% if CheckSecurity("", "Add")=True then %>
<!-- Add new record -->
<td align=center class='shade'>
<a href=Movies_add.asp
onClick="java script: document.forms.editform.action='Movies_add.asp';
document.forms.editform.todo.value = 'add';
document.forms.editform.TargetPageNumber.value=<%=mypage%>; document.forms.editform.submit(); return false;" >Add new</a>
</td>
<% end if %>
<% end if %>
<% if not rs.eof then %>
<% if CheckSecurity("", "Delete")=True then %>
<a href=# onClick = "var i; bSelected = !bSelected; for (i=0;i<document.forms.deleteform.mdelete.length;++i) document.forms.deleteform.mdelete[i].checked=bSelected;">Select/Unselect all</a>
<a href="#" onClick="if (confirm('Do you really want to delete these records?')) { document.forms.deleteform.submit(); return false; } else {return true;}">Delete selected</a>
<% end if %>
<%
end if
' quotes for search and edit fields
for i=0 to rs.Fields.Count-1
strNeedQuotes=IfNeedQuotes(rs.Fields(i).Type)
Response.Write "<input type=hidden name=NeedQuotes" & BuildFieldName(rs.Fields(i).Name) & " value=" & strNeedQuotes & ">" & vbCRLF
if rs.Fields(i).Name=strKeyField or rs.Fields(i).Name=strKeyField2 or rs.Fields(i).Name=strKeyField3 then
%>
<script language="JavaScript">
document.forms.editform.NeedQuotes<%=BuildFieldName(rs.Fields(i).Name)%>.value = "<%=strNeedQuotes%>";
</script>
<%
if rs.Fields(i).Name=strKeyField then if strNeedQuotes="True" then gstrQuote=GetQuote(rs.Fields(i).Name) else gstrQuote="" end if end if
if rs.Fields(i).Name=strKeyField2 then if strNeedQuotes="True" then gstrQuote2=GetQuote(rs.Fields(i).Name) else gstrQuote2="" end if end if
if rs.Fields(i).Name=strKeyField3 then if strNeedQuotes="True" then gstrQuote3=GetQuote(rs.Fields(i).Name) else gstrQuote3="" end if end if
end if
next
Session("gstrQuote")=gstrQuote
Session("gstrQuote2")=gstrQuote2
Session("gstrQuote3")=gstrQuote3
%>
</form>
<!-- advanced search form -->
<form name=advsearch method=post action="Movies_search.asp">
<input type=hidden id=masterkey name=masterkey value="<%=strMasterKey%>">
<%
for i=0 to rs.Fields.Count-1
strNeedQuotes=IfNeedQuotes(rs.Fields(i).Type)
Response.Write "<input type=hidden name=NeedQuotes" & BuildFieldName(rs.Fields(i).Name) & " value=" & strNeedQuotes & ">" & vbCrLF
next
%>
</form>
<!-- export to form -->
<form target=_blank name=exportto method=post action="Movies_export.asp">
<input type=hidden id=mypage name=mypage value=<%=CStr(TargetPageNumber)%>>
<input type=hidden id=pagesize name=pagesize value=<%=CStr(PageSize)%>>
</form>
<!-- printer-friendly form -->
<form target=_blank name=printerfriendly method=post action="Movies_print.asp">
<input type=hidden id=mypage name=mypage value=<%=CStr(TargetPageNumber)%>>
<input type=hidden id=pagesize name=pagesize value=<%=CStr(PageSize)%>>
</form>
<!-- delete form -->
<form method="POST" action="Movies_list.asp" name="deleteform">
<input type=hidden id=masterkey name=masterkey value="<%=strMasterKey%>">
<input type=hidden id="NeedQuotes<%=BuildFieldName(strKeyField)%>" name="NeedQuotes<%=BuildFieldName(strKeyField)%>" value="<%=IfNeedQuotes(rs.Fields(strKeyField).Type)%>">
<input type=hidden id="action" name="action" value="delete">
<input type="hidden" id="TargetPageNumber" name="TargetPageNumber" value=<%=TargetPageNumber%> >
<% if strKeyField2<>"" then %>
<input type=hidden id="NeedQuotes<%=BuildFieldName(strKeyField2)%>" name="NeedQuotes<%=BuildFieldName(strKeyField2)%>" value="<%=IfNeedQuotes(rs.Fields(strKeyField2).Type)%>">
<% end if %>
<% if strKeyField3<>"" then %>
<input type=hidden id="NeedQuotes<%=BuildFieldName(strKeyField3)%>" name="NeedQuotes<%=BuildFieldName(strKeyField3)%>" value="<%=IfNeedQuotes(rs.Fields(strKeyField3).Type)%>">
<% end if %>
<table align='center' width='95%' border='0' cellpadding=3 cellspacing=2>
<%
if CheckSecurity("", "Search")=True then
if rs.eof then
Response.Write "<p> </p><p align=center><b>No records found</b></p>"
else
call WriteTableHeader
call loopRs(rs, CLng(PageSize))
end if
end if
%>
<%
rs.Close
Set rs = Nothing
%>
</table>
</form>
<% if CheckSecurity("", "Search")=True then %>
<script language="JavaScript">WritePagination(<%=mypage%>,<%=maxpages%>);</script>
<% end if %>
<%
Response.Write("</body>")
Response.Write("</html>")
function setupRs(strConnection,strSQL,nPageSize)
Err.Clear
Set setupRs = server.CreateObject ("ADODB.Recordset")
set dbConnection = server.CreateObject ("ADODB.Connection")
dbConnection.ConnectionString = strConnection
dbConnection.Open
Call ReportError
LogInfo(strSQL)
setupRs.open strSQL,dbConnection
Call ReportError
' Pagination:
if NOT setupRs.EOF then
setupRs.PageSize =nPageSize
maxRecords = cdbl(setupRs.RecordCount)
maxpages=cdbl(setupRs.PageCount)
if cdbl(mypage) > cdbl(maxpages) then
mypage = maxpages
End IF
setupRs.AbsolutePage = mypage
maxrecs=cdbl(setupRs.pagesize)
End IF
end function
sub WriteTableHeader
%>
<tr CLASS="blackshade" valign=top>
<TD align=center><img src=images/icon_edit.gif></td>
<TD align=center><img src=images/icon_view.gif></td>
<TD align=center><img src=images/icon_delete.gif></td>
<TD>
<table><tr><td class=blackshade>
<% if (rs.Fields("Thumbnail").Attributes and 128) and ( rs.Fields("Thumbnail").Type = 204 or rs.Fields("Thumbnail").Type=205 ) then
Response.Write Label("Thumbnail") & "</td>"
else
%>
<a class=blackshade href="Movies_list.asp" onClick="java script:
document.forms.frmAdmin.action.value = 'OrderBy';
document.forms.frmAdmin.orderby.value = '<%=Replace("Thumbnail","'","\'")%>';
document.forms.frmAdmin.submit(); return false; "><%=Label("Thumbnail")%>
</td>
<%
if Request.Form("orderby")="Thumbnail" and strOrderImage<>"" then
Response.Write "<td><img src=images/" & strOrderImage & " border=0></td>"
end if
end if
%>
</tr></table>
</TD>
<TD>
<table><tr><td class=blackshade>
<% if (rs.Fields("Movie").Attributes and 128) and ( rs.Fields("Movie").Type = 204 or rs.Fields("Movie").Type=205 ) then
Response.Write Label("Movie") & "</td>"
else
%>
<a class=blackshade href="Movies_list.asp" onClick="java script:
document.forms.frmAdmin.action.value = 'OrderBy';
document.forms.frmAdmin.orderby.value = '<%=Replace("Movie","'","\'")%>';
document.forms.frmAdmin.submit(); return false; "><%=Label("Movie")%>
</td>
<%
if Request.Form("orderby")="Movie" and strOrderImage<>"" then
Response.Write "<td><img src=images/" & strOrderImage & " border=0></td>"
end if
end if
%>
</tr></table>
</TD>
<TD>
<table><tr><td class=blackshade>
<% if (rs.Fields("Actor").Attributes and 128) and ( rs.Fields("Actor").Type = 204 or rs.Fields("Actor").Type=205 ) then
Response.Write Label("Actor") & "</td>"
else
%>
<a class=blackshade href="Movies_list.asp" onClick="java script:
document.forms.frmAdmin.action.value = 'OrderBy';
document.forms.frmAdmin.orderby.value = '<%=Replace("Actor","'","\'")%>';
document.forms.frmAdmin.submit(); return false; "><%=Label("Actor")%>
</td>
<%
if Request.Form("orderby")="Actor" and strOrderImage<>"" then
Response.Write "<td><img src=images/" & strOrderImage & " border=0></td>"
end if
end if
%>
</tr></table>
</TD>
<TD>
<table><tr><td class=blackshade>
<% if (rs.Fields("Actor1").Attributes and 128) and ( rs.Fields("Actor1").Type = 204 or rs.Fields("Actor1").Type=205 ) then
Response.Write Label("Actor1") & "</td>"
else
%>
<a class=blackshade href="Movies_list.asp" onClick="java script:
document.forms.frmAdmin.action.value = 'OrderBy';
document.forms.frmAdmin.orderby.value = '<%=Replace("Actor1","'","\'")%>';
document.forms.frmAdmin.submit(); return false; "><%=Label("Actor1")%>
</td>
<%
if Request.Form("orderby")="Actor1" and strOrderImage<>"" then
Response.Write "<td><img src=images/" & strOrderImage & " border=0></td>"
end if
end if
%>
</tr></table>
</TD>
<TD>
<table><tr><td class=blackshade>
<% if (rs.Fields("Actor2").Attributes and 128) and ( rs.Fields("Actor2").Type = 204 or rs.Fields("Actor2").Type=205 ) then
Response.Write Label("Actor2") & "</td>"
else
%>
<a class=blackshade href="Movies_list.asp" onClick="java script:
document.forms.frmAdmin.action.value = 'OrderBy';
document.forms.frmAdmin.orderby.value = '<%=Replace("Actor2","'","\'")%>';
document.forms.frmAdmin.submit(); return false; "><%=Label("Actor2")%>
</td>
<%
if Request.Form("orderby")="Actor2" and strOrderImage<>"" then
Response.Write "<td><img src=images/" & strOrderImage & " border=0></td>"
end if
end if
%>
</tr></table>
</TD>
<TD>
<table><tr><td class=blackshade>
<% if (rs.Fields("Actor3").Attributes and 128) and ( rs.Fields("Actor3").Type = 204 or rs.Fields("Actor3").Type=205 ) then
Response.Write Label("Actor3") & "</td>"
else
%>
<a class=blackshade href="Movies_list.asp" onClick="java script:
document.forms.frmAdmin.action.value = 'OrderBy';
document.forms.frmAdmin.orderby.value = '<%=Replace("Actor3","'","\'")%>';
document.forms.frmAdmin.submit(); return false; "><%=Label("Actor3")%>
</td>
<%
if Request.Form("orderby")="Actor3" and strOrderImage<>"" then
Response.Write "<td><img src=images/" & strOrderImage & " border=0></td>"
end if
end if
%>
</tr></table>
</TD>
<TD>
<table><tr><td class=blackshade>
<% if (rs.Fields("Actor4").Attributes and 128) and ( rs.Fields("Actor4").Type = 204 or rs.Fields("Actor4").Type=205 ) then
Response.Write Label("Actor4") & "</td>"
else
%>
<a class=blackshade href="Movies_list.asp" onClick="java script:
document.forms.frmAdmin.action.value = 'OrderBy';
document.forms.frmAdmin.orderby.value = '<%=Replace("Actor4","'","\'")%>';
document.forms.frmAdmin.submit(); return false; "><%=Label("Actor4")%>
</td>
<%
if Request.Form("orderby")="Actor4" and strOrderImage<>"" then
Response.Write "<td><img src=images/" & strOrderImage & " border=0></td>"
end if
end if
%>
</tr></table>
</TD>
<TD>
<table><tr><td class=blackshade>
<% if (rs.Fields("Storyline").Attributes and 128) and ( rs.Fields("Storyline").Type = 204 or rs.Fields("Storyline").Type=205 ) then
Response.Write Label("Storyline") & "</td>"
else
%>
<a class=blackshade href="Movieslist.asp" onClick="java script:
document.forms.frmAdmin.action.value = 'OrderBy';
document.forms.frmAdmin.orderby.value = '<%=Replace("Storyline","'","\'")%>';
document.forms.frmAdmin.submit(); return false; "><%=Label("Storyline")%>
</td>
<%
if Request.Form("orderby")="Storyline" and strOrderImage<>"" then
Response.Write "<td><img src=images/" & strOrderImage & " border=0></td>"
end if
end if
%>
</tr></table>
</TD>
</tr>
<%
end sub
' display table with results
sub loopRs(rs,nPageSize)
' Pagination:
dim iShadeTheDetail, iNumberOfRows, nColumns
iNumberOfRows = 0
nDelete=1
nColumns=0
if isObject(rs) then
' Pagination: UNTIL iNumberOfRows>=maxrecs
DO UNTIL rs.eof OR iNumberOfRows>=nPageSize
' To insure that every other one is shaded
If iShadeTheDetail = 0 then
sShadeClass = "class=shade"
iShadeTheDetail = 1
Else
sShadeClass = ""
iShadeTheDetail = 0
End If
%>
<tr valign=top
<%=sShadeClass%> onmouseover="rowRollover(<%=iNumberOfRows%>, 1);" onmouseout="rowRollover(<%=iNumberOfRows%>, 0);" id="tr<%=iNumberOfRows%>" >
<td align=center>
<%
nColumns = nColumns + 1
strOwnerID = RemoveWrappers("[]")
if strOwnerID<>"" then strOwnerID = rs(strOwnerID)
if CheckSecurity(strOwnerID, "Edit")=True then
%>
<a href="Movies_edit.asp"
onClick="java script: document.forms.editform.TargetPageNumber.value=<%=mypage%>;
document.forms.editform.editid.value = '<%=EscapeQuotes(rs(strKeyField))%>';
<% if strKeyField2<>"" then %>
document.forms.editform.editid2.value = '<%=EscapeQuotes(rs(strKeyField2))%>';
<% end if %>
<% if strKeyField3<>"" then %>
document.forms.editform.editid3.value = '<%=EscapeQuotes(rs(strKeyField3))%>';
<% end if %>
document.forms.editform.todo.value = 'view';document.forms.editform.submit();
return false;" >Edit</a>
<% end if %>
</td>
<td align=center>
<a href="Movies_view.asp"
onClick="java script: document.forms.editform.action='Movies_view.asp';
document.forms.editform.TargetPageNumber.value=<%=mypage%>;
document.forms.editform.editid.value = '<%=EscapeQuotes(rs(strKeyField))%>';
<%
nColumns = nColumns + 1
if strKeyField2<>"" then %>
document.forms.editform.editid2.value = '<%=EscapeQuotes(rs(strKeyField2))%>';
<% end if %>
<% if strKeyField3<>"" then %>
document.forms.editform.editid3.value = '<%=EscapeQuotes(rs(strKeyField3))%>';
<% end if %>
document.forms.editform.todo.value = 'readonly';document.forms.editform.submit();
return false;" >View</a>
</td>
<td align=center valign=middle>
<%
nColumns = nColumns + 1
strOwnerID = RemoveWrappers("[]")
if strOwnerID<>"" then strOwnerID = rs(strOwnerID)
if CheckSecurity(strOwnerID, "Delete")=True then %>
<input type=checkbox name=mdelete value=<%=nDelete%>>
<input type=hidden name=mdelete1 value="<%=rs(strKeyField)%>">
<% if strKeyField2<>"" then %>
<input type=hidden name=mdelete2 value="<%=rs(strKeyField2)%>">
<% end if %>
<% if strKeyField3<>"" then %>
<input type=hidden name=mdelete3 value="<%=rs(strKeyField3)%>">
<% end if
nDelete = nDelete + 1
%>
<%
end if
%>
</td>
<TD>
<img border=0 src="<%=GetData(rs.Fields("Thumbnail"), "")%>">
</td>
<TD>
<%
if IsBinaryField(rs.Fields("Movie")) or Format("Movie")=FORMAT_DATABASE_FILE then
Response.Write CreateImageControl(rs, "Movie", "")
else
strData = GetData(rs.Fields("Movie"), "")
Response.Write ProcessLargeText(strData)
end if
%>
</td>
<TD>
<%
if IsBinaryField(rs.Fields("Actor")) or Format("Actor")=FORMAT_DATABASE_FILE then
Response.Write CreateImageControl(rs, "Actor", "")
else
strData = GetData(rs.Fields("Actor"), "")
If Not IsNull(strData) Then
strData = Replace(strData, "'", "''")
if IfNeedQuotes(GetFieldType("Actor")) then
strData = GetQuote("Actor") & strData & GetQuote("Actor")
end if
sqlt = "SELECT [actorname] FROM [actors] WHERE [actorname] = " & strData
Set rst = dbConnection.Execute(sqlt)
If Not rst.EOF Then
Response.Write rst(0)
End If
rst.Close
Set rst= Nothing
End If
end if
%>
</td>
<TD>
<%
if IsBinaryField(rs.Fields("Actor1")) or Format("Actor1")=FORMAT_DATABASE_FILE then
Response.Write CreateImageControl(rs, "Actor1", "")
else
strData = GetData(rs.Fields("Actor1"), "")
If Not IsNull(strData) Then
strData = Replace(strData, "'", "''")
if IfNeedQuotes(GetFieldType("Actor1")) then
strData = GetQuote("Actor1") & strData & GetQuote("Actor1")
end if
sqlt = "SELECT [actorname] FROM [actors] WHERE [actorname] = " & strData
Set rst = dbConnection.Execute(sqlt)
If Not rst.EOF Then
Response.Write rst(0)
End If
rst.Close
Set rst= Nothing
End If
end if
%>
</td>
<TD>
<%
if IsBinaryField(rs.Fields("Actor2")) or Format("Actor2")=FORMAT_DATABASE_FILE then
Response.Write CreateImageControl(rs, "Actor2", "")
else
strData = GetData(rs.Fields("Actor2"), "")
If Not IsNull(strData) Then
strData = Replace(strData, "'", "''")
if IfNeedQuotes(GetFieldType("Actor2")) then
strData = GetQuote("Actor2") & strData & GetQuote("Actor2")
end if
sqlt = "SELECT [actorname] FROM [actors] WHERE [actorname] = " & strData
Set rst = dbConnection.Execute(sqlt)
If Not rst.EOF Then
Response.Write rst(0)
End If
rst.Close
Set rst= Nothing
End If
end if
%>
</td>
<TD>
<%
if IsBinaryField(rs.Fields("Actor3")) or Format("Actor3")=FORMAT_DATABASE_FILE then
Response.Write CreateImageControl(rs, "Actor3", "")
else
strData = GetData(rs.Fields("Actor3"), "")
If Not IsNull(strData) Then
strData = Replace(strData, "'", "''")
if IfNeedQuotes(GetFieldType("Actor3")) then
strData = GetQuote("Actor3") & strData & GetQuote("Actor3")
end if
sqlt = "SELECT [actorname] FROM [actors] WHERE [actorname] = " & strData
Set rst = dbConnection.Execute(sqlt)
If Not rst.EOF Then
Response.Write rst(0)
End If
rst.Close
Set rst= Nothing
End If
end if
%>
</td>
<TD>
<%
if IsBinaryField(rs.Fields("Actor4")) or Format("Actor4")=FORMAT_DATABASE_FILE then
Response.Write CreateImageControl(rs, "Actor4", "")
else
strData = GetData(rs.Fields("Actor4"), "")
If Not IsNull(strData) Then
strData = Replace(strData, "'", "''")
if IfNeedQuotes(GetFieldType("Actor4")) then
strData = GetQuote("Actor4") & strData & GetQuote("Actor4")
end if
sqlt = "SELECT [actorname] FROM [actors] WHERE [actorname] = " & strData
Set rst = dbConnection.Execute(sqlt)
If Not rst.EOF Then
Response.Write rst(0)
End If
rst.Close
Set rst= Nothing
End If
end if
%>
</td>
<TD>
<%
if IsBinaryField(rs.Fields("Storyline")) or Format("Storyline")=FORMAT_DATABASEFILE then
Response.Write CreateImageControl(rs, "Storyline", "")
else
strData = GetData(rs.Fields("Storyline"), "")
Response.Write ProcessLargeText(strData)
end if
%>
</td>
</tr>
<%
iNumberOfRows = iNumberOfRows + 1
rs.movenext
Loop
end if
end sub
Sub CalculateOrderBy
if Request.Form("action")="OrderBy" then
strOrderBy = " order by " & AddWrappers(Request.Form("orderby"))
if Len(Session(strTableName & "SQL"))>3 then
nInd = InStr(1, Session(strTableName & "SQL"),"order by ")
if nInd>0 then
if Left(Mid(Session(strTableName & "SQL"),nInd+Len("order by ")),Len(AddWrappers(Request.Form("orderby")))) = AddWrappers(Request.Form("orderby"))
and Right(Session(strTableName & "SQL"),3) = "asc" then
strOrderBy = strOrderBy & " desc"
else
strOrderBy = strOrderBy & " asc"
end if
else
strOrderBy = strOrderBy & " asc"
end if
else
strOrderBy = strOrderBy & " asc"
end if
if right(strOrderBy,3)="asc" then
strOrderImage="up.gif"
else
strOrderImage="down.gif"
end if
else
strOrderBy = Request.Form("orderby")
if strOrderBy="" and Len(Session(strTableName & "SQL"))<3 then strOrderBy=gstrOrderBy
end if
End Sub
Function GetTotal(value, stype, iNumberOfRows, sFormat)
if sFormat = FORMAT_CURRENCY and value<>"" then
value = FormatCurrency(value)
elseif sFormat = FORMAT_NUMBER and value<>"" then
value = FormatNumber(CDbl(value), 2)
end if
if stype="COUNT" then GetTotal= "Count: " & CStr(iNumberOfRows)
if stype="TOTAL" then GetTotal = "Total: " & CStr(value)
if stype="AVERAGE" then GetTotal="Average: " & CStr(CDbl(value)/iNumberOfRows)
End Function
%>
