DROPDOWN efter årtal

SammyMedlem sedan maj 2000202 inlägg

Trådstart16 okt. 2001 15:32#1

Finns det möjligtvis någon som skulle vilja vara snäll och hjälpa mig med en dropdown funktion där resultatet skall visas efter årtal?

Jag har försökt men kommer inte fram till någon lösning själv!

Måste jag dela upp resultatet på två olika sidor eller kan jag ha all 'kod' på en och samma sida? Om båda, vilket är att föredra?

Min tanke är att sortera artiklar efter år och eftersom jag har ett par hundra artiklar i en databas vill jag visa upp dem efter år (blir då ca: 20 ariklar/per sida)

Hoppas någon förstår vad jag menar med detta...

PatrikBMedlem sedan mars 20002 836 inlägg

16 okt. 2001 16:53#2

Hello,

du kan ju kika på denna kod .... den listar alla poster som finns från ett visst årtal:

<%
Option Explicit

Response.Buffer = TRUE

Dim dteYear
Dim strSQLddl, strItem
Dim objDB, objRSddl

'## -- get year to show --
dteYear = Request.QueryString("year")
%>
<HTML>
<HEAD>
<TITLE>Sortera efter årtal</TITLE>
<META http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript">
	function change_year()
		{
		parent.location='sort.asp?year=' + document.form1.txt_Year.options[document.form1.txt_Year.selectedIndex].value;
		};
</script>
</HEAD>

<BODY bgcolor="#FFFFFF" text="#000000">
<FORM name="form1" method="post" action="">
  <TABLE width="100%" border="0" cellspacing="1" cellpadding="2">
    <TR> 
      <TD colspan="2">
        <SELECT name="txt_Year" onChange="change_year();">
          <OPTION value="0" selected>V&auml;lj &aring;rtal</OPTION>
          <OPTION value="2000">2000</OPTION>
          <OPTION value="2001">2001</OPTION>
          <OPTION value="2002">2002</OPTION>
          <OPTION value="2003">2003</OPTION>
          <OPTION value="2004">2004</OPTION>
        </SELECT>
      </TD>
    </TR>
<%
	'## -- check if any year is given ---
	If Len(dteYear) Then
		'## -- sql-query to list items in a specific year --
		strSQLddl = "SELECT * FROM TBL_TABLE WHERE Year(FLD_DATUM_FIELD) = " & dteYear
		
		'## -- create and open connection to database --
		Set objDB = Server.CreateObject("ADODB.Connection")
			objDB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("mindb.mdb")
			
			'## -- create recordset to get all items from db in a specific year --
			Set objRSddl = objDB.Execute(strSQLddl)
			
				'## -- loop through the recordset and show a list of items --
				While Not objRSddl.EOF
					strItem = objRSddl("FLD_ARRANGOR")
%>
    <TR> 
      <TD width="25" align="right" valign="top">&nbsp;</TD>
      <TD><% =strItem%></TD>
    </TR>
<%
					objRSddl.MoveNext
				Wend
			Set objRSddl = Nothing
			
			objDB.Close
		Set objDB = Nothing
	End If
%>
  </TABLE>
</FORM>
</BODY>
</HTML>

Du får ju förståss ändra i sql-frågan och i connection-stingen så att de passar din databas.

cya,
PatrikB