Søg
Avatar billede cotus Nybegynder
03. maj 2002 - 22:20 Der er 32 kommentarer og
1 løsning

Udskrive fra database...

Jeg ved godt, hvordan jeg udskriver en post i en database, f.eks.:

<tr>
<td><% Response.write rs("OVERSKRIFT") %></td>
</tr>
rs.MoveNext
Loop while not rs.EOF
Conn.Close
Set Conn = Nothing

Men hvis jeg gerne vil have det sådan, at én tabel er grå, en anden er hvid, en tredje er grå, en fjerde er hvid, hvordan gør jeg så? Ligesom på http://www.biggel.com/beta, under nyeste indlæg!

?????

/cotus
Avatar billede -master-d- Nybegynder
03. maj 2002 - 22:26 #1
I din respose.write linie laver du bare lidt design :

<%
Response.write "<td bgcolor=#FFFFFF rs("OVERSKRIFT")</td>" 
%>

En anden ser sådan her ud :
<%
Response.write "<td bgcolor=#CCCC99> rs("Nogetandet")</td>"
%>
Avatar billede cotus Nybegynder
03. maj 2002 - 22:29 #2
Jamen, det er den samme kolonne jeg vil have skrevet ud! Jeg vil have skrevet rs("OVERSKRIFT") ud i alle cellerne, men med skiftende farve! ?????

/cotus
Avatar billede n!nja Nybegynder
03. maj 2002 - 22:34 #3
Her får du en løkke til at klare arbejdet...
-------------------------------------------------

<%
WHILE NOT RS.EOF
%>

<%
if session("color") = "#FFFFFF" then
session("color") = "#000000"
else if session("color") = "#000000" then
session("color") = "#FFFFFF"
end if
end if
%>

<TABLE WIDTH="100%" BORDER="0" BGCOLOR="<%=session("color")%>">
<TR>
<TD WIDTH="60%"><% =RS("test")%></TD>
<TD WIDTH="30%"><%=RS("test1")%></TD>
<TD></TD>
</TR>
</TABLE>

<%
RS.MoveNext
WEND
%>

-----------------------
N!NJA
Avatar billede n!nja Nybegynder
03. maj 2002 - 22:37 #4
Ups... glemte at oprette session("color")... 
-------------------------------------
session("color") = "#FFFFFF"
Avatar billede n!nja Nybegynder
03. maj 2002 - 22:38 #5
Skal bare indsættes over starten af løkken...
Avatar billede cotus Nybegynder
03. maj 2002 - 22:40 #6
<HTML>
<HEAD>
<TITLE> Guestbook </TITLE>
</HEAD>

<BODY>
<%
Set conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("board.mdb")
Conn.Open DSN
strSQL = "Select * from nyheder Order by ID desc"
Set rs = Conn.Execute(strSQL)
Do

session("color") = "#FFFFFF"

if session("color") = "#FFFFFF" then
session("color") = "#000000"
else if session("color") = "#000000" then
session("color") = "#FFFFFF"
end if
end if
%>

<TABLE WIDTH="100%" BORDER="0" BGCOLOR="<%=session("color")%>">
<TR>
<TD WIDTH="60%"><% =RS("test")%></TD>
<TD WIDTH="30%"><%=RS("test1")%></TD>
<TD></TD>
</TR>
</TABLE>

<%
RS.MoveNext
WEND

rs.MoveNext
Loop while not rs.EOF
Conn.Close
Set Conn = Nothing
%>
<table>
<tr>
<td></td>
</tr>
<tr>
<td></td>
</tr>
</table>
</BODY>
</HTML>
Avatar billede cotus Nybegynder
03. maj 2002 - 22:41 #7
Får denne fejl:

Microsoft VBScript compilation error '800a0400'

Expected statement

/jacob_test/tagwall/default.asp, line 36

WEND
^
Avatar billede n!nja Nybegynder
03. maj 2002 - 22:45 #8
Du mangler

<%
WHILE NOT RS.EOF
%>

