10 svar · 314 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...
------------------
"Det starka är inte att aldrig kunna falla, det starta är att kunna resa sig efter ett fall"
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!
------------------
Mvh
Patrik aka Brimba
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?
------------------
"Det starka är inte att aldrig kunna falla, det starta är att kunna resa sig efter ett fall"
Ingen som kan hjälpa mig?
Jörgen??
------------------
"Det starka är inte att aldrig kunna falla, det starta är att kunna resa sig efter ett fall"
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
------------------
.: Det är jag som ger svaren och det är Ni som ställer frågorna :.
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??
------------------
"Det starka är inte att aldrig kunna falla, det starta är att kunna resa sig efter ett fall"
<%
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?
------------------
.: Det är jag som ger svaren och det är Ni som ställer frågorna :.
[Redigerat av jorgen den 03 jan 2002]
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 :)
------------------
.: Det är jag som ger svaren och det är Ni som ställer frågorna :.
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?
------------------
"Det starka är inte att aldrig kunna falla, det starta är att kunna resa sig efter ett fall"
<%
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 :)
------------------
.: Det är jag som ger svaren och det är Ni som ställer frågorna :.
Du e bäst Jorgen, tack för hjälpen!!!!!!
------------------
"Det starka är inte att aldrig kunna falla, det starta är att kunna resa sig efter ett fall"