Fetstil Fetstil Kursiv Understrykning linje färgläggning tabellverk Punktlista Nummerlista Vänster Centrerat högerställt Utfyllt Länk Bild htmlmode
  • Forum & Blog
    • Forum - översikt
      • .Net
        • asp.net generellt
        • c#
        • vb.net
        • f#
        • silverlight
        • microsoft surface
        • visual studio .net
      • databaser
        • sql-server
        • databaser
        • access
        • mysql
      • mjukvara klient
        • datorer och komponenter
        • nätverk, lan/wan
        • operativsystem
        • programvaror
        • säkerhet, inställningar
        • windows server
        • allmänt
        • crystal reports
        • exchange/outlook
        • microsoft office
      • mjukvara server
        • active directory
        • biztalk
        • exchange
        • linux
        • sharepoint
        • webbservers
        • sql server
      • appar (win/mobil)
      • programspråk
        • c++
        • delphi
        • java
        • quick basic
        • visual basic
      • scripting
        • asp 3.0
        • flash actionscript
        • html css
        • javascript
        • php
        • regular expresssion
        • xml
      • spel och grafik
        • DirectX
        • Spel och grafik
      • ledning
        • Arkitektur
        • Systemutveckling
        • krav och test
        • projektledning
        • ledningsfrågor
      • vb-sektioner
        • activeX
        • windows api
        • elektronik
        • internet
        • komponenter
        • nätverk
        • operativsystem
      • övriga forum
        • arbete karriär
        • erbjuda uppdrag och tjänster
        • juridiska frågor
        • köp och sälj
        • matematik och fysik
        • intern information
        • skrivklåda
        • webb-operatörer
    • Posta inlägg i forumet
    • Chatta med andra
  • Konto
    • Medlemssida
    • Byta lösenord
    • Bli bonsumedlem
    • iMail
  • Material
    • Tips & tricks
    • Artiklar
    • Programarkiv
  • JOBB
  • Student
    • Studentlicenser
  • KONTAKT
    • Om pellesoft
    • Grundare
    • Kontakta oss
    • Annonsering
    • Partners
    • Felanmälan
  • Logga in

Hem / Forum översikt / inlägg

Posta nytt inlägg


Visa datum igår/idag

Postades av 2003-04-08 11:21:57 - Mikael Jeansson, i forum asp - allmänt, Tråden har 3 Kommentarer och lästs av 487 personer

Hej
Har en databas med nyheter och vill visa nyheterna som är skrivna igår med texten Igår och nyheterna som är skrivna idag med texten Idag, hur skriver jag den koden i asp för att kunna sortera ut gårdagens och dagen post?

/Micke


Svara

Sv: Visa datum igår/idag

Postades av 2003-04-08 11:31:49 - Jonas Sjöblom

<code>
SQL = "select * from nyheter where datum > '" & date -1 & "'"
rs.open SQL, Connect
do untilrs.EOF

datum = rs("datum")
if datediff(d,now,datum) = 1 then
dag = igår
elseif datediff(d,now,datum) = 0 then
dag = idag
else
dag = datum
end if

response.write("nyheten skriven: " & dag)
rs.movenext
loop
rs.close
</code>


Svara

Sv: Visa datum ig&#229;r/idag

Postades av 2003-04-08 12:31:37 - Andreas Hillqvist

Alltid snyggt med en funktion:
<code>
Function FriendlyDate(Value)
If IsDate(Value) Then
Select Case DateDiff("d", Value, Date)
Case 0
FriendlyDate = "Idag"
Case 1
FriendlyDate = "Igår"
Case Else
FriendlyDate = Value
End Select
End If
End Function

rs.Open "SELECT * FROM News", con
Do Intil rs.EOF
Response.Write "Nyheten skriven: " & FriendlyDate(rs("datum"))
rs.MoveNext
Loop
rs.close
</code>


Svara

Sv: Visa datum ig&amp;#229;r/idag

Postades av 2003-04-08 16:27:38 - Mikael Jeansson

Hej

skulle ha skrivit med koden från början och den ser ut så här:

<%

Set Connect = Server.CreateObject("ADODB.Connection")

Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq="_
& Server.MapPath("db/nyheter.mdb")&";"


SQLsats = "SELECT TOP 20 * FROM drivrutiner ORDER BY id DESC"

Set RecSet = Connect.Execute(SQLsats)


Response.Write ""
Do Until RecSet.EOF

Response.Write " <a href='nyheter.asp?id=" & RecSet("id") &"'>" & RecSet("rubrik") & " - Läst ant. gånger" &"-" & RecSet("lasa") & "<br>"

RecSet.MoveNext

Loop

RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
%>

/Micke


Svara

Nyligen

  • 21:41 Automotive Services UK
  • 20:44 Erfarenhet av CBD-olja mot sömnpro
  • 12:13 Sex Dolls for Sale
  • 19:42 Online Casinos for Haitian Players
  • 19:38 Rekommendera något intressant
  • 19:13 Международная перевозка грузов
  • 00:01 DL Van Tuning | Exclusive Body Kit
  • 12:08 Indian casino

Sidor

  • Hem
  • Bli bonusmedlem
  • Läs artiklar
  • Chatta med andra
  • Sök och erbjud jobb
  • Kontakta oss
  • Studentlicenser
  • Skriv en artikel

Statistik

Antal besökare:
Antal medlemmar:
Antal inlägg:
Online:
På chatten:
4 570 880
27 965
271 774
566
0

Kontakta oss

Frågor runt konsultation, rådgivning, uppdrag, rekrytering, annonsering och övriga ärenden. Ring: 0730-88 22 24 | pelle@pellesoft.se

© 1986-2013 PelleSoft AB. Last Build 4.1.7169.18070 (2019-08-18 10:02:21) 4.0.30319.42000
  • Om
  • Kontakta
  • Regler
  • Cookies