Lige over "if session("color") = "#FFFFFF" then"

tror jeg...
Avatar billede n!nja Nybegynder
03. maj 2002 - 22:47 #9
Istedet for "test" og "test1" skal du jo angive dine egne rs("")
Avatar billede cotus Nybegynder
03. maj 2002 - 22:48 #10
Det skal jo være DEN SAMME RS!
Ikke to forskellige!

/cotus
Avatar billede n!nja Nybegynder
03. maj 2002 - 22:49 #11
Jeg ville mene at det skulles opstilles sådan... bare med dine egne recordsets istedet for test og test1.

Så kan du jo bare ændre på tabellen at efter hvad det er du skal udskrive...

-----------------------------------
session("color") = "#FFFFFF"

<%
WHILE NOT RS.EOF
%>

<%
if session("color") = "#FFFFFF" then
session("color") = "#000000"
else if session("color") = "#000000" then
session("color") = "#FFFFFF"
end if
end if
%>

<TABLE WIDTH="100%" BORDER="0" BGCOLOR="<%=session("color")%>">
<TR>
<TD WIDTH="60%"><% =RS("test")%></TD>
<TD WIDTH="30%"><%=RS("test1")%></TD>
<TD></TD>
</TR>
</TABLE>

<%
RS.MoveNext
WEND
%>
Avatar billede n!nja Nybegynder
03. maj 2002 - 22:51 #12
Hvad med sådan her så da...?
------------------------------

<TABLE WIDTH="100%" BORDER="0" BGCOLOR="<%=session("color")%>">
<TR>
<TD><% =RS("overskrift")%></TD>
</TR>
</TABLE>
Avatar billede -master-d- Nybegynder
03. maj 2002 - 22:53 #13
Så bare sådan her da hvis du forstår :

<%
Response.write "<td bgcolor=#FFFFFF> rs("OVERSKRIFT")</td>" 

Response.Write "<td bgcolor=#CCCC99> rs("OVERSKRIFT")</td>"
%>
Avatar billede cotus Nybegynder
03. maj 2002 - 22:55 #14
Nu må du lige skære det ud i pap... jeg har den her kode:

<table width="100%" cellpadding="0" cellspacing="0">
<tr valign="top">
    <td height="10" class="DebatTitles" width="250"><strong>Emne</strong></td>
    <td height="10" class="DebatTitles"><strong>Svar</strong></td>
    <td height="10" class="DebatTitles"><strong>Oprettet</strong></td>
    <td height="10" class="DebatTitles"><strong>Bruger</strong></td>
</tr>
<tr valign="top">
    <td valign="middle" height="25" class="Debat" width="250">Biggel.com</td>
    <td valign="middle" height="25" class="Debat">3</td>
    <td valign="middle" height="25" class="Debat">12:32:43 Igår</td>
    <td valign="middle" height="25" class="Debat">Neo</td>
</tr>
<tr valign="top">
    <td bgcolor="#f8f8f8" valign="middle" height="25" class="Debat" width="250">DonaldDisten.dk Søger Agenter!</td>
    <td bgcolor="#f8f8f8" valign="middle" height="25" class="Debat">0</td>
    <td bgcolor="#f8f8f8" valign="middle" height="25" class="Debat">12:32:43 Igår</td>
    <td bgcolor="#f8f8f8" valign="middle" height="25" class="Debat">Maniac</td>
</tr>
<tr valign="top">
    <td valign="middle" height="25" class="Debat" width="250">HTML det samme som Xml?</td>
    <td valign="middle" height="25" class="Debat">9</td>
    <td valign="middle" height="25" class="Debat">12:32:43 Igår</td>
    <td valign="middle" height="25" class="Debat">Oscar</td>
</tr>
<tr valign="top">
    <td bgcolor="#f8f8f8" valign="middle" height="25" class="Debat" width="250">Flash MX Hvor?</td>
    <td bgcolor="#f8f8f8" valign="middle" height="25" class="Debat">4</td>
    <td bgcolor="#f8f8f8" valign="middle" height="25" class="Debat">12:32:43 Igår</td>
    <td bgcolor="#f8f8f8" valign="middle" height="25" class="Debat">MichaelB</td>
