Lägg till ett datum/tid fält i databasen, där du matar in värdet från funktionen now().
Efter det kan du välja att hämta alla poster som är postade månad 11 (november) oavsett år.
Lycka till!
10 svar · 347 visningar · startad av Gimbo
Hejsan,
Jag gjorde ett script, där en person kan logga in till en admin sida, knappa in en länk i ett fält och klicka på skicka denna länk hamnar då i databasen, jag undrar nu hur man kan sortera alla dessa länkar så att om han skickar länken i december så ska det på sidan stå December med fet stil och sedan länken under, dvs månaderna ska vara rubriker och sedan länkarna under...
Lägg till ett datum/tid fält i databasen, där du matar in värdet från funktionen now().
Efter det kan du välja att hämta alla poster som är postade månad 11 (november) oavsett år.
Lycka till!
Jo men problemet är att jag inte vet hur jag ska skriva för att det exempelvis ska bli en rubrik som heter December och sedan under den så sorteras alla länkar listade under december månad...
Min databas ser ut så här:
- beskrivning
- url
- datum
Hur ska jag skriva på asp sidan för att det ska bli en rubrik för varje månad och sedan under den samtliga länkar?
Ingen som kan hjälpa mig?
Jörgen??
Här är jag
Denna länken kanske hjälper dig en bit på väg:
http://cgi.webforum.nu/wf/Forum11/HTML/004516.html
Jorgen mitt script ser ut på följande sätt, det ser förjävligt ut med andra ord:
<%
dim RecSet,nMonth,pMonth
set sesssion.lcid = 1053
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 lankar ORDER BY datum "
RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic
pMonth = 0
while not RecSet.EOF
nMonth = month(cdate(RecSet("datum")))
if pMonth <> nMonth then
response.write monthname(nMonth)
pMonth = nMonth
end if
'write rest of data
RecSet.movenext
wend
%> <%
if (RecSet("datum") > date()-7) then
response.write("<font color=red><b>NY</b></font>" & " ")
end if
%>
Och detta fungerar naturligtvis INTE, men jag skulle vilja göra så att det ser ut som du visade mig med den där länken, fast jag vill använda <%=RecSet("blabl")%> för att hämta info från databasen istället för response.write, för jag vill ha en mer strukturerad sida...
Men först måste man få koden att fungera, jag e helt paff och vet inte hur jag ens ska försöka och fixa den??
<%
dim RecSet,nMonth,pMonth
set sesssion.lcid = 1053
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 beskrivning, url, [datum] FROM lankar ORDER BY [datum] "
RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic
pMonth = 0
while not RecSet.EOF
nMonth = month(cdate(RecSet("datum")))
if pMonth <> nMonth then
response.write monthname(nMonth)
pMonth = nMonth
end if
response.write "<p> "& RecSet("url") &", "& RecSet("beskrivning") &" </p>"
RecSet.movenext
wend
%>
Fungerar inte denna, om inte vad får du för fel och på vilken rad?
Vi kan ju fortsätta på denna påbörjade tråden
Kolla så att tabellnamn och kolumnnamn finns och är rättstavade.
mvh Jörgen
oj jag råkade skriva i fel tråd hehhe..
Du e Bäst Jorgen, det fungerade fifan. Jag kopplade fel databas...
But one more problemo...
Jag vill att månaden som står som rubrik ska vara fet och ha en <hr> under sig och sedan listas alla länker och en sak till att det som står som url det ska vara inbäddat i det som står som beskrivning dvs detta:
response.write "<p> "& RecSet("url") &", "& RecSet("beskrivning") &"
vill jag ska uppfylla samma funktin som detta:
[kod]
<a href="<%=RecSet("url")%>"><%=RecSet("beskrivning")%> </a>
I hope u get it?
<%
dim RecSet,nMonth,pMonth
set sesssion.lcid = 1053
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 beskrivning, url, [datum] FROM lankar ORDER BY [datum] "
RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic
pMonth = 0
while not RecSet.EOF
nMonth = month(cdate(RecSet("datum")))
if pMonth <> nMonth then
response.write "<p><b> "& monthname(nMonth) & "</b></p><hr>"
pMonth = nMonth
end if
response.write "<p><a href="" "& RecSet("url") &"""> "& RecSet("beskrivning") &" </a></p>"
RecSet.movenext
wend
%>
Glöm inte ändra kopplingen på denna
mvh Jörgen
Du e bäst Jorgen, tack för hjälpen!!!!!!