Hej
Jag försöker att göra en vecko kalender som visar måndag till fredag där jag vill att varje typ fält eller knapp ska innehålla ett värde tex tid kvar den dagen samt att om det finns tex 4 timmar kvar så ska man kunna trycka på den knappen för att komma vidare.

Kan ej förklara på bättre sätt

Typ så här.
[<< ] Måndag Tisdag Onsdag Torsdag Fredag [>>]
Förnamn Efternamn [knapp] [Knapp] [knapp] [knapp] [knapp]
Förnamn Efternamn [knapp] [Knapp] [knapp] [knapp] [knapp]
Förnamn Efternamn [knapp] [Knapp] [knapp] [knapp] [knapp]

Osv beroende på antal personer
Varje knapp ska ha dagens datum men ska inte visas bara vara antigen grå eller grön beroende om värdet är under 4 tim ska den vara grå och låst över 4 timmar grön och öppen.

Är det någon som sett eller kan ha ett exempel på hur detta ska göras tacksam för förslag.

/Tobbe

Det var länge sen jag använde klassisk ASP
Men principen är väl att man först gör en tidkontroll
och utifrån den såtter upp variabler som man sen petar in
i knappens attribut


<%
<!-- kontrollera tiden först sätt en variabel till true/false-->

tidkontroll = true

If tidkontroll=true Then
buttoncolor = "background-color:Green"
isactive = ""
else
buttoncolor = "background-color:Gray"
isactive = "disabled"
end if

%>

<input id="Button1" type="button" value="button" <%=isactive%> style="<%=buttoncolor%>" />

Finns säkert smartare lösningar
Är som sagt ringrostig på ASP

/Thommy

Om man skall göra så kan man enkelt använda (om jag också minns rätt ...

a = 0
while not EOF(1) 
     if a mod 2 = 0 then
    ' färg grå
     else
    ' färg vit
     end if  
     a = a + 1
wend

Hej
Sitter och pular med detta!

sPer4= rs("iSum4")- sBok0
if sPer4 > 400 then
sCol0="#00CC68"
sPer4 = ""
else
sCol0="#C0C0C0"
sPer4 =""
end if
Osv.
%>
<table class=table2 width="530" border=0 cellpadding=3 cellspacing=3>
tr>
</tr>
<td <TD ID="1" class=table width="150">Namn</td>
<td class=table align="center" bgcolor=sCol0 width="50"><%=sPer0%></td>
<td class=table align="center" bgcolor=sCol1 width="50"><%=sPer1%></td>
<td class=table align="center" bgcolor=sCol2 width="50"><%=sPer2%></td>
<td class=table align="center" bgcolor=sCol3 width="50"><%=sPer3%></td>
<td class=table align="center" bgcolor=sCol4 width="50"><%=sPer4%></td>
</tr>
</Table>

Men sCol4 vill inte vara med, om ni som förstår detta kan säga om det finns någon väg att få till det?

Tobbe

Så här ska det nog vara

<td class=table align="center" bgcolor="<%=sCol4%>" width="50"><%=sPer4%></td>

Hej!

Kom på det direkt efter jag ställde frågan tack ändå.

Men jag har ett nytt problem jag vill att värdet i sBok0 till 4 ska dras bort, men får inte till det.

Set rs = Conn.Execute("SELECT Sum(BokTime)As iBok FROM Tider Where [Datum] = '" & sDate & "' And [Avd]= '" & "Mekverkstad" & "'")

Do until rs.EOF

If rs("iBok") ="" then
sBok = "10"
else
sBok = rs("iBok")
end if
rs.MoveNext
Loop
Next
Set rs = Conn.Execute("SELECT Sum(Per0)As iSum0, Sum(Per1)As iSum1, Sum(Per2)As iSum2, Sum(Per3)As iSum3, Sum(Per4)As iSum4 FROM [Mek_närvaro] Where [Avd] = '" & "Mekverkstad" & "'")

Do until rs.EOF

sPer0= rs("iSum0")- sBok0
if sPer0 > 400 then
sCol0="#00CC68"
sPer0 = sPer0
else
sCol0="#C0C0C0"
sPer0 =""
end if

sPer1= rs("iSum1")- sBok1
if sPer1 > 400 then
sCol1="#00CC68"
sPer1 = sPer1
else
sCol1="#C0C0C0"
sPer1 =""
end if

sPer2= rs("iSum2")- sBok1
if sPer2 > 400 then
sCol2="#00CC68"
sPer2 = sPer2
else
sCol2="#C0C0C0"
sPer2 =""
end if

sPer3= rs("iSum3")- sBok1
if sPer3 > 400 then
sCol3="#00CC68"
sPer3 = sPer3
else
sCol3="#C0C0C0"
sPer3 =""
end if

sPer4= rs("iSum4")- sBok1
if sPer4 > 1500 then
sCol4="#00CC68"
sPer4 = sPer4
else
sCol4="#C0C0C0"
sPer4 =""
end if

%>


<table class=table2 width="530" border=0 cellpadding=3 cellspacing=3>

<tr>
</tr>
<td <TD ID="1" class=table width="150">Service Ford</td>
<td class=table align="center" bgcolor=<%=sCol0%> width="50"><%=sPer0%></td>
<td class=table align="center" bgcolor=<%=sCol1%> width="50"><%=sPer1%></td>
<td class=table align="center" bgcolor=<%=sCol2%> width="50"><%=sPer2%></td>
<td class=table align="center" bgcolor=<%=sCol3%> width="50"><%=sPer3%></td>
<td class=table align="center" bgcolor=<%=sCol4%> width="50"><%=sPer4%></td>
</tr>

</Table>


<%

rs.MoveNext

i=i+1

Loop

Kan var lite snett detta men!!!!

Tobbe

Prova

sPer0= Cint(rs("iSum0"))- Cint(sBok0)

Hej !

Funkar men då rs("iSum0")till rs("iSum4") är tomt inget värde från db blir det stopp.

Testar detta men får inte till det.
Set rs = Conn.Execute("SELECT Sum(BokTime)As iBok FROM Tider Where [Datum] = '" & sDate & "' And [Avd]= '" & "Mekverkstad" & "'")
Do until rs.EOF
If Rs("iBok") = "" then
sBok0 = "10"
Else
sBok0 = Rs("iBok")
End if
Rs.MoveNext
Loop

/Tobbe

Prova med
If IsEmpty(Rs("iBok")) then
eller
If IsNull(Rs("iBok")) then
eller
If Cint(Rs("iBok")) = 0 then