Data grid
Jeg et problem med at markere <tr> med 3 kommandoer, jeg bruger lige nu disse 2.<SCRIPT language=javascript>
<!-- Hide JavaScript from Java-Impaired Browsers
function NavRollOver(oTd) {if (!oTd.contains(event.fromElement)) {oTd.bgColor="#6F90A3";}}
function NavRollOut(oTd) {if (!oTd.contains(event.toElement)) {oTd.bgColor="#FFFFFF";}}
// End Hiding -->
</SCRIPT>
Hvis jeg tilføjer en der f.eks. hedder NavRollSelect som skal ha den funktion at, hvis der bliver klikket skal den holde en anden farve og ignorere "NavRollOut"
Kort fortalt, man musen kører ned over nogle produkter i en tabel, alle <tr> bliver vist i en anden farve når musen kører hen over og går tilbage ved musen ud, når man klikker på det enkle produkt skal en variable skifte ID og den linie bliver markeret hele tiden.
Her er hele koden:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% Option Explicit %>
<!--#include file="inc/DBConnection.asp"--><html>
<head>
<title>Pentacon Web</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="css/ie7.css" rel="stylesheet" type="text/css">
<script type="text/javascript" language="javascript">
function jumppage(zobj)
{
window.location='lagerview.asp?s=0&cp='+zobj.value;
}
</script>
<SCRIPT language=javascript>
<!-- Hide JavaScript from Java-Impaired Browsers
function NavRollOver(oTd) {if (!oTd.contains(event.fromElement)) {oTd.bgColor="#6F90A3";}}
function NavRollOut(oTd) {if (!oTd.contains(event.toElement)) {oTd.bgColor="#FFFFFF";}}
// End Hiding -->
</SCRIPT>
<%
'declare the variables
Dim SQL, x, totalpages, totalrecords, RC, currentpage
Dim cp, s, ss, sortkey, tempx
If request.QueryString("s") = "" or request.QueryString("cp")= "" Then
'Default side
s = 0
'aktuelle side
cp =1
Else
s=request.querystring("s")
cp=request.querystring("cp")
End If
AabenDB
sortkey = Request.QueryString("sortkey")
if len(sortkey) < 1 then
sortkey = "ItemNumber"
end if
'declare the SQL statement that will query the database
SQL = "SELECT * FROM dbo.database Order By " & sortkey
'SQL = SQL & " DESC"
'Open the rs object executing the SQL statement and return records
rs.Open SQL,Connection
%>
</head>
<body>
<form id="LagerFrm" name="LagerFrm" method="post" action="">
<table width="870" border="0" cellpadding="5" cellspacing="0" class="Lager">
<tr>
<td width="147" height="28" valign="top" class="Tbl_OV"><strong><a href="lagerview.asp?sortkey=ItemNumber">Varenummer</a></strong></td>
<td width="272" valign="top" class="Tbl_OV"><strong><a href="lagerview.asp?sortkey=ItemName">Varetekst</a></strong></td>
<td width="70" align="left" valign="top" class="Tbl_OV"><strong><a href="lagerview.asp?sortkey=ItemGroup">Varegruppe</a></strong></td>
<td width="68" align="left" valign="top" class="Tbl_OV"><strong><a href="lagerview.asp?sortkey=ItemType">Varetype</a></strong></td>
<td width="66" align="right" valign="top" class="Tbl_OV"><strong><a href="lagerview.asp?sortkey=CostPrice">Kostpris</a></strong></td>
<td width="63" align="right" valign="top" class="Tbl_OV"><strong><a href="lagerview.asp?sortkey=SalesPrice">Salgspris</a></strong></td>
<td width="65" align="center" valign="top" class="Tbl_OV"><strong>Detaljer</strong></td>
<td width="58" align="center" valign="top" class="Tbl_OV"><strong>Vælg</strong></td>
</tr>
</table>
<%
'
rs.pagesize = 15
totalpages = rs.PageCount
totalrecords = rs.recordcount
currentpage = cp
If rs.EOF Then
Response.Write("Databasen er tom !.")
Else
rs.absolutepage=currentpage
RC=0
For x=1 to rs.pagesize
RC=RC+1
%>
<table width="870" border="0" cellpadding="5" cellspacing="0" class="Lager" onmouseover="NavRollOver(this)" onmouseout="NavRollOut(this)" >
<tr>
<td width="147" height="30" valign="top">
<a href="#"><% =rs("ItemNumber")%></a> </td>
<td width="272" valign="top"><% =rs("ItemName") %></td>
<td width="70" align="left" valign="top"><% =rs("ItemGroup") %></td>
<td width="68" align="left" valign="top"><% =rs("ItemType") %></td>
<td width="66" align="right" valign="top"><% =rs("CostPrice") %></td>
<td width="63" align="right" valign="top"><% =rs("SalesPrice") %></td>
<td width="65" align="center" valign="middle">
<a href="detaljer.asp" target="view" class="thumbnail">
Detaljer<span><table width="100" border="0" cellspacing="0" cellpadding="0">
<tr><td>Her kommer der noget data</td></tr>
</table>
</span> </a> </td>
<td width="58" align="center" valign="middle"><input type="checkbox" name="checkbox" value="checkbox"></td>
</tr>
<%
rs.MoveNext
If rs.EOF Then exit for
Next
End If
rs.close
%>
</table>
<table width="870" class="Lager" border="0" cellpadding="0" cellspacing="0">
<tr><td align="right">
<input name="SEND DATA" type="button" value="Send data" />
</td></tr>
</table>
</form>
<%
If totalrecords > rs.pagesize Then
%>
<table width="870" border="0" cellpadding="0" cellspacing="0" class="Lager">
<tr>
<td width="120" height="24" align="left" class="normal"><b>Side <% =currentpage %> af <% =totalpages %></b></td>
<%
If currentpage=1 Then
%>
<td class="blackhover" align="right" width="21"> </td>
<td class="blackhover" align="left" width="90"> </td>
<%
Else
%>
<td class="blackhover" align="right" width="40">
<a href="lagerview.asp?s=<% =s %>&cp=<% =currentpage-1 %>"><img border="0" src="images/icon_back.gif" align="middle" alt=""></a> </td>
<td class="blackhover" align="right" width="80">
<a href="lagerview.asp?s=<% =s %>&cp=<% =currentpage-1 %>"> Forrige side</a>
</td>
<%
End If
%>
<%
' tempx bruger til at finde den sidste side dette recordset (totalpages = currentpage virkede ikke)
tempx=totalpages - currentpage
If tempx = "0" then
%>
<td class="blackhover" align="right" width="80"></td>
<td class="blackhover" align="right" width="40"></td>
<%
Else
%>
<td class="blackhover" align="right" width="80">
<a href="lagerview.asp?s=<% =s %>&cp=<% =currentpage+1 %>">Næste side </a> </td>
<td class="blackhover" align="right" width="40">
<a href="lagerview.asp?s=<% =s %>&cp=<% =currentpage+1 %>"><img border="0" src="images/icon_next.gif" align="middle" alt=""></a> </td>
<%
End If
%>
<td width="30" valign="top"><!--DWLayoutEmptyCell--> </td>
<td class="normal" align="right" width="62"><b>Gå til side: </b></td>
<td class="blackhover" align="right" width="10">
<select onChange="jumppage(this);" size="1" name="D1" class="normal">
<%
For x=1 to totalpages
ss="":If x=currentpage Then ss="selected"
%>
<option <% =ss %> value="<% =x %>">Side <% =x %></option>
<%
Next
%>
</select> </td>
</tr>
</table>
</body>
</html>
<%
'close the connection and rs objects to free up resources
End If
Set rs=nothing
Connection.Close
Set Connection=nothing
%>