</tr>
<tr valign="top">
    <td valign="middle" height="25" class="Debat" width="250">Mennesker på nettet FOR GROVE</td>
    <td valign="middle" height="25" class="Debat">12</td>
    <td valign="middle" height="25" class="Debat">12:32:43 Igår</td>
    <td valign="middle" height="25" class="Debat">Iben</td>
</tr>
<tr valign="top">
    <td bgcolor="#f8f8f8" valign="middle" height="25" class="Debat" width="250">CS Turnering</td>
    <td bgcolor="#f8f8f8" valign="middle" height="25" class="Debat">1</td>
    <td bgcolor="#f8f8f8" valign="middle" height="25" class="Debat">12:32:43 Igår</td>
    <td bgcolor="#f8f8f8" valign="middle" height="25" class="Debat">CSMaster</td>
</tr>
<tr valign="top">
    <td valign="middle" height="25" class="Debat" width="250">Regler!</td>
    <td valign="middle" height="25" class="Debat">7</td>
    <td valign="middle" height="25" class="Debat">12:32:43 Igår</td>
    <td valign="middle" height="25" class="Debat">Neo</td>
</tr>
<tr valign="top">
    <td bgcolor="#f8f8f8" valign="middle" height="25" class="Debat" width="250">en Idé</td>
    <td bgcolor="#f8f8f8" valign="middle" height="25" class="Debat">0</td>
    <td bgcolor="#f8f8f8" valign="middle" height="25" class="Debat">12:32:43 Igår</td>
    <td bgcolor="#f8f8f8" valign="middle" height="25" class="Debat">Maniac</td>
</tr>
<tr valign="top">
    <td valign="middle" height="25" class="Debat" width="250">ASP Querystring?</td>
    <td valign="middle" height="25" class="Debat">3</td>
    <td valign="middle" height="25" class="Debat">12:32:43 Igår</td>
    <td valign="middle" height="25" class="Debat">Lars</td>
</tr>
<tr valign="top">
    <td bgcolor="#f8f8f8" valign="middle" height="25" class="Debat" width="250">PHP...?</td>
    <td bgcolor="#f8f8f8" valign="middle" height="25" class="Debat">12</td>
    <td bgcolor="#f8f8f8" valign="middle" height="25" class="Debat">12:32:43 Igår</td>
    <td bgcolor="#f8f8f8" valign="middle" height="25" class="Debat">Tanta</td>
</tr>


</table>

Så vil jeg der hvor der f.eks. står "Mennesker på nettet FOR GROVE" skal være udskrevet fra tabellen board, i databasen board.mdb, med rs("OVERSKRIFT")... Der hvor der står "12" skal ("DATO") udskrives, der hvor der står "12:32:43 Igår" Skal ("DATO") udskrives og der hvor der står "Iben" skal ("NAVN") udskrives! Er du med nu?

/cotus
Avatar billede n!nja Nybegynder
03. maj 2002 - 22:55 #15
Hvad sker der hvis du stiller det præcist sådan her op...?
---------------------------------------------------------------

session("color") = "#FFFFFF"

<%
WHILE NOT RS.EOF
%>

<%
if session("color") = "#FFFFFF" then
session("color") = "#000000"
else if session("color") = "#000000" then
session("color") = "#FFFFFF"
end if
end if
%>

<TABLE WIDTH="100%" BORDER="0" BGCOLOR="<%=session("color")%>">
<TR>
<TD><% =RS("overskrift")%></TD>
</TR>
</TABLE>

<%
RS.MoveNext
WEND
%>
Avatar billede cotus Nybegynder
03. maj 2002 - 22:57 #16
Microsoft VBScript compilation error '800a0400'

Expected statement

/jacob_test/tagwall/default.asp, line 20

