|
sgreen0 -> RE: display beginning of memo field? (8/28/2005 17:50:46)
|
Duane! Here is the page. There are four DR's. I've only edited the first trying to use your code. Thanks for your help. Stephen <html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>ANMT Collaborators Corner</title>
<script type="text/javascript">
function Left(str, n){
if (n <= 0)
return "";
else if (n > String(str).length)
return str;
else
return String(str).substring(0,n);
}
function Right(str, n){
if (n <= 0)
return "";
else if (n > String(str).length)
return str;
else {
var iLen = String(str).length;
return String(str).substring(iLen, iLen - n);
}
}
</script>
</head>
<body>
<p align="center"><b><font size="6">ANMT C</font></b><font size="6"><b>ollaborators
Corner</b></font></p>
<p align="center">
<i><b><a href="members">Back to Members Home Page</a></b></i>
<p align="center" style="margin-top: 6; margin-bottom: 0">
Welcome to the ANMT Collaborators Corner!<br>
This listing will give you some information on the projects your fellow members
are working on -<br>
and will also give you a chance to find a project to get involved with<br>
or find collaborators for your own project.<br>
Please feel free to get in touch with any of these writers<br>
if you are interested in joining or finding out more about their project<br>
(you will find their contact information on the Member Roster)<br>
<br>
Use the drop-down box below to help refine your collaborator search.
<form method="POST" action="ANMT_Collaborators_Corner_save2.asp">
<p align="center" style="margin-top: 0; margin-bottom: 0"><select size="1" name="CraftChoice">
<option <%If request.form("CraftChoice")="All Projects" then response.write "selected"%>>All Projects</option>
<option <%If request.form("CraftChoice")="Projects Looking for Bookwriter" then response.write "selected"%>>Projects Looking for Bookwriter</option>
<option <%If request.form("CraftChoice")="Projects Looking for Composer" then response.write "selected"%>>Projects Looking for Composer</option>
<option <%If request.form("CraftChoice")="Projects Looking for Lyricist" then response.write "selected"%>>Projects Looking for Lyricist</option>
</select><input type="submit" value="Submit" name="B1"><input type="reset" value="Reset" name="B2"></p>
</form>
<nobr>
<% If request.form("CraftChoice")= "All Projects" Then %>
<p align="center"><i><b><font size="4">Filtered for <%=request.form("CraftChoice")%></font></b></i></p>
<table width="100%" border="1">
<thead>
<tr>
<td><b>Project Name</b></td>
<td><b>Project Type</b></td>
<td><b>Project Credit</b></td>
<td><b>Greenlight</b></td>
<td><b>Project Description</b></td>
<td colspan="3"><b>Collaborators Needed</b></td>
</tr>
</thead>
<tbody>
<!--#include file="../_fpclass/fpdblib.inc"-->
<% if 0 then %>
<SCRIPT Language="JavaScript">
document.write("<div style='background: yellow; color: black;'>The Database Results component on this page is unable to display database content. The page must have a filename ending in '.asp', and the web must be hosted on a server that supports Active Server Pages.</div>");
</SCRIPT>
<% end if %>
<%
fp_sQry="SELECT Projects.ProjectID, Projects.ProjectCalendarID, Projects.ProjectType, Projects.ProjectGroup, Projects.ProjectName, Projects.Show, Projects.ARCtor, Projects.Greenlight, Projects.ProjectDescription, Projects.[Project Credit], Projects.Bookwriter, Projects.Lyricist, Projects.Composer, Projects.ProjectEndDate FROM Projects WHERE (Show = -1) AND IsNull(ProjectEndDate) ORDER BY Projects.ProjectType, Projects.ProjectGroup, Projects.ProjectName"
fp_sDefault="ProjectID="
fp_sNoRecords="<tr><td colspan=8 align=left width=""100%"">No records returned.</td></tr>"
fp_sDataConn="academy"
fp_iMaxRecords=256
fp_iCommandType=1
fp_iPageSize=0
fp_fTableFormat=True
fp_fMenuFormat=False
fp_sMenuChoice=""
fp_sMenuValue=""
fp_sColTypes="&ProjectID=3&ProjectCalendarID=3&ProjectType=202&ProjectGroup=202&ProjectName=202&Show=11&ARCtor=11&Greenlight=11&ProjectDescription=203&Project Credit=203&Bookwriter=11&Lyricist=11&Composer=11&ProjectEndDate=135&"
fp_iDisplayCols=8
fp_fCustomQuery=True
BOTID=1
fp_iRegion=BOTID
%>
<!--#include file="../_fpclass/fpdbrgn1.inc"-->
<tr>
<td valign="top">
<%=FP_FieldVal(fp_rs,"ProjectName")%> </td>
<td valign="top">
<%=FP_FieldVal(fp_rs,"ProjectType")%> </td>
<td valign="top">
<%=FP_FieldVal(fp_rs,"Project Credit")%> </td>
<td valign="top">
<% If FP_Field(fp_rs,"Greenlight") <> 0 Then
response.write "Yes"
End If
If FP_Field(fp_rs,"Greenlight") = 0 Then
response.write "No"
End If%> </td>
<td valign="top">
<td id="part1" style="display:inline"><script type="text/javascript">document.write(Left(FP_FieldHTML(fp_rs,"ProjectDescription"),150)+" <a href='javascript:void(0)' onclick='document.getElementById(\"part1\").style.display=\"none\";document.getElementById(\"full1\").style.display=\"inline\"'>more. . .</a>")</script> </td>
<td id="full1" style="display:none"><script type="text/javascript">document.write(FP_FieldHTML("fp_rs,ProjectDescription")+" <a href='javascript:void(0)' onclick='document.getElementById(\"full1\").style.display=\"none\";document.getElementById(\"part1\").style.display=\"inline\"'>collapse. . .</a>")</script> </td>
<td valign="top">
<% If FP_Field(fp_rs,"Bookwriter") = 0 Then
response.write "Bookwriter Needed"
End If %> </td>
<td valign="top">
<% If FP_Field(fp_rs,"Lyricist") = 0 Then
response.write "Lyricist Needed"
End If %> </td>
<td valign="top">
<%If FP_Field(fp_rs,"Composer") = 0 Then
response.write "Composer Needed"
End If %> </td>
</tr>
<!--#include file="../_fpclass/fpdbrgn2.inc"-->
</tbody>
</table>
<% End If %>
<% If request.form("CraftChoice")= "Projects Looking for Bookwriter" Then %>
<p align="center"><i><b><font size="4">Filtered for <%=request.form("CraftChoice")%></font></b></i></p>
<table width="100%" border="1">
<thead>
<tr>
<td><b>Project Name</b></td>
<td><b>Project Type</b></td>
<td><b>Project Credit</b></td>
<td><b>Greenlight</b></td>
<td><b>Project Description</b></td>
<td colspan="3"><b>Collaborators Needed</b></td>
</tr>
</thead>
<tbody>
<!--#include file="../_fpclass/fpdblib.inc"-->
<% if 0 then %>
<SCRIPT Language="JavaScript">
document.write("<div style='background: yellow; color: black;'>The Database Results component on this page is unable to display database content. The page must have a filename ending in '.asp', and the web must be hosted on a server that supports Active Server Pages.</div>");
</SCRIPT>
<% end if %>
<%
fp_sQry="SELECT Projects.ProjectID, Projects.ProjectCalendarID, Projects.ProjectType, Projects.ProjectGroup, Projects.ProjectName, Projects.Show, Projects.ARCtor, Projects.Greenlight, Projects.ProjectDescription, Projects.[Project Credit], Projects.Bookwriter, Projects.Lyricist, Projects.Composer, Projects.ProjectEndDate FROM Projects WHERE (Projects.Bookwriter = 0) AND (Show = -1) AND IsNull(ProjectEndDate) ORDER BY Projects.ProjectType, Projects.ProjectGroup, Projects.ProjectName"
fp_sDefault="ProjectID="
fp_sNoRecords="<tr><td colspan=8 align=left width=""100%"">No records returned.</td></tr>"
fp_sDataConn="academy"
fp_iMaxRecords=256
fp_iCommandType=1
fp_iPageSize=0
fp_fTableFormat=True
fp_fMenuFormat=False
fp_sMenuChoice=""
fp_sMenuValue=""
fp_sColTypes="&ProjectID=3&ProjectCalendarID=3&ProjectType=202&ProjectGroup=202&ProjectName=202&Show=11&ARCtor=11&Greenlight=11&ProjectDescription=203&Project Credit=203&Bookwriter=11&Lyricist=11&Composer=11&ProjectEndDate=135&"
fp_iDisplayCols=8
fp_fCustomQuery=True
BOTID=1
fp_iRegion=BOTID
%>
<!--#include file="../_fpclass/fpdbrgn1.inc"-->
<tr>
<td valign="top">
<%=FP_FieldVal(fp_rs,"ProjectName")%> </td>
<td valign="top">
<%=FP_FieldVal(fp_rs,"ProjectType")%> </td>
<td valign="top">
<%=FP_FieldVal(fp_rs,"Project Credit")%> </td>
<td valign="top">
<% If FP_Field(fp_rs,"Greenlight") <> 0 Then
response.write "Yes"
End If
If FP_Field(fp_rs,"Greenlight") = 0 Then
response.write "No"
End If%> </td>
<td valign="top">
<%=FP_Field(fp_rs,"ProjectDescription")%> </td>
<td valign="top">
<% If FP_Field(fp_rs,"Bookwriter") = 0 Then
response.write "Bookwriter Needed"
End If %> </td>
<td valign="top">
<% If FP_Field(fp_rs,"Lyricist") = 0 Then
response.write "Lyricist Needed"
End If %> </td>
<td valign="top">
<%If FP_Field(fp_rs,"Composer") = 0 Then
response.write "Composer Needed"
End If %> </td>
</tr>
<!--#include file="../_fpclass/fpdbrgn2.inc"-->
</tbody>
</table>
<% End If %>
<% If request.form("CraftChoice")= "Projects Looking for Composer" Then %>
<p align="center"><i><b><font size="4">Filtered for <%=request.form("CraftChoice")%></font></b></i></p>
<table width="100%" border="1">
<thead>
<tr>
<td><b>Project Name</b></td>
<td><b>Project Type</b></td>
<td><b>Project Credit</b></td>
<td><b>Greenlight</b></td>
<td><b>Project Description</b></td>
<td colspan="3"><b>Collaborators Needed</b></td>
</tr>
</thead>
<tbody>
<!--#include file="../_fpclass/fpdblib.inc"-->
<% if 0 then %>
<SCRIPT Language="JavaScript">
document.write("<div style='background: yellow; color: black;'>The Database Results component on this page is unable to display database content. The page must have a filename ending in '.asp', and the web must be hosted on a server that supports Active Server Pages.</div>");
</SCRIPT>
<% end if %>
<%
fp_sQry="SELECT Projects.ProjectID, Projects.ProjectCalendarID, Projects.ProjectType, Projects.ProjectGroup, Projects.ProjectName, Projects.Show, Projects.ARCtor, Projects.Greenlight, Projects.ProjectDescription, Projects.[Project Credit], Projects.Bookwriter, Projects.Lyricist, Projects.Composer, Projects.ProjectEndDate FROM Projects WHERE (Projects.Composer = 0) AND (Show = -1) AND IsNull(ProjectEndDate) ORDER BY Projects.ProjectType, Projects.ProjectGroup, Projects.ProjectName"
fp_sDefault="ProjectID="
fp_sNoRecords="<tr><td colspan=8 align=left width=""100%"">No records returned.</td></tr>"
fp_sDataConn="academy"
fp_iMaxRecords=256
fp_iCommandType=1
fp_iPageSize=0
fp_fTableFormat=True
fp_fMenuFormat=False
fp_sMenuChoice=""
fp_sMenuValue=""
fp_sColTypes="&ProjectID=3&ProjectCalendarID=3&ProjectType=202&ProjectGroup=202&ProjectName=202&Show=11&ARCtor=11&Greenlight=11&ProjectDescription=203&Project Credit=203&Bookwriter=11&Lyricist=11&Composer=11&ProjectEndDate=135&"
fp_iDisplayCols=8
fp_fCustomQuery=True
BOTID=1
fp_iRegion=BOTID
%>
<!--#include file="../_fpclass/fpdbrgn1.inc"-->
<tr>
<td valign="top">
<%=FP_FieldVal(fp_rs,"ProjectName")%> </td>
<td valign="top">
<%=FP_FieldVal(fp_rs,"ProjectType")%> </td>
<td valign="top">
<%=FP_FieldVal(fp_rs,"Project Credit")%> </td>
<td valign="top">
<% If FP_Field(fp_rs,"Greenlight") <> 0 Then
response.write "Yes"
End If
If FP_Field(fp_rs,"Greenlight") = 0 Then
response.write "No"
End If%> </td>
<td valign="top">
<%=FP_Field(fp_rs,"ProjectDescription")%> </td>
<td valign="top">
<% If FP_Field(fp_rs,"Bookwriter") = 0 Then
response.write "Bookwriter Needed"
End If %> </td>
<td valign="top">
<% If FP_Field(fp_rs,"Lyricist") = 0 Then
response.write "Lyricist Needed"
End If %> </td>
<td valign="top">
<%If FP_Field(fp_rs,"Composer") = 0 Then
response.write "Composer Needed"
End If %> </td>
</tr>
<!--#include file="../_fpclass/fpdbrgn2.inc"-->
</tbody>
</table>
<% End If %>
<% If request.form("CraftChoice")= "Projects Looking for Lyricist" Then %>
<p align="center"><i><b><font size="4">Filtered for <%=request.form("CraftChoice")%></font></b></i></p>
<table width="100%" border="1">
<thead>
<tr>
<td><b>Project Name</b></td>
<td><b>Project Type</b></td>
<td><b>Project Credit</b></td>
<td><b>Greenlight</b></td>
<td><b>Project Description</b></td>
<td colspan="3"><b>Collaborators Needed</b></td>
</tr>
</thead>
<tbody>
<!--#include file="../_fpclass/fpdblib.inc"-->
<% if 0 then %>
<SCRIPT Language="JavaScript">
document.write("<div style='background: yellow; color: black;'>The Database Results component on this page is unable to display database content. The page must have a filename ending in '.asp', and the web must be hosted on a server that supports Active Server Pages.</div>");
</SCRIPT>
<% end if %>
<%
fp_sQry="SELECT Projects.ProjectID, Projects.ProjectCalendarID, Projects.ProjectType, Projects.ProjectGroup, Projects.ProjectName, Projects.Show, Projects.ARCtor, Projects.Greenlight, Projects.ProjectDescription, Projects.[Project Credit], Projects.Bookwriter, Projects.Lyricist, Projects.Composer, Projects.ProjectEndDate FROM Projects WHERE (Projects.Lyricist = 0) AND (Show = -1) AND IsNull(ProjectEndDate) ORDER BY Projects.ProjectType, Projects.ProjectGroup, Projects.ProjectName"
fp_sDefault="ProjectID="
fp_sNoRecords="<tr><td colspan=8 align=left width=""100%"">No records returned.</td></tr>"
fp_sDataConn="academy"
fp_iMaxRecords=256
fp_iCommandType=1
fp_iPageSize=0
fp_fTableFormat=True
fp_fMenuFormat=False
fp_sMenuChoice=""
fp_sMenuValue=""
fp_sColTypes="&ProjectID=3&ProjectCalendarID=3&ProjectType=202&ProjectGroup=202&ProjectName=202&Show=11&ARCtor=11&Greenlight=11&ProjectDescription=203&Project Credit=203&Bookwriter=11&Lyricist=11&Composer=11&ProjectEndDate=135&"
fp_iDisplayCols=8
fp_fCustomQuery=True
BOTID=1
fp_iRegion=BOTID
%>
<!--#include file="../_fpclass/fpdbrgn1.inc"-->
<tr>
<td valign="top">
<%=FP_FieldVal(fp_rs,"ProjectName")%> </td>
<td valign="top">
<%=FP_FieldVal(fp_rs,"ProjectType")%> </td>
<td valign="top">
<%=FP_FieldVal(fp_rs,"Project Credit")%> </td>
<td valign="top">
<% If FP_Field(fp_rs,"Greenlight") <> 0 Then
response.write "Yes"
End If
If FP_Field(fp_rs,"Greenlight") = 0 Then
response.write "No"
End If%> </td>
<td valign="top">
<%=FP_Field(fp_rs,"ProjectDescription")%> </td>
<td valign="top">
<% If FP_Field(fp_rs,"Bookwriter") = 0 Then
response.write "Bookwriter Needed"
End If %> </td>
<td valign="top">
<% If FP_Field(fp_rs,"Lyricist") = 0 Then
response.write "Lyricist Needed"
End If %> </td>
<td valign="top">
<%If FP_Field(fp_rs,"Composer") = 0 Then
response.write "Composer Needed"
End If %> </td>
</tr>
<!--#include file="../_fpclass/fpdbrgn2.inc"-->
</tbody>
</table>
<% End If %>
<p align="center">
<i><b><a href="members">Back to Members Home Page</a></b></i></body></html>
|
|
|
|