jag uppdaterar en lista på min websida kontinuerligt, denna lista är ordnad i bokstavsordning och jag undrar vad man skriver för att det till höger om namnet på listan, tillkommer ordet NY, då jag har uppdaterat denna lista, och när jag sedan skriver in ngt nytt i databsen så ska ordet NY tillkomma de nya och försvinna från de inna, förstå ni va jag menar?
Hur gör man detta??
så här ser min db kopling ut:
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("..\databasen.mdb")
%>
<%
Set RecSet = Server.CreateObject("ADODB.Recordset")
Visa = "SELECT * FROM musik ORDER BY Artist "
RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic
%>
och sedan matar jag in posterna från databasen i tabbellerna med <%=RecSet("blabla")%>
Det går att göra på lite olika sätt. Antingen kan du ha en kolumn i tabellen som innehåller det datum då du lade dit posten och när du visar data så jämför du det datumet med dagens datum och om det är mindre än t.ex. ena vecka gammalt kan du skriva ut nytt.
Vid insert:
sql = "insert into musik(artist,datum,titel) values('Roland Cedermark',now(),'Dragspelsmambo')"
connect.execute sql,,128
och sedan när du hämtar data
sql = "select * from musik order by artist"
set rs = connect.execute(sql)
while not rs.eof
'skriv ut vanliga data
if datediff("d",rs("datum"),now() < 7 then
response.write "Nytt"
end if
rs.movenext
wend
Ett annat sätt är att ha en kolumn i tabellen som antingen kan innehålla texten Nytt eller vara tom. När du lagrar nya poster kan du göra så här
sql = "update musik set nyhet = null"
connect.execute sql,,128
'gör insert på alla nya poster
sql = "insert into musik(artist,nyhet,titel) values('Roland Cedermark','nytt','Dragspelsmambo')"
connect.execute sql,,128
och sedan när du hämtar data
sql = "select * from musik order by artist"
set rs = connect.execute(sql)
while not rs.eof
'skriv ut vanliga data
if not isnull(rs("nyhet")) then
response.write "Nytt"
end if
rs.movenext
wend
------------------ essentitia preter non sans multiplicandum
Om vi säger att jag vill köra med metod nr2 som du rekomendera, så förstår jag inte riktigt vart jag ska ha kodsnuttarna du gav mig, för så här ser min kod ut då jag lägger till en post i databsen...
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("..\databasen.mdb")
%>
<%
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM musik"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
RecSet.AddNew
RecSet("artist") = Request.Form("artist")
RecSet("titel") = Request.Form("titel")
RecSet("sparlangd") = Request.Form("sparlangd")
RecSet("lank") = Request.Form("lank")
RecSet.Update
RecSet.Close
Connect.Close
Set Connect = Nothing
%>
Och så här ser koden ut då jag hämtar informationen från databasen:
[kod]
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("..\databasen.mdb")
%>
<%
Set RecSet = Server.CreateObject("ADODB.Recordset")
Visa = "SELECT * FROM musik ORDER BY Artist "
RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic
%>
<tr>
<td width="37%" bgcolor="#8080FF"><b><font size="1" face="Verdana" color="#FFFFFF"> Artist:</font></b></td>
<td width="28%" bgcolor="#8080FF"><b><font size="1" face="Verdana" color="#FFFFFF"> Titel:</font></b></td>
<td width="14%" bgcolor="#8080FF"><font size="1" face="Verdana" color="#FFFFFF"><b>Spårlängd:</b></font></td>
<td width="21%" bgcolor="#8080FF"><font size="1" face="Verdana" color="#FFFFFF"><b> Ladda
hem:</b></font></td>
</tr>
</table>
</td>
</tr>
</table>
</center></div><div align="center"><center><table border="0" width="70%" cellspacing="1"
cellpadding="0">
<tr>
<%
Do Until RecSet.EOF
%>
<td width="250"><font face="Verdana" size="1"><%=RecSet("artist")%></font> </td>
<td width="195"><font face="Verdana" size="1"><%=RecSet("titel")%></font> </td>
<td width="102"><font face="Verdana" size="1"><%=RecSet("sparlangd")%></font> </td>
<td width="128" valign="middle"><font face="Verdana" size="1"><a
href="<%=RecSet("lank")%>"><img border="0" src="../images/downloadknapp.jpg" WIDTH="65"
HEIGHT="10"></a></font></td>
</tr>
<%
RecSet.MoveNext
Loop
RecSet.Close
Connect.Close
Set Connect = Nothing
%>
Tror du att du kan hjälpa mig med att trycka in din kod i min??
LarsG, jag fick ett felmeddelande när jag skulle läsa från databasen men det gick alldeles utmärkt och skriva till den.
Men jag tror du har missuppfattat mig, nu var det så att i den koden du gav mig för att läsa från databasen så la du in en tabell som heter nyhet, men jag vill att ordet NY, ska finnas till höger om varje artist när man läser in den från databasen, jag hoppas du förstå vad jag menar...