<%
^
Avatar billede eagleeye Praktikant
03. maj 2002 - 22:59 #17
Der skal ikke være mellemrum mellem <% og =
<TD><% =RS("overskrift")%></TD>

Sådan her
<TD><%=RS("overskrift")%></TD>
Avatar billede cotus Nybegynder
03. maj 2002 - 23:02 #18
Microsoft VBScript compilation error '800a0400'

Expected statement

/jacob_test/tagwall/default.asp, line 20

<%
^


Linie 20: WHILE NOT RS.EOF
Avatar billede n!nja Nybegynder
03. maj 2002 - 23:03 #19
Endnu et bud :-)
------------------
<%
WHILE NOT RS.EOF
%>

<%
if session("color") = "#FFFFFF" then
session("color") = "#000000"
else if session("color") = "#000000" then
session("color") = "#FFFFFF"
end if
end if
%>

<TABLE WIDTH="100%" BORDER="0" BGCOLOR="<%=session("color")%>">
<tr valign="top">
    <td valign="middle" height="25" class="Debat" width="250"><% rs("OVERSKRIFT") %></td>
    <td valign="middle" height="25" class="Debat"><% rs("DATO") %></td>
    <td valign="middle" height="25" class="Debat"><% rs("DATO") %></td>
    <td valign="middle" height="25" class="Debat"><% rs("NAVN") %></td>
</tr>
</TABLE>

<%
RS.MoveNext
WEND
%>
Avatar billede n!nja Nybegynder
03. maj 2002 - 23:04 #20
Husk at angive: session("color") = "#FFFFFF" over løkken...
Avatar billede eagleeye Praktikant
03. maj 2002 - 23:10 #21
du kan lave det uden session...Men en tæller den skifter farve hver anden gang.. Hvid du vil bytte rundt på fraven så kan du bare sætte colorCount = 1 til at begynde med:


<%
colorCount = 0
DO WHILE NOT RS.EOF
  if colorCount = 0 then
    farveCode = "#FFFFFF"
  else
    farveCode = "#000000"
  end if
  colorCount = (colorCount + 1) MOD 2
%>
<TABLE WIDTH="100%" BORDER="0" BGCOLOR="<%=farveCode%>">
  <tr valign="top">
  <td valign="middle" height="25" class="Debat" width="250"><%=rs("OVERSKRIFT") %></td>
  <td valign="middle" height="25" class="Debat"><%=rs("DATO")%></td>
  <td valign="middle" height="25" class="Debat"><%=rs("DATO")%></td>
  <td valign="middle" height="25" class="Debat"><%=rs("NAVN")%></td>
</tr>
</TABLE>
<%
RS.MoveNext
loop
%>
Avatar billede cotus Nybegynder
04. maj 2002 - 08:59 #22
Microsoft VBScript compilation error '800a0400'

Expected statement

/jacob_test/tagwall/default.asp, line 16

<%
^
Avatar billede cotus Nybegynder
04. maj 2002 - 09:01 #23
Kan man ikke udskrive f.eks. den øverste post ét sted, den anden et andet sted, osv.? Altså i den øverste tabel indsætte ID32, i den næsteøverste ID31, ID30, osv.? Dvs. om man kan angive hvilket nr. post, man vil have udskrevet?

/cotus
Avatar billede teamdev Novice
04. maj 2002 - 10:03 #24
Prøv med nedenstående
<%
color1="#D0D0D0"
color2="#50A050"
color=color1
Response.Write "<table cellspacing=0>"

Do while not rs.EOF
Response.Write "<tr bgcolor=" & color &">" 'sætter rækkens farve
Response.Write "<td>" & rs("Overskrift")  & "</td>"

if color=color1 then 'farveskift
color=color2
else
color=color1
end if

rs.MoveNext 
Response.Write "</tr>" 
Loop
Response.Write "</table>"
     
