05. august 2006 - 15:26Der er
9 kommentarer og 1 løsning
Vise indhold efter kl. 24 ASP
Hejsa NG.
Er der nogen der kan hjælpe mig med, hvordan jeg får denne kode til kun at vise indhold efter kl. 24 for en pågældende dag, som jeg selv styrer med en dato.
I tabellen er der et felt 'spilletid' hvor data er indsat som f.eks 12:35, 15:45. Men når 'spilletid' er f.eks 00:05 skal den vise denne?
Er det til at forstå?
strSQL = "SELECT * FROM tvmovies Where dato LIKE '"&FormatDateTime(Now, vbShortDate)&"' AND showkanal LIKE '05'" Set rs5 = objConn.Execute(strSQL) if rs5.eof or rs5.bof then Response.Write("") Else Response.Write("<tr>") Response.Write("<td colspan='3' height='20'></td>") Response.Write("</tr>") Response.Write("<tr>") Response.Write("<td colspan='3' width='700' bgcolor='#E1E1E1'><img src='grafik/images/tv2film.gif'></td>") Response.Write("</tr>")
Do While Not rs5.EOF %> <tr> <td bgcolor='#FFFFFF' class='list_font' height="18"><a class="list_font_link" href="film.asp?mode=visfilm&Id=<%=rs5("movielink")%>"><%=left(rs5("film"),50)%></a></td> <td bgcolor='#FFFFFF' class='list_font'><%=rs5("spilletid")%></td> <td bgcolor='#FFFFFF' class='list_font'><%=rs5("genre")%></td> </tr> <% rs5.movenext loop end if
Oki. Jeg har nogle tv.film der bliver vist ud fra en pågældende dato. Alle tv-film har en spilletid. Men hvis nu kun jeg vil have vist de film der har en spilletid efter 00:00. Dvs. hvis en film har spilletid 00:05. Så skal den vises. Alle film før 00:00 (f.eks i dag) skal ikke vises.
De to øverste film på DR 1 skal ikke vises. Da de er før 00:00
Synes godt om
Slettet bruger
05. august 2006 - 18:01#4
Ja ok... men så er vi jo nød til at have to klokkeslæt... Altså 00:00 og så et andet tidspunkt som der ikke må vises noget i mellem... I nedenstående eksempel er det lavet til kl. 06:00
strSQL = "SELECT * FROM tvmovies Where dato LIKE '"&FormatDateTime(Now, vbShortDate)&"' AND showkanal LIKE '05'" Set rs5 = objConn.Execute(strSQL) if rs5.eof or rs5.bof then Response.Write("") Else Response.Write("<tr>") Response.Write("<td colspan='3' height='20'></td>") Response.Write("</tr>") Response.Write("<tr>") Response.Write("<td colspan='3' width='700' bgcolor='#E1E1E1'><img src='grafik/images/tv2film.gif'></td>") Response.Write("</tr>")
Do While Not rs5.EOF spilletid = rs5("spilletid") if ((hour(spilletid)>00 OR hour(spilletid)>0) AND (hour(spilletid)<06 OR hour(spilletid)<6)) then %> <tr> <td bgcolor='#FFFFFF' class='list_font' height="18"><a class="list_font_link" href="film.asp?mode=visfilm&Id=<%=rs5("movielink")%>"><%=left(rs5("film"),50)%></a></td> <td bgcolor='#FFFFFF' class='list_font'><%=rs5("spilletid")%></td> <td bgcolor='#FFFFFF' class='list_font'><%=rs5("genre")%></td> </tr> <% end if rs5.movenext loop end if
\Dan
Synes godt om
Slettet bruger
05. august 2006 - 18:03#5
- og så lige en anden ting... Hvorfor i alverden sætter du den til at skrive ingenting hvis resultatet er rs5.EOF eller rs5.BOF??? - det bør vel bare gøres sådan her: strSQL = "SELECT * FROM tvmovies Where dato LIKE '"&FormatDateTime(Now, vbShortDate)&"' AND showkanal LIKE '05'" Set rs5 = objConn.Execute(strSQL) if (rs5.eof=False and rs5.bof=False) then Response.Write("<tr>") Response.Write("<td colspan='3' height='20'></td>") Response.Write("</tr>") Response.Write("<tr>") Response.Write("<td colspan='3' width='700' bgcolor='#E1E1E1'><img src='grafik/images/tv2film.gif'></td>") Response.Write("</tr>")
Do While Not rs5.EOF %> <tr> <td bgcolor='#FFFFFF' class='list_font' height="18"><a class="list_font_link" href="film.asp?mode=visfilm&Id=<%=rs5("movielink")%>"><%=left(rs5("film"),50)%></a></td> <td bgcolor='#FFFFFF' class='list_font'><%=rs5("spilletid")%></td> <td bgcolor='#FFFFFF' class='list_font'><%=rs5("genre")%></td> </tr> <% rs5.movenext loop end if
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.