---
title: "Angående \"ifall jag va den senaste\""
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/93606-angående-ifall-jag-va-den-senaste"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "DiDjo"
published: "2003-12-29T18:44:34.000Z"
updated: "2003-12-30T18:40:04.000Z"
replies: 7
views: 213
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/93606-angående-ifall-jag-va-den-senaste"
---

# Angående "ifall jag va den senaste"

## #1 — DiDjo, 2003-12-29T18:44Z

Hej! Jag har en fråga till angående "ifall jag va den senaste"...
Går det att få, så man läggs till, ifall det är en ny dag? Även om man redan är med i TOP 5 listan?

Permalänk: https://www.webforum.nu/p/93606

## #2 — DiDjo, 2003-12-30T15:56Z

Ingen som vet? =)

Permalänk: https://www.webforum.nu/p/1238733

## #3 — Sebbe, 2003-12-30T16:38Z

Kanske såhär?

```
SQL1 = "SELECT TOP 5 vem, datum FROM besokare WHERE vemsida = '" & Request.QueryString("vem") & "' ORDER BY datum DESC, vem"
Set rs3 = connect2.Execute(SQL1)
blnJag = False

Do Until rs3.EOF
  If rs3("vem") = gnamn AND DateDiff("d", rs3("datum"), Date()) < 1 Then blnJag = True
  rs3.MoveNext
Loop

Set rs3 = Nothing

If NOT blnJag Then
  strSQL = "INSERT INTO besokare (vem, vemsida, datum) VALUES ('" & gnamn & "', '" & Request.QueryString("vem") & "', #" & Now() & "#)"
  connect2.Execute(strSQL)
End If

SQL1 = "SELECT TOP 5 * FROM besokare ORDER BY datum DESC"
Set Rs3 = Connect2.Execute(SQL1)

Do Until Rs3.EOF
  if datediff("d",cdate(rs3("datum")),date()) = 0 then
    if len(Hour(rs3("datum"))) = 1 then
      intHour = "0"&Hour(rs3("datum"))
    else
      intHour = Hour(rs3("datum"))
    end if

    if len(Minute(rs3("datum"))) = 1 then
      intMinute = "0"&Minute(rs3("datum"))
    else
      intMinute = Minute(rs3("datum"))
    end if

    strDatum = intHour & ":" & intMinute
  else
    strdatum = "Inte idag"
  end if

  Response.Write "<tr>"
  Response.Write "<td width=50 align=left><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""1""><b><a href=""hem.asp?vem="&  Rs3("vem") & """>"&  Rs3("vem") & "</a</b></td>"
  Response.Write "<td width=60 align=center><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""1"">" & strdatum & "</td>"
  Response.Write "</tr>"
  Rs3.MoveNext
Loop
%>
```

Permalänk: https://www.webforum.nu/p/1238752

## #4 — DiDjo, 2003-12-30T18:19Z

Tack! Men det funkade inte...
antar att det fattas ett End if någonstanns! Antar runt

```
Do Until rs3.EOF
  If rs3("vem") = gnamn AND DateDiff("d", rs3("datum"), Date()) < 1 Then blnJag = True
  rs3.MoveNext
Loop
```

Prövade att lägga till men det fungerade inte :P

Permalänk: https://www.webforum.nu/p/1238781

## #5 — Sebbe, 2003-12-30T18:22Z

På vilket sätt funkar det inte?

Permalänk: https://www.webforum.nu/p/1238783

## #6 — DiDjo, 2003-12-30T18:37Z

Ops Glömde skriva Felmeddelandet! Sry

```
Microsoft VBScript compilation error '800a03f6' 

Expected 'End' 

/kommun/hem.asp, line 282
```

Permalänk: https://www.webforum.nu/p/1238790

## #7 — Sebbe, 2003-12-30T18:40Z

Konstigt. Men testa det här då.

```
SQL1 = "SELECT TOP 5 vem, datum FROM besokare WHERE vemsida = '" & Request.QueryString("vem") & "' ORDER BY datum DESC, vem"
Set rs3 = connect2.Execute(SQL1)
blnJag = False

Do Until rs3.EOF
  If rs3("vem") = gnamn AND DateDiff("d", rs3("datum"), Date()) < 1 Then
    blnJag = True
  End If

  rs3.MoveNext
Loop

Set rs3 = Nothing

If NOT blnJag Then
  strSQL = "INSERT INTO besokare (vem, vemsida, datum) VALUES ('" & gnamn & "', '" & Request.QueryString("vem") & "', #" & Now() & "#)"
  connect2.Execute(strSQL)
End If

SQL1 = "SELECT TOP 5 * FROM besokare ORDER BY datum DESC"
Set Rs3 = Connect2.Execute(SQL1)

Do Until Rs3.EOF
  if datediff("d",cdate(rs3("datum")),date()) = 0 then
    if len(Hour(rs3("datum"))) = 1 then
      intHour = "0"&Hour(rs3("datum"))
    else
      intHour = Hour(rs3("datum"))
    end if

    if len(Minute(rs3("datum"))) = 1 then
      intMinute = "0"&Minute(rs3("datum"))
    else
      intMinute = Minute(rs3("datum"))
    end if

    strDatum = intHour & ":" & intMinute
  else
    strdatum = "Inte idag"
  end if

  Response.Write "<tr>"
  Response.Write "<td width=50 align=left><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""1""><b><a href=""hem.asp?vem="&  Rs3("vem") & """>"&  Rs3("vem") & "</a</b></td>"
  Response.Write "<td width=60 align=center><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""1"">" & strdatum & "</td>"
  Response.Write "</tr>"
  Rs3.MoveNext
Loop
%>
```

Permalänk: https://www.webforum.nu/p/1238791

## #8 — DiDjo, 2003-12-30T18:40Z

Du hade rätt första gången! Va jag som hade råkat ta bort ett end if när jag la till koden!

Tack så mycket!

Gott nytt år! :e

Permalänk: https://www.webforum.nu/p/1238792

---

Tråden på webben: https://www.webforum.nu/amne/asp/93606-angående-ifall-jag-va-den-senaste