rs.Close
con.Close
set rs = nothing
set con = nothing
%>
Avatar billede teamdev Novice
04. maj 2002 - 10:05 #25
Hvis jeg altså har forstået det korrekt er det ikke forskellige tabeller men rækkerne du vil ha' til at skifte farve, som på http://www.biggel.com/beta/
Avatar billede cotus Nybegynder
04. maj 2002 - 10:08 #26
Ja
Avatar billede cotus Nybegynder
04. maj 2002 - 10:12 #27
Microsoft VBScript compilation error '800a03fb'

Expected 'Loop'

/jacob_test/tagwall/default.asp, line 39
Avatar billede teamdev Novice
04. maj 2002 - 10:12 #28
Så virker det svar jeg gav fint.
Avatar billede cotus Nybegynder
04. maj 2002 - 10:13 #29
Nej
Avatar billede cotus Nybegynder
04. maj 2002 - 10:13 #30
Linie 39'  set conn = nothing
Avatar billede teamdev Novice
04. maj 2002 - 10:19 #31
Her er så en komplet kode der indsætter Overskrift, Dato og navn i en tabel der skifter farve for hver linie (Hvid/Grå):

<HTML>
<HEAD>
<TITLE> Guestbook </TITLE>
</HEAD>

<BODY>
<%
Set conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("board.mdb")
Conn.Open DSN
strSQL = "Select * from nyheder Order by ID desc"
Set rs = Conn.Execute(strSQL)
color1="#FFFFFF"
color2="#CCCCCC"
color=color1
Response.Write "<table width='100%' cellspacing='0'>"

Do while not rs.EOF
Response.Write "<tr bgcolor=" & color &">" 'sætter rækkens farve

Response.Write "<td>" & rs("Overskrift")  & "</td>"
Response.Write "<td>" & rs("Dato")  & "</td>"
Response.Write "<td>" & rs("Navn")  & "</td>"

if color=color1 then 'farveskift
color=color2
else
color=color1
end if

rs.MoveNext 
Response.Write "</tr>" 
Loop
Response.Write "</table>"
     
rs.Close
conn.Close
set rs = nothing
set conn = nothing
%>
</BODY>
</HTML>
Avatar billede teamdev Novice
04. maj 2002 - 10:22 #32
Brygget sammen ud fra din egen kodestump.

Du kan nemt fjerne tilføje felter fra databasen
Avatar billede forpuleren Nybegynder
27. juni 2002 - 14:48 #33
<table border="1" cellpadding="0" cellspacing="0" width="400" bgcolor="#99CCFF" bordercolor="#000000" align="center">
<%
color1="#99CCFF"
color2="#55CCFF"
color=color1
strSQL = "Select * from download"
Set rs = Conn.Execute(strSQL)
Do



%>
<tr>
  <td width="80" bordercolorlight="<%response.write (color)%>" BGCOLOR="<%response.write (color)%>" bordercolordark="<%response.write (color)%>" valign="top" align="center">
  <font color="#FFFFFF" size="1" face="Verdana">
    <a href="<%=rs("sti")%>"><%=rs("vistlink")%></a>
  </font>
  <td bordercolorlight="<%response.write (color)%>" bordercolordark="<%response.write (color)%>" BGCOLOR="<%response.write (color)%>" valign="top" align="center">
  <font color="#FFFFFF" size="1" face="Verdana">
  <%=rs("tekst")%>
  </font>
  </td>
  </td>
</tr>
<%
if color=color1 then
color=color2
else
color=color1
end if
rs.MoveNext
loop While Not rs.EOF
Conn.Close
%>
</table>
Avatar billede 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.

Loading billede Opret Preview
Kategori
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 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
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 20:40 Access udskrift mangler del af ramme om post. Af Uvanga i Access
I går 12:36 nulstille Samsung tablet T-580 Af fase i Tablet
23/1017:19 Kender I "Dropbox" ? Af Ikke-ekspert i Andet software
23/1016:28 Indsæt en kort video i Outlook 2024 Af ErikHg i E-mail programmer
22/1019:20 Hvor kan man finde en god bærbar computer? Af Strawberry i PC
White papers
Flere white papers »