webForumDet fria alternativet
Logga in / Bli medlem

Ja/nej

ASP

19 svar · 226 visningar · startad av voigtann1

voigtann1s avatarvoigtann1Medlem sedan juni 20019 519 inlägg
Frågan#1

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???

------------------
//voigtan
:: voigtan.org

"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck

jorgenMedlem sedan feb. 20012 412 inlägg
#2

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 :)

------------------
Varför bråka när man kan kramas?

voigtann1s avatarvoigtann1Medlem sedan juni 20019 519 inlägg
#3

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`???

------------------
//voigtan
:: voigtan.org

"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck

jorgenMedlem sedan feb. 20012 412 inlägg
#4

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 "<p>Inga spelningar funna</p>" 

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
------------------
Varför bråka när man kan kramas?

[Redigerat av jorgen den 30 okt 2001]

voigtann1s avatarvoigtann1Medlem sedan juni 20019 519 inlägg
#5

Jag använder inte SQL... hur e koden då? jag kan ge min kod jag använder nu:

<html><% 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
%>
<link rel="stylesheet" href="style.css" type="text/css">

<table width="70%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td background="main/top.gif" height="9" width="7"></td>
    <td background="main/topl.gif" height="9"></td>
    <td background="main/topend.gif" height="9" width="10"></td>
  </tr>
  <tr>
    <td background="main/lefts.gif"></td>
    <td bgcolor="#FFFFFF" class="text1"><b>::</b> SPELNINGAR</td>
    <td background="main/rside.gif"></td>
  </tr>
  <tr>
    <td background="main/bottomle.gif" height="7" width="7"></td>
    <td background="main/bottoml.gif" height="7"></td>
    <td background="main/botomr.gif" height="7" width="10"></td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td background="main/top.gif" height="9" width="7"></td>
    <td background="main/topl.gif" height="9"></td>
    <td background="main/topend.gif" height="9" width="10"></td>
  </tr>
  <tr>
    <td background="main/lefts.gif"></td>
    <td bgcolor="#FFFFFF" class="text1">
      <table width="100%" border="0" cellspacing="0" cellpadding="0" class="text1">
        <tr>
          <td width="25%"><b><u>VAR?</b></u></td>
          <td width="25%"><b><u>TID</b></u></td>
          <td width="*"><b><u>ETC</b></u></td>
        </tr>
<%
Dim Upprepa
For Upprepa = 1 To 100
If RecSet.EOF Then
Exit For
End If %>        <tr>
          <td width="25%"> 
          <% =RecSet("var") %>
          </td>
          <td width="25%"> 
          <font color="<% =RecSet("aktuellt") %>"><% =RecSet("TID") %></font>
          </td>
          <td width="*"> 
          - <% =RecSet("ETC") %>
          </td>
        </tr><% RecSet.MoveNext
Next %>
</table><br>
    </td>
    <td background="main/rside.gif"></td>
  </tr>
  <tr>
    <td background="main/bottomle.gif" height="7" width="7"></td>
    <td background="main/bottoml.gif" height="7"></td>
    <td background="main/botomr.gif" height="7" width="10"></td>
  </tr>
      </table><br><%
RecSet.Close
Connect.Close
%></span>
</html>

TACK för en sak till.. typ om det inte finns några spelningar! stort tack för det!

------------------
//voigtan
:: voigtan.org

"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck

voigtann1s avatarvoigtann1Medlem sedan juni 20019 519 inlägg
#6

får inte att det fungerar det om man inte lägger till någon spelning.. =(

------------------
//voigtan
:: voigtan.org

"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck

voigtann1s avatarvoigtann1Medlem sedan juni 20019 519 inlägg
#7

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 =)

------------------
//voigtan
:: voigtan.org

"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck

voigtann1s avatarvoigtann1Medlem sedan juni 20019 519 inlägg
#8

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 "<p>Inga spelningar funna</p>" 

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?

------------------
//voigtan
:: voigtan.org

"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck

LarsGMedlem sedan dec. 200012 464 inlägg
#9

Om du skriver så här istället då

intAktuell = DateDiff("d", cdate(dteDate), Now())

?

------------------
essentitia preter non sans multiplicandum

voigtann1s avatarvoigtann1Medlem sedan juni 20019 519 inlägg
#10
<html><%
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=d:/voigtan/olis/db/olis.mdb"
%>
<link rel="stylesheet" href="style.css" type="text/css">
<%

sql ="SELECT tid FROM spelningar"
SET RS = Connection.Execute(sql)
If RS.EOF Then
Response.write "<p>Inga spelningar funna</p>" 
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
%></span>
</html>

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 =)

------------------
//voigtan
:: voigtan.org

"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck

LarsGMedlem sedan dec. 200012 464 inlägg
#11

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.

------------------
essentitia preter non sans multiplicandum

voigtann1s avatarvoigtann1Medlem sedan juni 20019 519 inlägg
#12

tid e samma som dtedate
typ

det är som "datum"

typ:

<%
Dim Datum
Datum = Date
%>
<%=datum%>

------------------
//voigtan
:: voigtan.org

"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck

voigtann1s avatarvoigtann1Medlem sedan juni 20019 519 inlägg
#13

jag får inte detta att fungera som jag vill...

om ni kollar på sidan: http://217.10.104.141/voigtan/olis/

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!

------------------
//voigtan
:: voigtan.org

"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck

icaaqMedlem sedan okt. 20005 273 inlägg
#14

hur ser koden ut nu ?

------------------
Icaaq, mannen med korven. som hejar på Bajen(!)

voigtann1s avatarvoigtann1Medlem sedan juni 20019 519 inlägg
#15
<html><%
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
%>
<link rel="stylesheet" href="style.css" type="text/css">

<table width="70%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td background="main/top.gif" height="9" width="7"></td>
    <td background="main/topl.gif" height="9"></td>
    <td background="main/topend.gif" height="9" width="10"></td>
  </tr>
  <tr>
    <td background="main/lefts.gif"></td>
    <td bgcolor="#FFFFFF" class="text1"><b>::</b> SPELNINGAR</td>
    <td background="main/rside.gif"></td>
  </tr>
  <tr>
    <td background="main/bottomle.gif" height="7" width="7"></td>
    <td background="main/bottoml.gif" height="7"></td>
    <td background="main/botomr.gif" height="7" width="10"></td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td background="main/top.gif" height="9" width="7"></td>
    <td background="main/topl.gif" height="9"></td>
    <td background="main/topend.gif" height="9" width="10"></td>
  </tr>
  <tr>
    <td background="main/lefts.gif"></td>
    <td bgcolor="#FFFFFF" class="text1">
      <table width="100%" border="0" cellspacing="0" cellpadding="0" class="text1">
        <tr>
          <td width="20%"><b><u>VAR?</b></u></td>
          <td width="30%"><b><u>TID</b></u></td>
          <td width="*"><b><u>ETC</b></u></td>
        </tr>
<%
Dim Upprepa
For Upprepa = 1 To 100
If RecSet.EOF Then
Exit For
End If %>        <tr>
          <td width="20%"> 
          <% =RecSet("var") %>
          </td>
          <td width="30%"> 
          <font color="<% =RecSet("aktuellt") %>"><% =RecSet("TID") %></font>
          </td>
          <td width="*"> 
          - <% =RecSet("ETC") %>
          </td></tr><% RecSet.MoveNext
Next %>
</table>
    </td>
    <td background="main/rside.gif"></td>
  </tr>
  <tr>
    <td background="main/bottomle.gif" height="7" width="7"></td>
    <td background="main/bottoml.gif" height="7"></td>
    <td background="main/botomr.gif" height="7" width="10"></td>
  </tr>
      </table><%
RecSet.Close
Connect.Close
%></span>
</html>

så =)

------------------
//voigtan
:: voigtan.org

"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck

voigtann1s avatarvoigtann1Medlem sedan juni 20019 519 inlägg
#16

<% =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.

------------------
//voigtan
:: voigtan.org

"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck

voigtann1s avatarvoigtann1Medlem sedan juni 20019 519 inlägg
#17

kan du hjälpa mej?

------------------
//voigtan
:: voigtan.org

"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck

voigtann1s avatarvoigtann1Medlem sedan juni 20019 519 inlägg
#18

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.

<html><%
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
%>
<link rel="stylesheet" href="style.css" type="text/css">

<table width="70%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td background="main/top.gif" height="9" width="7"></td>
    <td background="main/topl.gif" height="9"></td>
    <td background="main/topend.gif" height="9" width="10"></td>
  </tr>
  <tr>
    <td background="main/lefts.gif"></td>
    <td bgcolor="#FFFFFF" class="text1"><b>::</b> SPELNINGAR</td>
    <td background="main/rside.gif"></td>
  </tr>
  <tr>
    <td background="main/bottomle.gif" height="7" width="7"></td>
    <td background="main/bottoml.gif" height="7"></td>
    <td background="main/botomr.gif" height="7" width="10"></td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td background="main/top.gif" height="9" width="7"></td>
    <td background="main/topl.gif" height="9"></td>
    <td background="main/topend.gif" height="9" width="10"></td>
  </tr>
  <tr>
    <td background="main/lefts.gif"></td>
    <td bgcolor="#FFFFFF" class="text1">
      <table width="100%" border="0" cellspacing="0" cellpadding="0" class="text1">
        <tr>
          <td width="20%"><b><u>VAR?</b></u></td>
          <td width="30%"><b><u>TID</b></u></td>
          <td width="*"><b><u>ETC</b></u></td>
        </tr>
<%

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 "        <tr>"
Response.write "<td width=""20%""> "
Response.write RecSet("var")
Response.write "          </td>"
Response.write "          <td width=""30%""> "
Response.write "          <font color=""#800000"">" & RecSet("TID") & "</font>"
Response.write "          </td>"
Response.write "          </td>"
Response.write "          <td width=""*""> "
Response.write "                    - " & RecSet("ETC")
Response.write "          </td></tr>"
else

Response.write "        <tr>"
Response.write "<td width=""20%""> "
Response.write RecSet("var")
Response.write "          </td>"
Response.write "          <td width=""30%""> "
Response.write "          <font color=""#008000"">" & RecSet("TID") & "</font>"
Response.write "          </td>"
Response.write "          </td>"
Response.write "          <td width=""*""> "
Response.write "                    - " & RecSet("ETC")
Response.write "          </td></tr>"
End If
RecSet.Movenext
wend
End If %>
          

</table>
    </td>
    <td background="main/rside.gif"></td>
  </tr>
  <tr>
    <td background="main/bottomle.gif" height="7" width="7"></td>
    <td background="main/bottoml.gif" height="7"></td>
    <td background="main/botomr.gif" height="7" width="10"></td>
  </tr>
      </table><%
RecSet.Close
Connect.Close
%></span>
</html>

vad är det för fel???

------------------
//voigtan
:: voigtan.org

"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck

LarsGMedlem sedan dec. 200012 464 inlägg
#19

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
------------------
essentitia preter non sans multiplicandum

[Redigerat av LarsG den 18 nov 2001]

voigtann1s avatarvoigtann1Medlem sedan juni 20019 519 inlägg
#20

Tack! har fixat det nu! tack så mycket... jag tror det e fixat =)

------------------
//voigtan
:: voigtan.org

"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck

261 ms totalt · 4 externa anrop · v20260731065814-full.e96017d9
127 ms — deklarationer (db)
0 ms — hämta statistik (cache)
132 ms — hämta tråd, inlägg och bilagor (db)
124 ms — ändringar (db)