--- title: "Ja/nej" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/12700-ja-nej" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "voigtann1" published: "2001-10-30T11:06:00.000Z" updated: "2001-11-18T14:49:00.000Z" replies: 19 views: 255 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/12700-ja-nej" --- # Ja/nej ## #1 — voigtann1, 2001-10-30T11:06Z Okey... I en databas kan man ju ha ja/nej alltenativ... så jag tänkte... det kan man ju kanske använda till en sida som jag håller på med. TYP jag håller på med en DJ sida till en polare till mej. Han har en sida där det står Spelningar. Typ vid TID så ska det vara grön text om det är aktuellt och rött om det är över typ. kan man använda JA/NEJ funktionen på detta??? Permalänk: https://www.webforum.nu/p/12700 ## #2 — jorgen, 2001-10-30T11:12Z Hej! Hoppas jag fattat dig rätt nu. Du får bestämma dig för vad som ska vara aktuellt eller ej. Sedan hade jag lagt in ett fält (datetime) datum och tid då spelningen äger rum eller blev inlagd. När du sedan ska presentera röd eller grön text hade jag jämfört dagens datum med datumet i databasen (datediff) och kontrollerat om din gräns för aktuellt har överskridits. Sedan visar du textfärgen ut efter det. mvh Jörgen :) Permalänk: https://www.webforum.nu/p/294977 ## #3 — voigtann1, 2001-10-30T11:16Z jepp.. det stämmer =) hur fixar man det? låter bra.. för då slipper man ändra om, om det är aktuellt lr inte.. hur gör man\`??? Permalänk: https://www.webforum.nu/p/294978 ## #4 — jorgen, 2001-10-30T11:29Z Aktuella är alla som är nyare än 10 dagar. ``` sql ="SELECT dteDate FROM tabellen" SET RS = Connection.Execute(sql) If RS.EOF Then Response.write "

Inga spelningar funna

" else while not RS.EOF dteDate = RS("dteDate") intAktuell = DateDiff("d", dteDate, Now()) If clng(intAktuell) > 10 Then '##-- skriv ut röd else '##-- skriv ut grön end If RS.Movenext wend End If ``` Otestad kod, men du bör förstå principen. mvh Jörgen :) r: stavfel Permalänk: https://www.webforum.nu/p/294979 ## #5 — voigtann1, 2001-10-30T11:43Z Jag använder inte SQL... hur e koden då? jag kan ge min kod jag använder nu: ``` <% Const adLockOptimistic = 3 Const adOpenStatic = 3 Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=d:/voigtan/olis/db/olis.mdb" Addera = "SELECT * FROM spelningar ORDER BY ID DESC" Set RecSet = Server.CreateObject("ADODB.Recordset") RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic %>


	:: SPELNINGAR

<% Dim Upprepa For Upprepa = 1 To 100 If RecSet.EOF Then Exit For End If %> <% RecSet.MoveNext Next %>

VAR?	TID	ETC
<% =RecSet("var") %>	"><% =RecSet("TID") %>	- <% =RecSet("ETC") %>

<% RecSet.Close Connect.Close %> ``` TACK för en sak till.. typ om det inte finns några spelningar! stort tack för det! Permalänk: https://www.webforum.nu/p/294980 ## #6 — voigtann1, 2001-10-30T11:55Z får inte att det fungerar det om man inte lägger till någon spelning.. =( Permalänk: https://www.webforum.nu/p/294981 ## #7 — voigtann1, 2001-10-30T12:03Z P.S Datum som jag kör är: när man lägger till en ny spelning: \<% Dim Datum Datum = Date %\> \<%=datum%\> Om det e till någon hjälp =) Permalänk: https://www.webforum.nu/p/294982 ## #8 — voigtann1, 2001-11-15T14:31Z jag får inte att denna kod att fungera: ``` sql ="SELECT dteDate FROM tabellen" SET RS = Connection.Execute(sql) If RS.EOF Then Response.write "

Inga spelningar funna

" else while not RS.EOF dteDate = RS("dteDate") intAktuell = DateDiff("d", dteDate, Now()) If clng(intAktuell) > 10 Then '##-- skriv ut röd else '##-- skriv ut grön end If RS.Movenext wend End If ``` den ska typ bli röd ju när den dagen är över... jag använder mej av tid kommandot: ``` <% Dim Datum Datum = Date %> <%=datum%> ``` hur fixar man detta? Permalänk: https://www.webforum.nu/p/294983 ## #9 — LarsG, 2001-11-15T14:59Z Om du skriver så här istället då ``` intAktuell = DateDiff("d", cdate(dteDate), Now()) ``` ? Permalänk: https://www.webforum.nu/p/294984 ## #10 — voigtann1, 2001-11-15T16:19Z ``` <% Set Connection = Server.CreateObject("ADODB.Connection") Connection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=d:/voigtan/olis/db/olis.mdb" %> <% sql ="SELECT tid FROM spelningar" SET RS = Connection.Execute(sql) If RS.EOF Then Response.write "

Inga spelningar funna

