SammyMedlem sedan maj 2000202 inlägg
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...
------------------
/Sammy Swärd
PatrikBMedlem sedan mars 20002 713 inlägg
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älj å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"> </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
------------------
*ordning och reda!, pengar på fredag.*
