Notifikationer

Markér alle som læst Log ud

Slettet bruger

05. december 2006 - 18:03 Der er 5 kommentarer og
1 løsning

skifte baggrunds farve ved hver anden post

hejsa allesammen ..

hvordan gøres dette? nu har jeg bare hvis baggrud på alle mine poster, men ville gerne ha en lys grå på hver anden..

og kan det gøres på de poster som allerede er postet eller skal jeg til at skrive det hele igen? :-/

Synes godt om

lund_dk Praktikant

05. december 2006 - 18:19 #1

counter=0
Do While Not rs.EOF
counter = counter + 1

if counter = 2 then
counter = 0
end if

if counter = 0 then
color= "#FFFFFF"
else
color= "#EFEFEF"
end if

Synes godt om

lund_dk Praktikant

05. december 2006 - 18:19 #2

Synes godt om

Slettet bruger

05. december 2006 - 18:32 #3

kan du forklare den lidt?'
og kan det gøres på de poster som alleree er indtastet?

Synes godt om

lund_dk Praktikant

05. december 2006 - 18:37 #4

Prøv at kom med din kode, så kan jeg sætte det ind for dig.

Synes godt om

Slettet bruger

05. december 2006 - 19:02 #5

liste.asp:

<html>
<head>
<title>Personer</title>
<link rel="stylesheet" href="styke.css" type="text/css">
</head>
<body>
<a href="liste.asp">Se listen</a> - <a href="soeg.asp">Søg</a> - <a href="opret.asp">Opret person</a>
<hr height="1px" color="Black">
<b>Liste med personer i Databasen</b><br>

<div id="liste_strej">
</div>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("tlf.mdb")
Conn.Open DSN

strSQL = "Select * From personer Order By Navn"
Set rs = Conn.Execute(strSQL)

Do

strNavn = rs("Navn")

strLink = "<a href='person.asp?id=" & rs("Id") & "'>" & strNavn & "</a>"
strSlet = "<a href='slet.asp?id=" & rs("Id") & "'>Slet</a>"
Response.Write "<div id='liste_nstrej'>" & strLink & " - " & strSlet & "</div>"

rs.MoveNext
Loop While Not rs.EOF

Conn.Close
Set Conn = Nothing
%>
<hr height=" 1px" Color="Black">

</body>
</html>
_________________________
soeg.asp

<html>
<head>
<title>Søg!</title>
<link rel="stylesheet" href="styke.css" type="text/css">
</head>
<body>
<a href="liste.asp">Se listen</a> - <a href="soeg.asp">Søg</a> - <a href="opret.asp">Opret person</a>
<hr height="1px" color="black">
<form action="soeg.asp" method="post">
<input type="text" name="soeg" id="form"><br>
<input type="submit" name="submit" value="Søg" id="form">
</form>

<%
If Request.Form("soeg") <> "" then
Set db = Server.CreateObject("ADODB.Connection")
DBsti = "DBQ=" & Server.MapPath("tlf.mdb")
DB.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBsti
SQL = "Select * from personer where navn like '%" & Request.Form("soeg") & "%'"
Set rs = db.execute(SQL)
If not rs.EOF then
Response.Write "<b>Personer som matchede din søgening.</b><br>"
Response.Write "<div id='liste_strej'></div>"
Do until rs.EOF

strNavn = rs("Navn")
strLink = "<a href='person.asp?id=" & rs("Id") & "'>" & strNavn & "</a>"
strSlet = "<a href='slet.asp?id=" & rs("Id") & "'>Slet</a>"
'udskriver resultatet
Response.Write "<div id='liste_nstrej'>" & strLink & " - " & strSlet & "</div>"
rs.MoveNext
Loop
Else

Response.Write "Der var ingen match på din indtastning."
End If

End If

%>
<hr height="1px" color="black">
</body>
</html>
____________________

Synes godt om

madeindk Nybegynder

06. december 2006 - 00:07 #6

Liste.asp:

<html>
<head>
<title>Personer</title>
<link rel="stylesheet" href="styke.css" type="text/css">
</head>
<body>
<a href="liste.asp">Se listen</a> - <a href="soeg.asp">Søg</a> - <a href="opret.asp">Opret person</a>
<hr height="1px" color="Black">
<b>Liste med personer i Databasen</b><br>

<div id="liste_strej">
</div>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("tlf.mdb")
Conn.Open DSN

strSQL = "Select * From personer Order By Navn"
Set rs = Conn.Execute(strSQL)

Do While not rs.eof

If strColor = "#FFFFFF" Then
strColor = "#DADADA"
Else
strColor = "#FFFFFF"
End If

strNavn = rs("Navn")
strLink = "<a href='person.asp?id=" & rs("Id") & "'>" & strNavn & "</a>"
strSlet = "<a href='slet.asp?id=" & rs("Id") & "'>Slet</a>"

Response.Write "<div id='liste_nstrej' style='background-color:" & strColor & "'>" & strLink & " - " & strSlet & "</div>"

rs.MoveNext
Loop

Conn.Close
Set Conn = Nothing
%>

<hr height=" 1px" Color="Black">

</body>
</html>

Soeg.asp

<html>
<head>
<title>Søg!</title>
<link rel="stylesheet" href="styke.css" type="text/css">
</head>

<body>

<a href="liste.asp">Se listen</a> - <a href="soeg.asp">Søg</a> - <a href="opret.asp">Opret person</a>
<hr height="1px" color="black">
<form action="soeg.asp" method="post">
<input type="text" name="soeg" id="form"><br>
<input type="submit" name="submit" value="Søg" id="form">
</form>

<%
If Request.Form("soeg") <> "" then

Set db = Server.CreateObject("ADODB.Connection")
DBsti = "DBQ=" & Server.MapPath("tlf.mdb")
DB.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBsti
SQL = "Select * from personer where navn like '%" & Request.Form("soeg") & "%'"
Set rs = db.execute(SQL)

If not rs.EOF then

Response.Write "<b>Personer som matchede din søgening.</b><br>"
Response.Write "<div id='liste_strej'></div>"

Do until rs.EOF

If strColor = "#FFFFFF" Then
strColor = "#DADADA"
Else
strColor = "#FFFFFF"
End If

strNavn = rs("Navn")
strLink = "<a href='person.asp?id=" & rs("Id") & "'>" & strNavn & "</a>"
strSlet = "<a href='slet.asp?id=" & rs("Id") & "'>Slet</a>"

' udskriver resultatet
Response.Write "<div id='liste_nstrej'>" & strLink & " - " & strSlet & "</div>"

rs.MoveNext
Loop

Else
Response.Write "Der var ingen match på din indtastning."
End If

End If
%>

<hr height="1px" color="black">

</body>
</html>

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
Persits.Upload Af bsn i ASP	8	17/09/202611:37	19/09/202610:39
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
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51

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