" else while not RS.EOF tid = RS("tid") intAktuell = DateDiff("d", tid(tid), Now()) If clng(intAktuell) > 10 Then '##-- skriv ut röd else '##-- skriv ut grön end If RS.Movenext wend End If %> <% =RS("tid") %> <% RS.Close Connection.Close %> ``` nu har jag gjort något.. fattar inte ett skit =) jag fattar typ if och sånt men jag vet inte vad jag ska ha i den typ... hjälp =) Permalänk: https://www.webforum.nu/p/294985 ## #11 — LarsG, 2001-11-15T16:48Z Varför har du bytt en massa saker? Är tid ett datum? ``` intAktuell = DateDiff("d", cdate(tid), Now()) ``` cdate är bara en funktion för att konvertera en sträng till ett datum. Permalänk: https://www.webforum.nu/p/294986 ## #12 — voigtann1, 2001-11-15T16:49Z tid e samma som dtedate typ det är som "datum" typ: \<% Dim Datum Datum = Date %\> \<%=datum%\> Permalänk: https://www.webforum.nu/p/294987 ## #13 — voigtann1, 2001-11-17T10:16Z jag får inte detta att fungera som jag vill... om ni kollar på sidan: och kollar på spelningar... jag vill att typ loopen och att bara datumet blir rött eller grönt.. jag får det inte att fungera på något konstigt sätt! blir knäpp! Permalänk: https://www.webforum.nu/p/294988 ## #14 — icaaq, 2001-11-17T10:19Z hur ser koden ut nu ? Permalänk: https://www.webforum.nu/p/294989 ## #15 — voigtann1, 2001-11-17T10:20Z ``` <% Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=d:/voigtan/olis/db/olis.mdb" Addera = "SELECT * FROM spelningar ORDER BY ID DESC" Set RecSet = Server.CreateObject("ADODB.Recordset") RecSet.Open Addera, Connect, 3,3 %>


	:: SPELNINGAR

<% Dim Upprepa For Upprepa = 1 To 100 If RecSet.EOF Then Exit For End If %> <% RecSet.MoveNext Next %>

VAR?	TID	ETC
<% =RecSet("var") %>	"><% =RecSet("TID") %>	- <% =RecSet("ETC") %>

<% RecSet.Close Connect.Close %> ``` så =) Permalänk: https://www.webforum.nu/p/294990 ## #16 — voigtann1, 2001-11-17T10:48Z \<% =RecSet("aktuellt") %\>"\> är nu för tillfället vilken färg men som jag har fattat det ska man ju inte behöva denna kod längre. Permalänk: https://www.webforum.nu/p/294991 ## #17 — voigtann1, 2001-11-17T21:28Z kan du hjälpa mej? Permalänk: https://www.webforum.nu/p/294992 ## #18 — voigtann1, 2001-11-18T14:23Z okey.. tror jag har fixat en bit på hela saken.. men jag får typ inte det att den ska vara grön och röd om det e dagarna jag vill typ om det e idag så ska den ju vara grön imorgon röd och typ 10 dagar innan grön med etc etc. men jag tror jag har gjort något fel för den skriver bar ut röda dagar. ``` <% Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=d:/voigtan/olis/db/olis.mdb" Addera = "SELECT * FROM spelningar ORDER BY ID DESC" Set RecSet = Server.CreateObject("ADODB.Recordset") RecSet.Open Addera, Connect, 3,3 %>


	:: SPELNINGAR

<% If RecSet.EOF Then Response.write "ingen Spelning" else while not RecSet.EOF aktu = RecSet("aktuellt") intAktuell = DateDiff("d", aktuell, Now()) If clng(intAktuell) > 1 Then Response.write " " Response.write "" Response.write " " Response.write " " Response.write " " else Response.write " " Response.write "" Response.write " " Response.write " " Response.write " " End If RecSet.Movenext wend End If %>

VAR?	TID	ETC
" Response.write RecSet("var") Response.write "	" Response.write " " & RecSet("TID") & "" Response.write "	" Response.write " - " & RecSet("ETC") Response.write "
" Response.write RecSet("var") Response.write "	" Response.write " " & RecSet("TID") & "" Response.write "	" Response.write " - " & RecSet("ETC") Response.write "

<% RecSet.Close Connect.Close %> ``` vad är det för fel??? Permalänk: https://www.webforum.nu/p/294993 ## #19 — LarsG, 2001-11-18T14:43Z Du använde olika variabelnamn i din uträkning ``` aktu = RecSet("aktuellt") intAktuell = DateDiff("d", aktu, Now()) ``` Om intAktuell = 0 så är spelningen idag. Om intAktuell \> 0 så har den varit Om intAktuell \< 0 så har den inte varit Jag förstod inte din beskrivning av vilka villkor som skulle gälla för vilken färg. red: stavfel Permalänk: https://www.webforum.nu/p/294994 ## #20 — voigtann1, 2001-11-18T14:49Z Tack! har fixat det nu! tack så mycket... jag tror det e fixat =) Permalänk: https://www.webforum.nu/p/294995 --- Tråden på webben: https://www.webforum.nu/amne/asp/12700-ja-nej