Hello,
I have some code commented out in order to make this work. However, I would prefer to use the commented code so my users can SORT on the column heading because I know they are going to want to do that.
I appreciate any help that you can give me.
Thanks, Kris
-----------------------------------------------------
<html>
<body>
<a href="reports.html">Custom Reports</a>
<h1>Items: Non-Fiction</h1>
<script>
function choose(id){
// this selects the radio button that goes with the text link
document.getElementById(id).checked=true;
}
function enable(){
document.getElementById().disabled=false;
}
</script>
<%orgcodeid=request.form("orgcodeid")%>
<%collectionid=request.form("collectionid")%>
<%callnum=request.form("callnum")%>
<form method="post">
<fieldset>
<input type="radio" name="orgcodeid" value="19" checked="checked">None
<input type="radio" name="orgcodeid" value="3">3-Basin City
<input type="radio" name="orgcodeid" value="4">4-Benton City
<input type="radio" name="orgcodeid" value="5">5-Bookmobile
<input type="radio" name="orgcodeid" value="6">6-Connell
<input type="radio" name="orgcodeid" value="7">7-Kahlotus
<br>
<input type="radio" name="orgcodeid" value="8">8-Keewaydin
<input type="radio" name="orgcodeid" value="9">9-Kennewick
<input type="radio" name="orgcodeid" value="10">10-Merrill's
<input type="radio" name="orgcodeid" value="11">11-Othello
<input type="radio" name="orgcodeid" value="12">12-Pasco
<input type="radio" name="orgcodeid" value="13">13-Prosser
<input type="radio" name="orgcodeid" value="14">14-West Richland
</fieldset>
<p>
<fieldset>
<input type="radio" name="collectionid" value="5" id="anf">5-Adult Non-Fiction
<p>
<input type="radio" name="callnum" value="'0%'" onclick='choose("anf");enable()'>001-099
<input type="radio" name="callnum" value="'1%'" onclick='choose("anf");enable()'>100-199
<input type="radio" name="callnum" value="'2%'" onclick='choose("anf");enable()'>200-299
<input type="radio" name="callnum" value="'3%'" onclick='choose("anf");enable()'>300-399
<input type="radio" name="callnum" value="'4%'" onclick='choose("anf");enable()'>400-499
<input type="radio" name="callnum" value="'5%'" onclick='choose("anf");enable()'>500-599
<input type="radio" name="callnum" value="'6%'" onclick='choose("anf");enable()'>600-699
<input type="radio" name="callnum" value="'7%'" onclick='choose("anf");enable()'>700-799
</fieldset>
<p>
<fieldset>
<input type="radio" name="collectionid" value="19" id="cnf">19-Children's Non-Fiction
<p>
<input type="radio" name="callnum" value="'E 0%'" onclick='choose("cnf");enable()'>E 001-E 099
<input type="radio" name="callnum" value="'E 1%'" onclick='choose("cnf");enable()'>E 100-E 199
<input type="radio" name="callnum" value="'E 2%'" onclick='choose("cnf");enable()'>E 200-E 299
<input type="radio" name="callnum" value="'E 3%'" onclick='choose("cnf");enable()'>E 300-E 399
<input type="radio" name="callnum" value="'E 4%'" onclick='choose("cnf");enable()'>E 400-E 499
<input type="radio" name="callnum" value="'E 5%'" onclick='choose("cnf");enable()'>E 500-E 599
<input type="radio" name="callnum" value="'E 6%'" onclick='choose("cnf");enable()'>E 600-E 699
<input type="radio" name="callnum" value="'E 7%'" onclick='choose("cnf");enable()'>E 700-E 799
<p>
<input type="radio" name="callnum" value="'J 0%'" onclick='choose("cnf");enable()'>J 001-J 099
<input type="radio" name="callnum" value="'J 1%'" onclick='choose("cnf");enable()'>J 100-J 199
<input type="radio" name="callnum" value="'J 2%'" onclick='choose("cnf");enable()'>J 200-J 299
<input type="radio" name="callnum" value="'J 3%'" onclick='choose("cnf");enable()'>J 300-J 399
<input type="radio" name="callnum" value="'J 4%'" onclick='choose("cnf");enable()'>J 400-J 499
</fieldset>
<p>
<input type="submit" value="Show me the items">
<p>
</form>
<%
'if request.querystring("sort")<>"" then
' sort=request.querystring("sort")
'else
' sort="ird.callnumber"
'end if
set conn=Server.CreateObject("ADODB.Connection")
DSNtest="DRIVER={SQL Server}; SERVER="
conn.Open DSNtest
set rs=Server.CreateObject("ADODB.recordset")
sql=sql& "select cir.barcode as Barcode, ird.callnumber, "
sql=sql& "br.browsetitle as Title, br.publicationyear, "
sql=sql& "cast(datepart(m,ird.creationdate) as nvarchar(2))+'-'+ cast(datepart(dd,ird.creationdate)as nvarchar(2)) "
sql=sql& "+'-'+ cast(datepart(yyyy,ird.creationdate)as nvarchar(4)), "
sql=sql& "cir.LifetimeCircCount as LifeCirc, cast(datepart(m,cir.lastcirctransactiondate) as nvarchar(2))+'-'+ "
sql=sql& "cast(datepart(dd,cir.lastcirctransactiondate) as nvarchar(2))+'-'+ "
sql=sql& "cast(datepart(yyyy,cir.lastcirctransactiondat e)as nvarchar(4)), "
sql=sql& "ist.description, col.name "
sql=sql& "from circitemrecords cir "
sql=sql& "join itemstatuses ist on cir.itemstatusid=ist.itemstatusid "
sql=sql& "join itemrecorddetails ird on cir.itemrecordid=ird.itemrecordid "
sql=sql& "join bibliographicrecords br on cir.associatedbibrecordid=br.bibliographicrecordid "
sql=sql& "join organizations o on cir.assignedbranchid=o.organizationid "
sql=sql& "join collections col on cir.assignedcollectionid=col.collectionid "
sql=sql& "where o.organizationid= '" & orgcodeid & "' "
sql=sql& "and col.collectionid ='" & collectionid & "' "
sql=sql& "and ird.callnumber like " & callnum & " "
sql=sql& "and (ist.itemstatusid <> 7 "
sql=sql& "and ist.itemstatusid <> 10 "
sql=sql& "and ist.itemstatusid <> 11 "
sql=sql& "and ist.itemstatusid <> 13 "
sql=sql& "and ist.itemstatusid <> 14 "
sql=sql& "and ist.itemstatusid <> 15) "
'sql=sql& "group by cir.barcode, ird.callnumber, br.browsetitle, br.publicationyear, ird.creationdate, cir.LifetimeCircCount, cir.lastcirctransactiondate, ist.description, col.name "
'sql=sql& "order by " & sort
sql=sql& "order by ird.callnumber "
rs.Open sql,conn
str=rs.GetString(,,"</td><td>","</td></tr><tr><td>"," ")
%>
<table border="1" width="100%" bgcolor="#fff5ee">
<tr>
<th align="center" bgcolor="#b0c4de">
<%
Dim branch
whodat=Request("orgcodeid")
Response.Write "with OrganizationID . . . " & whodat
%>
</th>
</tr>
</table>
<table border="1" width="100%" bgcolor="#fff5ee">
<tr>
<th align="left" bgcolor="#b0c4de">Barcode</th>
<th align="left" bgcolor="#b0c4de">CallNumber</th>
<th align="left" bgcolor="#b0c4de">Title</th>
<th align="left" bgcolor="#b0c4de">PubYear</th>
<th align="left" bgcolor="#b0c4de">Created</th>
<th align="left" bgcolor="#b0c4de">Circs</th>
<th align="left" bgcolor="#b0c4de">LastCirc</th>
<th align="left" bgcolor="#b0c4de">In?</th>
<th align="left" bgcolor="#b0c4de">Collection</th>
</tr>
<tr>
<td><%Response.Write(str)%></td>
</tr>
</table>
<%
rs.close
conn.close
set rs = Nothing
set conn = Nothing
%>
</body>
</html>