---
title: "Visas om klockan är mellan..."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/96981-visas-om-klockan-är-mellan"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "DiDjo"
published: "2004-02-09T19:49:06.000Z"
updated: "2004-02-17T01:40:51.000Z"
replies: 13
views: 328
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/96981-visas-om-klockan-är-mellan"
---

# Visas om klockan är mellan...

## #1 — DiDjo, 2004-02-09T19:49Z



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

## #2 — LarsG, 2004-02-09T20:30Z

```
if hour(now()) = 20 then
```

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

## #3 — DiDjo, 2004-02-09T21:14Z

umm? Fattar inte riktigt den där koden LarsG :)

Asså tid och tidtill kan även vara 21:24 --\> 23:19

Eftersom användarna kan fylla i valfri tid...

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

## #4 — LarsG, 2004-02-09T22:00Z

```
ms = datediff("n",#00:00:00#,ctime(rs("tid")))
me = datediff("n",#00:00:00#,ctime(rs("tidtill")))
mn = datediff("n",date(),now()) 

if mn >= ms and mn <= me then
```

Så då?

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

## #5 — DiDjo, 2004-02-10T14:09Z

Blev det här :)

```
Microsoft VBScript runtime error '800a000d' 

Type mismatch: 'ctime' 

/!radio/Default.asp, line 24
```

Så här skrev jag...

```
<%
if rs.eof then
%>
det fanns inga bokade tider!
<%else
ms = datediff("n",#00:00:00#,ctime(rs("tid")))
me = datediff("n",#00:00:00#,ctime(rs("tidtill")))
mn = datediff("n",date(),now()) 

if mn >= ms and mn <= me then%>
OnAir!
<%else%>
Inte On air!
<%end if
end if%>
```

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

## #6 — LarsG, 2004-02-10T14:50Z

Det är jag som blandar ihop saker och ting

```
if isdate(rs("tid")) then
   ms = datediff("n",#00:00:00#,cdate(rs("tid")))
else
   ms = 0
end if
if isdate(rs("tidtill")) then
   me = datediff("n",#00:00:00#,cdate(rs("tidtill")))
else
   me = 0
end if
mn = datediff("n",date(),now())
```

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

## #7 — DiDjo, 2004-02-10T17:18Z

hehe ok :) Nu fungerar det :) Men det kan finnas flera inlägg med samma tid, men olika datum! Hur kollar man så datumet är rätt också?

Sen hur gör jag för att hämta ut rs("vem") från det inlägget som visas där? :)

vem     tid              tid till
KeNNy 21:00         23:00

Då ska den hämta ut rs("vem") när klockan är imellan 21 och 23 

:)

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

## #8 — DiDjo, 2004-02-11T18:34Z

Eller får jag hitta på nått annat? :)

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

## #9 — DiDjo, 2004-02-12T18:12Z

Är det möjligt? Eller får jag hitta på en annan lösning?

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

## #10 — J.N., 2004-02-13T08:08Z

HEJ!

Vem:
Du vet väl vem som spelar? Då är det väl endast att hämta/visa det värdet?
Om du gjort detta med dj joinad från en separat dj-listan får du göra en join i frågan, men ligger namnet i samma tabell som tiderna är det har du själv svarat på hur det ska göras.

Datum:
Det är väl endast att lägga till villkoret datum='# date() #'?

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

## #11 — DiDjo, 2004-02-13T14:46Z

jo... skulle va tacksam för kod... :)

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

## #12 — J.N., 2004-02-16T08:54Z

HEJ!

Vem:
rs("vem")

Datum:
isdate(rs("tid")) AND RS("datum")='# date() #'?

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

## #13 — DiDjo, 2004-02-17T01:23Z

jo... men hur ska jag hämta ut det i en databas koppling?

```
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("****")
Set rs = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM boka"
rs.Open Addera, Connect, 3, 3
%>
<html>

<body>
<%
if rs.eof then
%>
det fanns inga bokade tider!
<%
if rs("godkant") = True then
else
if isdate(rs("tid")) then
   tid = datediff("n",#00:00:00#,cdate(rs("tid")))
else
   tid = 0
end if
if isdate(rs("tidtill")) then
   tidtill = datediff("n",#00:00:00#,cdate(rs("tidtill")))
else
   tidtill = 0
end if
tidnu = datediff("n",date(),now()) 

if tidnu >= tid and tidnu <= tidtill then
%>

<%else%>
Inte On air!
<%end if
end if%>
</body>

</html>
```

Det jag vill är att den ska hämta ut användaren som är "Onair"!

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

## #14 — DiDjo, 2004-02-17T01:40Z

Så här löste jag det

```
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("****")
Set rs = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM boka"
rs.Open Addera, Connect, 3, 3
%>
<html>

<head>
<meta http-equiv="Content-Language" content="sv">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title></title>
</head>

<body>
<%
if rs.eof then
%>
det fanns inga bokade tider!
<%
else
Set Connect1 = Server.CreateObject("ADODB.Connection")
Connect1.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("***.mdb")
Set rs1 = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM boka where godkant = True"
rs1.Open Addera, Connect1, 3, 3
if rs1("godkant") = False then
%>
det fanns inga bokade tider! som va godkända!
<%
else

if isdate(rs1("tid")) then
   tid = datediff("n",#00:00:00#,cdate(rs1("tid")))
else
   tid = 0
end if
if isdate(rs1("tidtill")) then
   tidtill = datediff("n",#00:00:00#,cdate(rs1("tidtill")))
else
   tidtill = 0
end if
tidnu = datediff("n",date(),now()) 

if tidnu >= tid and tidnu <= tidtill then
%>
En bokad tid!<br><br>
Dj: <%=rs1("vem")%><br>
Började sända: <%=rs1("tid")%><br>
Slutar sända: <%=rs1("tidtill")%><br>
<%else%>
Nästa som sänder:
<%end if
end if
end if%>
</body>

</html>
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/96981-visas-om-klockan-är-mellan