Notifikationer

Markér alle som læst Log ud

Jman Praktikant

23. januar 2002 - 12:30 Der er 9 kommentarer og
1 løsning

Skifte cellers farver hver anden gang

Hey!
Hvordan er det liiige man laver koden til en asp-side hvor hver anden linie har en anden baggrundsfarve?

Synes godt om

netsrac Praktikant

23. januar 2002 - 12:34 #1

color = "000000"
Do until rs.eof
Response.write("<tr><td bgcolor=""" & color & """> </td></tr>")
If color = "000000" Then
color = "ffffff"
Else
color = "000000"
End if
rs.movenext
Loop

Synes godt om

hojben Novice

23. januar 2002 - 12:34 #2

min ser sådan ud:

<%
Response.Buffer = true
Response.CacheControl = "no-cache"
Response.Expires = -1
%>
<html>
<head>
<link rel="stylesheet" href="/css/general.css">
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript">

</script>
</head>

<body bgcolor="#003366" text="#FFFFFF" link="#000000" vlink="#FFFFFF" class="text" alink="#FFFFFF">
De 5 sidste tilmeldte:
<table width="100%" border="1" class="text" cellpadding="1" bordercolor="#FFFFFF" align="center"><div align="center">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/access.mdb")
Conn.Open DSN
' SQL forespørgsel
strsql="SELECT TOP 5 * FROM firma ORDER BY ID desc"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
counter=0
' Gennemløb Recordset (rs) med en løkke
Do While Not rs.EOF
' Udskriv værdien af kolonnen
notatfelt = rs("lokalt")
'start farver
counter = counter + 1
if counter = 2 then
counter = 0
end if
if counter = 0 then
color="#003366"
else
color="#333366"
end if
' slut farver
Response.write("<tr align=""center""><td bgcolor='" & color & "' align=""center"">")
Response.write("<a href=""" & notatfelt & """ target=""main"">" & rs("firma") & " </td></tr>")
' Gå til næste Record i rs
rs.MoveNext
Loop
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%></div>
</table>
</body>
</html>

Synes godt om

coltau Juniormester

23. januar 2002 - 12:35 #3

Inde i while-løkken der udskriver i linierne ´kan man evt. skifte farven således:

RowNum = Not RowNum
If RowNum = True Then
RowColor = "#FFF7DF"
Else
RowColor = "#FFF9EA"
End If

RowNum er et flag der skiftes for hver linie. Dermed kan man anvende RowColor til baggrund- eller forgrundsfarve.

Synes godt om

Slettet bruger

23. januar 2002 - 12:36 #4

Dim counter
counter = 0

If Not rs.EOF Then
Response.Write "<table>"
Do While Not rs.EOF

If count Mod 2 = 0 Then
bgcolor = "#C0C0C0"
Else
bgcolor = "#FFFFFF"
End If

Response.Write "<tr><td bgcolor=""" & bgcolor & """>" & rs("nick") & "</td></tr>"

count = count + 1
rs.MoveNext
Loop
Response.Write "</table>"
End If

Synes godt om

sone Nybegynder

23. januar 2002 - 12:36 #5

se http://www.eksperten.dk/spm/108681

Synes godt om

Slettet bruger

23. januar 2002 - 12:37 #6

rs("nick") skal selvfølgelig udskiftes med det/de feltnavn(e) du skal have udskrevet :)

Synes godt om

Jman Praktikant

23. januar 2002 - 13:07 #7

De virker OK simpelt, når man ser det her... Men jeg kan ikke få det passet ind.. Min kode:

set RS = conn.execute(sql)

DO WHILE NOT rs.EOF
bruger = rs("bruger")
ipno = rs("ipno")
email = rs("email")
%>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="80%" id="AutoNumber3">
<tr>
<td width="180">
<h4>IP nummer: <b><%=ipno%></b></h4>
</td>
<td>
<h4>Bruger:<a href="mailto:<%=email%>"> <b><%=bruger%></b></a></h4>
</td>
<td width="58">
<h4 style="margin-top: 0; margin-bottom: 0"><i><a href="edit.asp?id=<%=rs("id")%>">se detaljer</a></i></h4>
</td>
</tr>
<hr color="#CECFA5" width="100%">
</table>
</center>
</div>

<font color="#000000" size="1">
<%
rs.MoveNext
LOOP
RS.Close
conn.Close
Set conn = nothing
Set SQLstmt = nothing
%>

Synes godt om

Jman Praktikant

23. januar 2002 - 15:18 #8

intet af det fik jeg til at virke

Synes godt om

netsrac Praktikant

23. januar 2002 - 15:22 #9

karl ejner, sidste gang du får hjælp af mig din spade, utaknemlige skiderik, pisser mig af for vildt.

Synes godt om

Jman Praktikant

23. januar 2002 - 16:31 #10

ro på -
du fik da point for det andet spørgsmål, jeg oprettede samtidig, og som jeg heller ikke kunne få til at virke..
Jeg er absolut ikke utaknemmelig! Jeg giver blot point når jeg har fået et svar der kan hjælpe mig på vej - det ku' disse ikke.

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
ASP classic kopiere database fil på server Af bsn i ASP	7	31/10/202610:20	01/11/202620:28
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS