Hej! Kom på att jag har angivit en fast sträng. Ligger ASP koden och tabellen på samma sida. Hej! Hej här är hela koden! Är det i denna td som du vill att sUrl4 skall förändras Fixat funkar kanske inte den snyggaste lösning men funkar för stunden.Läser inte in variabeln?
Jag har en funktion som jag sitter och leker med men variabeln läses inte in om jag har detta.
<%
if Isnull(sBok4) = True then
sBok4 = "0"
end if
sPer4= Cint(rs("iSum4"))- Cint(sBok4)
if sPer4 => 400 then
sUrl4 ="href=pstin.asp?Bdate=sDate4&Avd=sAvd>"
"Får inte med a tag i detta meddelande men har <a och </a> efter"
sCol4="#98FB98"
sPer4 = sPer4
else
sUrl4 = ""
sCol4="#FA8072"
sPer4 =""
end if
%>
Och en tabell där man ska klicka på resp, knapp för att rätt url ska skickas men får inte sDate4 att följa med funkar om man lägger länken i tabellen men inte som ovan varför?
<table class=table2 width="600" border=0 cellpadding=5 cellspacing=5>
<tr>
</tr>
<td class=table align="Left" width="190" bgcolor="#E8E8E8"><font color="#000066"><%=sAvd%></font></td>
<td class=table align="center" bgcolor=<%=sCol0%> width="80"><%=sURL0%></td>
<td class=table align="center" bgcolor=<%=sCol1%> width="80"><%=sURL1%></td>
<td class=table align="center" bgcolor=<%=sCol2%> width="80"><%=sURL2%></td>
<td class=table align="center" bgcolor=<%=sCol3%> width="80"><%=sURL3%></td>
<td class=table align="center" bgcolor=<%=sCol4%> width="80"><%=sURL4%></td>
</tr>
</Table>
Nån som vet varför
Tobbe
Sv: Läser inte in variabeln?
Anledningen till denna variant är att om värdet i cellen är under 400 då ska man inte kunna klicka i cellen, då kom jag på denna geniala iden trodde jag att man skapar en variabel som heter sURL0 osv. men funkar inte .
Jag behöver på något sätt känna av om värdet i cellen är över eller under 400 för att disabla knapp tryckning i resp cell.
Kan inte komma på något bra sätt för detta!
TobbeSv:Läser inte in variabeln?
Skickar länken i td´n dig tillbaka till samma sida?
Den här strängen ser lite konstig ut
sUrl4 ="href=pstin.asp?Bdate=sDate4&Avd=sAvd>"
borde väl vara nåt sånt här
sUrl4 ="< href=pstin.asp?Bdate=" & sDate4 & "&Avd=" & sAvd & ">"
Ett bra sätt att se vad en variabel innehåller är att skriva ut dem på sidan.
Ett annat är att visa källa på sidan och se vad som verkligen renderatsSv: Läser inte in variabeln?
Det jag inte riktigt förstår är att färgen ändras på knappen när tiden är under 400 men inte url strängen vad gör jag för fel?
TobbeSv: Läser inte in variabeln?
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>CheckUpNet ASP </title>
<style type="text/css">
body {
background-color: #fff;
padding: 0;
margin: 20px 0 0 20px;
font-family:"Lucida Grande", "Lucida Sans Unicode", Helvetica, Arial, sans-serif;
font-size: 8px;
}
}
.table2 {
width: 1000px;
float: left;
clear: left;
margin: 10px;
padding: 10px;
border: 1px solid #95B995;
border-radius: 15px;
box-shadow: 5px 5px 5px rgba(0,0,0, 0.3);
}
.table {
border: 1px solid #95B995;
border-radius: 0px;
box-shadow: 2px 2px 2px rgba(0,0,0, 0.3);
}
.kolumner3 {
width: 600px;
margin: 20px;
padding: 20px;
background-color: #fff;
border-radius: 10px;
box-shadow:
0 0 15px rgba(0,0,0, 0.5);
}
/**here's the magic part**/
.table2 td a {
display:block;
height:1em; /**adjust height in ems as required**/
text-decoration:none;
}
/**link states**/
.table2 td a:link {color: #4682B4}
.table2 td a:visited {color:#4682B4}
.table2 td a:hover, .table2 td a:active, .table2 td a:focus {
background-color:#4682B4
}
body
</style>
</head>
<body>
<%
Session.LCID = 1053
%>
<FORM ACTION = "VstBok.asp" METHOD = "POST">
<center>
<div>
</div>
<div class="kolumner3">
<a name="top_mainpage" id="top_mainpage"></a>
<TABLE border='0' width='550'><tr><td>
<center>
<a name="top_mainpage" id="top_mainpage"></a>
<img src="Image/Fodbok.jpg" width="600" height="100" />
<BR><BR>
<img src="Image/BokaFORDtext.jpg" width="300" height="40" />
<BR><br>
</font>
<form id="myform" action="" method="post">
<%
If(Request.QueryString("OK")) < Date then
sDatum = Date
else
sDatum = Request.QueryString("OK")
end if
vecka = datepart("ww",sDatum,vbMonday,vbFirstFourDays)
ar=Year(sDatum)
sDate= ar &"-01-01"
Do Until DatePart("ww", sDate, 2, 2) = vecka
sDate = DateAdd("d", 1, sDate)
Loop
weekno = vecka '+ 1 'Request.QueryString("OK")
y = 2014
firstday = y & "-01-01"
fweek = datepart("ww", firstday)
if fweek > 1 then
startday = dateadd("d",8-weekday(firstday,vbmonday),firstday)
else
startday = dateadd("d",-6-weekday(firstday,vbmonday),firstday)
end if
startday = dateadd("ww",weekno,sDatum)
for i = 0 to 4
'Response.Write dateadd("d", i, startday) & "<br/>" & vbcrlf
'Response.Write dateadd("d", i, startday) & " " & weekdayname(i+1, false, VBMonday) & "<br/>" & vbcrlf
' Response.Write sDat & i & dateadd("d", i, startday) & "<br/>" & vbcrlf
next
sDate0 = Day(dateadd("d", 0, sDate))
sDate4 = Day(dateadd("d", 4, sDate))
sMon = MonthName(Month(sDate))
%>
</font>
<FONT SIZE="1">
<table class=table1 width="300" border=0 cellpadding=2 cellspacing=2>
<tr>
</tr>
<td class=table align="center" width="120" bgcolor="#E8E8E8">>Föregående</td>
<td class=table align="center" width="190" bgcolor="#E8E8E8"><%=sDate0%> - <%=sDate4%> <%=UCase(sMon)%></td>
<td class=table align="center" width="120" bgcolor="#E8E8E8">>Nästa vecka</td>
</tr>
</Table>
</FONT>
<br>
<FONT SIZE="2">
<table class=table2 width="600" border=0 cellpadding=5 cellspacing=5>
<tr>
</tr>
<td class=table align="center" width="210" bgcolor="#E8E8E8"><font color="#000066">Bokning läge vecka:<%=weekno%></font></td>
<td class=table align="center" bgcolor="#E8E8E8" width="80">Mån<Br><%=Day(dateadd("d", 0, sDate))%></td>
<td class=table align="center" bgcolor="#E8E8E8" width="80">Tis<Br><%=Day(dateadd("d", 1, sDate))%></td>
<td class=table align="center" bgcolor="#E8E8E8" width="80">Ons<Br><%=Day(dateadd("d", 2, sDate))%></td>
<td class=table align="center" bgcolor="#E8E8E8" width="80">Tors<Br><%=Day(dateadd("d", 3, sDate))%></td>
<td class=table align="center" bgcolor="#E8E8E8" width="80">Fre<Br><%=Day(dateadd("d", 4, sDate))%></td>
</tr>
</Table>
</FONT>
<%
db = Server.MapPath("/db/databas.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db%>
<%Set Rs = Server.CreateObject("ADODB.Recordset")
sAvd = "Mekverkstad"
Set rs = Conn.Execute("SELECT Count(Namn)As iAnt FROM [Mek] Where [Avd]= '" & sAvd & "'")
Do until rs.EOF
sAnt = rs("iAnt")
rs.MoveNext
Loop
'Response.Write sAnt
'SQL = "SELECT Sum(BokTime)As iBok FROM [Tider] WHERE [Datum] = """ & Request.QueryString("sDate") & """"
sDate = DateAdd("d", 0, sDate)
sDate0 = DateAdd("d", 0, sDate)
'Response.Write sDate
Set rs = Conn.Execute("SELECT Sum(BokTime)As iBok FROM Tider Where [Datum] = '" & sDate & "' And [Avd]= '" & sAvd & "'")
Do until rs.EOF
sBok0 = rs("iBok")
rs.MoveNext
Loop
sDate = DateAdd("d", 1, sDate)
sDate1 = DateAdd("d", 0, sDate)
'Response.Write sDate
Set rs = Conn.Execute("SELECT Sum(BokTime)As iBok FROM Tider Where [Datum] = '" & sDate & "' And [Avd]= '" & sAvd & "'")
Do until rs.EOF
sBok1 = rs("iBok")
rs.MoveNext
Loop
sDate = DateAdd("d", 1, sDate)
sDate2 = DateAdd("d", 0, sDate)
'Response.Write sDate
Set rs = Conn.Execute("SELECT Sum(BokTime)As iBok FROM Tider Where [Datum] = '" & sDate & "' And [Avd]= '" & sAvd & "'")
Do until rs.EOF
sBok2 = rs("iBok")
rs.MoveNext
Loop
sDate = DateAdd("d", 1, sDate)
sDate3 = DateAdd("d", 0, sDate)
'Response.Write sDate
Set rs = Conn.Execute("SELECT Sum(BokTime)As iBok FROM Tider Where [Datum] = '" & sDate & "' And [Avd]= '" & sAvd & "'")
Do until rs.EOF
sBok3 = rs("iBok")
rs.MoveNext
Loop
sDate = DateAdd("d", 1, sDate)
sDate4 = DateAdd("d", 0, sDate)
Response.Write sDate4
Set rs = Conn.Execute("SELECT Sum(BokTime)As iBok FROM Tider Where [Datum] = '" & sDate & "' And [Avd]= '" & "Mekverkstad" & "'")
Do until rs.EOF
sBok4 = rs("iBok")
rs.MoveNext
Loop
'Next
'Set rs = Conn.Execute("SELECT DISTINCT [Namn],[Per0],[Per1],[Per2],[Per3],[Per4] FROM [Mek_närvaro] Where [Avd]= '" & sAvd & "'")
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]= '" & sAvd & "'")
i = 0
Do until rs.EOF
if Isnull(sBok0) = True then
sBok0 = "0"
end if
sPer0= Cint(rs("iSum0"))- Cint(sBok0)
if sPer0 => 400 then
sCol0="#98FB98"
sPer0 = sPer0
else
sCol0="#FA8072"
sPer0 =""
end if
if Isnull(sBok1) = True then
sBok1 = "0"
end if
sPer1= Cint(rs("iSum1"))- Cint(sBok1)
if sPer1 => 400 then
sCol1="#98FB98"
sPer1 = sPer1
else
sCol1="#FA8072"
sPer1 =""
end if
if Isnull(sBok2) = True then
sBok2 = "0"
end if
sPer2= Cint(rs("iSum2"))- Cint(sBok2)
if sPer2 => 400 then
sCol2="#98FB98"
sPer2 = sPer2
else
sCol2="#FA8072"
sPer2 =""
end if
if Isnull(sBok3) = True then
sBok3 = "0"
end if
sPer3= Cint(rs("iSum3"))- Cint(sBok3)
'sPer3= rs("iSum3")- sBok3
if sPer3 => 400 then
sCol3="#98FB98"
sPer3 = sPer3
else
sCol3="#FA8072"
sPer3 =""
end if
if Isnull(sBok4) = True then
sBok4 = "0"
end if
sPer4= Cint(rs("iSum4"))- Cint(sBok4)
'sPer4= rs("iSum4")
if sPer4 => 400 then
sCol4="#98FB98"
sUrl4 =""
sPer4 = sPer4
else
sCol4="#FA8072"
sUrl4 =" "
sPer4 =""
end if
%><%=sAvd%> width="80">&Avd=<%=sAvd%>></td>
<td class=table align="center" bgcolor=<%=sCol1%> width="80">&Avd=<%=sAvd%>></td>
<td class=table align="center" bgcolor=<%=sCol2%> width="80">&Avd=<%=sAvd%>></td>
<td class=table align="center" bgcolor=<%=sCol3%> width="80">&Avd=<%=sAvd%>></td>
<td class=table align="center" bgcolor=<%=sCol4%> width="80"><%=sUrl4%></td>
</tr>
</Table>
</FONT>
<%
Response.Write sDate4
rs.MoveNext
i=i+1
Loop
Conn.CLOSE
SET Conn = NOTHING
%>
</td></tr>
</TABLE>
</div>
</div>
</body>
</HTML>
Svara
Sv:Läser inte in variabeln?
om tiden är under 400?
<td class=table align="center" bgcolor=<%=sCol4%> width="80"><%=sUrl4%></td>
I koden nedan så blir sUrl4 alltid en tom sträng, medan
du ändra på färgen.
if sPer4 => 400 then
sCol4="#98FB98"
sUrl4 =""
sPer4 = sPer4
else
sCol4="#FA8072"
sUrl4 =" "
sPer4 =""
end if
Vill du att det skall vara en klickbar href i ena fallet?Sv: Läser inte in variabeln?
if Isnull(sBok4) = True then
sBok4 = "0"
end if
sPer4= Cint(rs("iSum4"))- Cint(sBok4)
if sPer4 => 400 then
sUrl4 = "<a href=VstBok.asp?Bokdate=" & sDate4 & "&Avd=" & sAvd & "</a>"
sPer4 = sPer4
sCol4="#98FB98"
else
sCol4="#FA8072"
sUrl4 =" "
sPer4 =""
end if
<td class=table align="center" bgcolor=<%=sCol4%> width="80"><%=sUrl4%></td>
Tobbe