Vad är alltså problemet?
Frågan#1
Hej,
har ett script som gör så att det ska bli olika färg på varannan rad som loopas ut från min databas och det scriptet har fungerat utmärkt tills nyligen då jag la in ett script för att bara loopa ut en vald månad.
Jag markerar scriptet med röd text och datumscriptet med blå text i koden nedan.
Någon som kan hjälpa mig förstå vad som gått snett?
<html>
<head>
<title></title>
<link rel="stylesheet" type="text/css" href="css/table.css">
</head>
<body>
<%
Sub createNewTableStart(endPrevTable)
if endPrevTable then response.write vbCrLf & "</table>" & vbCrLf & "<br />" & vbCrLf
%>
<span class="rubrik"><b><%=objrs("Comp_Name") %></b></span>
<br>
<table border="1" style="border-collapse: collapse" bordercolor="1px solid #000000">
<tr bgcolor="#CDD5E4" style="font-weight: bold">
<%For I = 1 to 18%>
<td width="30" align="center"><a href="top10.asp?Show=Top10&Lane=<%=I%>" target="top10"><%=I%></a></td>
<%Next%>
<td width="30" align="center">Tot</td>
</tr>
<%
End Sub
%>
[blue]<%
'Function designed to check if string contants only numbers
Function IsOnlyNumeric(str)
Dim ianRegEx
Set ianRegEx = New RegExp
ianRegEx.Pattern = "[^0-9]"
ianRegEx.Global = True
IsOnlyNumeric = (ianRegEx.Test(str) = False)
End Function
intmonth = 1 'January (Default)
If IsOnlyNumeric(Request.QueryString("month")) = True And Request.QueryString("month") <> "" Then
If Int(Request.QueryString("month")) > 0 And Int(Request.QueryString("month")) < 13 Then
intmonth = Int(Request.QueryString("month"))
End If
End If
%>[/blue]
<%
dim Conn, objrs, i, prevDate, currDate, strTot
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/xlr13x3sm.mdb")
Set objrs = Conn.Execute("SELECT tbl_player.Namn, tbl_player.Efternamn, tbl_res.AMT1, tbl_res.AMT2, tbl_res.AMT3, tbl_res.AMT4, tbl_res.AMT5, tbl_res.AMT6, tbl_res.AMT7, tbl_res.AMT8, tbl_res.AMT9, tbl_res.AMT10, tbl_res.AMT11, tbl_res.AMT12, tbl_res.AMT13, tbl_res.AMT14, tbl_res.AMT15, tbl_res.AMT16, tbl_res.AMT17, tbl_res.AMT18, tbl_res.TOTAL, tbl_res.Comp_Date, tbl_res.Comp_Name FROM tbl_player INNER JOIN tbl_res ON tbl_player.PlayerId=tbl_res.PlayerId WHERE tbl_res.Surface ='Filt' [blue]AND MONTH(Comp_Date) = "& intmonth &" [/blue] ORDER BY tbl_res.Comp_Date, tbl_res.Varv")
[blue]i=0
while not objrs.BOF and not objrs.EOF
currDate = objrs("Comp_Date")
if IsEmpty(prevDate) then 'first iteration
createNewTableStart(false)
elseif prevDate <> currDate then
createNewTableStart(true)
end if
i = i + 1
If i Mod 2 = 0 Then
%>[/blue] [red] <tr bgcolor="#EEEEEE">
<% Else %>
<tr bgcolor="#FFFFFF">
<% End If %>[/red]
<%For I = 1 to 18%>
<td align="center"><%=objrs("AMT" & I)%></td>
<%Next%>
<td align="center">
<%
strTot = objrs("TOTAL")
if strTot < 30 then
response.write "<span class=""blueText"">"&strTot&"</span>"
elseif strTot < 36 then
response.write "<span class=""greenText"">"&strTot&"</span>"
elseif strTot < 40 then
response.write "<span class=""redText"">"&strTot&"</span>"
elseif strTot > 39 then
response.write "<span class=""blackText"">"&strTot&"</span>"
End if
response.write vbCrLf & "</td>" & vbCrLf & "</tr>" & vbCrLf
prevDate = currDate
objrs.movenext
wend
if i=0 then 'empty recordset
response.write "<tr><td colspan=""19"">Det finns inga resultat!</td></tr>"
end if
%>
</table>
<%
'close and kill recordset/connection objects
objrs.close
set objrs = nothing
Conn.close
set Conn = nothing
%>
</body>
</html>
/S