if hour(now()) = 20 then
Frågan#1
Visas om klockan är mellan...
13 svar · 325 visningar · startad av DiDjo
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...
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å?
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%>
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())
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
:)
Eller får jag hitta på nått annat? :)
Är det möjligt? Eller får jag hitta på en annan lösning?
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() #'?
jo... skulle va tacksam för kod... :)
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"!
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>