Notifikationer

Markér alle som læst Log ud

asker Nybegynder

01. august 2001 - 12:33 Der er 11 kommentarer og
1 løsning

Felter i databasen

Hej jeg har nedenstående kode...

Men jeg har et felt til som hedder \"slettes\" og når den er sand så skal dataerne ikke vises....

<%
if rs1(\"solgt\") = true and rs1(\"nysag\") = false then
%>
<td bgcolor=\"#CFDDDE\" width=\"180\"></a><img src=\"../images/so.gif\" align=\"right\"><a href=\"de.asp?Sagsnr=<%=rs1(\"Sagsnr\")%>\"><%=rs1(\"Beliggenhed\")%></td>
<%
elseif rs1(\"solgt\") = false and rs1(\"nysag\") = true then
%>
<td bgcolor=\"#CFDDDE\" width=\"180\"></a><img src=\"../images/ny.gif\" align=\"right\"><a href=\"de.asp?Sagsnr=<%=rs1(\"Sagsnr\")%>\"><%=rs1(\"Beliggenhed\")%></td>
<%
else

Synes godt om

oswald Nybegynder

01. august 2001 - 12:35 #1

<%
IF RS1(\"SLETTES\")= false THEN

if rs1(\"solgt\") = true and rs1(\"nysag\") = false then
%>
<td bgcolor=\"#CFDDDE\" width=\"180\"></a><img src=\"../images/so.gif\" align=\"right\"><a href=\"de.asp?Sagsnr=<%=rs1(\"Sagsnr\")%>\"><%=rs1(\"Beliggenhed\")%></td>
<%
elseif rs1(\"solgt\") = false and rs1(\"nysag\") = true then
%>
<td bgcolor=\"#CFDDDE\" width=\"180\"></a><img src=\"../images/ny.gif\" align=\"right\"><a href=\"de.asp?Sagsnr=<%=rs1(\"Sagsnr\")%>\"><%=rs1(\"Beliggenhed\")%></td>

END IF
<%

Synes godt om

asker Nybegynder

01. august 2001 - 12:48 #2

de data der ikke skal viset fik jeg hvist ikke uddybet så her er lidt mere kode

<%
strSQL1 = \"SELECT * FROM kunde where (kommune = \'\"& rs(\"kommune\")&\"\') ORDER BY Kontant DESC\"

set rs1 = conn.execute(strSQL1)
do until rs1.eof

%>

<tr>

<%
if rs1(\"solgt\") = true and rs1(\"nysag\") = false then
%>
<td bgcolor=\"#CFDDDE\" width=\"180\"></a><img src=\"../images/so.gif\" align=\"right\"><a href=\"de.asp?Sagsnr=<%=rs1(\"Sagsnr\")%>\"><%=rs1(\"Beliggenhed\")%></td>
<%
elseif rs1(\"solgt\") = false and rs1(\"nysag\") = true then
%>
<td bgcolor=\"#CFDDDE\" width=\"180\"></a><img src=\"../images/ny.gif\" align=\"right\"><a href=\"de.asp?Sagsnr=<%=rs1(\"Sagsnr\")%>\"><%=rs1(\"Beliggenhed\")%></td>
<%
else
%>
<td bgcolor=\"#CFDDDE\" width=\"180\"><a href=\"de.asp?Sagsnr=<%=rs1(\"Sagsnr\")%>\"><%=rs1(\"Beliggenhed\")%></a></td>
<%
end if
%>

<td bgcolor=\"#CFDDDE\" align=\"center\" width=\"64\"><%=rs1(\"Kontant\")%></td>
<td bgcolor=\"#CFDDDE\" align=\"center\" width=\"53\"><%=rs1(\"Brutto\")%></td>
<td bgcolor=\"#CFDDDE\" align=\"center\" width=\"48\"><%=rs1(\"Netto\")%></td>
<td bgcolor=\"#CFDDDE\" align=\"center\" width=\"50\"><%=rs1(\"Udbet\")%></td>
<td bgcolor=\"#CFDDDE\" align=\"center\" width=\"39\"><%=rs1(\"Vær\")%></td>
<td bgcolor=\"#CFDDDE\" align=\"center\" width=\"42\"><%=rs1(\"Kvm\")%></td>
<td bgcolor=\"#CFDDDE\" align=\"center\" width=\"51\"><%=rs1(\"Grund\")%></td>
<td bgcolor=\"#CFDDDE\" align=\"center\" width=\"55\"><%=rs1(\"Sagsnr\")%></td>
<%
rs1.movenext
loop
rs.movenext
loop
%>

</table>

</body>
<% conn.close
set conn = nothing %>

Og det er selfølgelig de poster hvor \"slettes\" er sand der ike skal vises...

Synes godt om

oswald Nybegynder

01. august 2001 - 13:06 #3

Jamen skal de så ikke se ud som følgende.

<%
strSQL1 = \"SELECT * FROM kunde where (kommune = \'\"& rs(\"kommune\")&\"\') ORDER BY Kontant DESC\"

set rs1 = conn.execute(strSQL1)
do until rs1.eof

%>

<tr>

<%

\'OSWALD BEGIN
IF RS1(\"SLETTES\")= FALSE THEN
\'OSWALD END

if rs1(\"solgt\") = true and rs1(\"nysag\") = false then
%>
<td bgcolor=\"#CFDDDE\" width=\"180\"></a><img src=\"../images/so.gif\" align=\"right\"><a href=\"de.asp?Sagsnr=<%=rs1(\"Sagsnr\")%>\"><%=rs1(\"Beliggenhed\")%></td>
<%
elseif rs1(\"solgt\") = false and rs1(\"nysag\") = true then
%>
<td bgcolor=\"#CFDDDE\" width=\"180\"></a><img src=\"../images/ny.gif\" align=\"right\"><a href=\"de.asp?Sagsnr=<%=rs1(\"Sagsnr\")%>\"><%=rs1(\"Beliggenhed\")%></td>
<%
else
%>
<td bgcolor=\"#CFDDDE\" width=\"180\"><a href=\"de.asp?Sagsnr=<%=rs1(\"Sagsnr\")%>\"><%=rs1(\"Beliggenhed\")%></a></td>
<%
end if
%>

<td bgcolor=\"#CFDDDE\" align=\"center\" width=\"64\"><%=rs1(\"Kontant\")%></td>
<td bgcolor=\"#CFDDDE\" align=\"center\" width=\"53\"><%=rs1(\"Brutto\")%></td>
<td bgcolor=\"#CFDDDE\" align=\"center\" width=\"48\"><%=rs1(\"Netto\")%></td>
<td bgcolor=\"#CFDDDE\" align=\"center\" width=\"50\"><%=rs1(\"Udbet\")%></td>
<td bgcolor=\"#CFDDDE\" align=\"center\" width=\"39\"><%=rs1(\"Vær\")%></td>
<td bgcolor=\"#CFDDDE\" align=\"center\" width=\"42\"><%=rs1(\"Kvm\")%></td>
<td bgcolor=\"#CFDDDE\" align=\"center\" width=\"51\"><%=rs1(\"Grund\")%></td>
<td bgcolor=\"#CFDDDE\" align=\"center\" width=\"55\"><%=rs1(\"Sagsnr\")%></td>
<%

\'OSWALD BEGIN
END IF
\'OSWALD END

rs1.movenext
loop
rs.movenext
loop
%>

</table>

</body>
<% conn.close
set conn = nothing %>

Synes godt om

oswald Nybegynder

01. august 2001 - 13:08 #4

Du mangler forøvrigt en \'<tr>\' og en \'</tr>\' for hver loop i rs1.

Synes godt om

asker Nybegynder

01. august 2001 - 17:52 #5

Når ja selfølgelig
Men hvad mener du med at jeg mangler en \'<tr>\' og en \'</tr>\' for hver loop i rs1.
Prøv at skriv det...

Kan man sætte IF RS1(\"SLETTES\")= FALSE THEN lidt tidligere for nu skrives overskriften ud selv om der ingen poster (slettes) se evt www.vipiil.dk/databaser/re.asp

her er hele min kode.

<%
session.LCID = 1030
response.buffer = true

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"Ejendomme.mdb\")
%>
<html>

<head>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1252\">
<title>vipiil - bolig liste</title>
</head>

<body>

<%
\'først vælger vi kommunerne og grupperer dem
strSQL = \"SELECT Kunde.Kommune FROM Kunde GROUP BY Kunde.Kommune ORDER BY Kunde.Kommune\"
set rs = conn.execute(strSQL)

\'dernest skriver jeg alle posterne ud til de pågældende kommuner
%>
<table width=\"630\" border=\"0\" align=\"left\">
<% do until rs.eof %>
<tr>
<td width=\"250\" valign=\"middle\" colspan=\"2\"> <% response.write \"\"& rs(\"kommune\")&\"\" %>

</td>
<tr>
<td bgcolor=\"#0066FF\" width=\"180\">Beliggenhed</td>
<td bgcolor=\"#0066FF\" width=\"64\">Kontant</td>
<td bgcolor=\"#0066FF\" width=\"53\">Brutto</td>
<td bgcolor=\"#0066FF\" width=\"48\">Netto</td>
<td bgcolor=\"#0066FF\" width=\"50\">Udbet</td>
<td bgcolor=\"#0066FF\" width=\"39\">Vær</td>
<td bgcolor=\"#0066FF\" width=\"42\">Kvm</td>
<td bgcolor=\"#0066FF\" width=\"51\">Grund</td>
<td bgcolor=\"#0066FF\" width=\"55\">Sagsnr</td>
</tr>

<%
strSQL1 = \"SELECT * FROM kunde where (kommune = \'\"& rs(\"kommune\")&\"\') ORDER BY Kontant DESC\"

set rs1 = conn.execute(strSQL1)
do until rs1.eof

%>

<tr>

<%

\'Her tages alle felterne fra slettet sogt og nysag
if rs1(\"SLETTES\")= false then
if rs1(\"solgt\") = true and rs1(\"nysag\") = false then
%>
<td bgcolor=\"#CFDDDE\" width=\"180\"></a><img src=\"../images/so.gif\" align=\"right\"><a href=\"de.asp?Sagsnr=<%=rs1(\"Sagsnr\")%>\"><%=rs1(\"Beliggenhed\")%></td>
<%
elseif rs1(\"solgt\") = false and rs1(\"nysag\") = true then
%>
<td bgcolor=\"#CFDDDE\" width=\"180\"></a><img src=\"../images/ny.gif\" align=\"right\"><a href=\"de.asp?Sagsnr=<%=rs1(\"Sagsnr\")%>\"><%=rs1(\"Beliggenhed\")%></td>
<%
else
%>
<td bgcolor=\"#CFDDDE\" width=\"180\"><a href=\"de.asp?Sagsnr=<%=rs1(\"Sagsnr\")%>\"><%=rs1(\"Beliggenhed\")%></a></td>
<%
end if
%>

<td bgcolor=\"#CFDDDE\" align=\"center\" width=\"64\"><%=rs1(\"Kontant\")%></td>
<td bgcolor=\"#CFDDDE\" align=\"center\" width=\"53\"><%=rs1(\"Brutto\")%></td>
<td bgcolor=\"#CFDDDE\" align=\"center\" width=\"48\"><%=rs1(\"Netto\")%></td>
<td bgcolor=\"#CFDDDE\" align=\"center\" width=\"50\"><%=rs1(\"Udbet\")%></td>
<td bgcolor=\"#CFDDDE\" align=\"center\" width=\"39\"><%=rs1(\"Vær\")%></td>
<td bgcolor=\"#CFDDDE\" align=\"center\" width=\"42\"><%=rs1(\"Kvm\")%></td>
<td bgcolor=\"#CFDDDE\" align=\"center\" width=\"51\"><%=rs1(\"Grund\")%></td>
<td bgcolor=\"#CFDDDE\" align=\"center\" width=\"55\"><%=rs1(\"Sagsnr\")%></td>

<%

\'Her sluttes
End If

rs1.movenext
loop
rs.movenext
loop
%>

</table>

</body>
<% conn.close
set conn = nothing %>

Synes godt om

oswald Nybegynder

02. august 2001 - 15:20 #6

Jeg så ikke at du havde skrevet et indlæg. Sorry, men jeg sorterer med hård hånd. ;)

Det ville være en ide at lave din SQL om så du overhovedet ikke får de slettede poster med, du skal ændre din udtræksblok til.

strSQL1 = \"SELECT * FROM kunde where (kommune = \'\"& rs(\"kommune\")&\"\') AND SLETTES = FALSE ORDER BY Kontant DESC\"
set rs1 = conn.execute(strSQL1)
do until rs1.eof

og flyt den derefter op under
<% do until rs.eof %>

Synes godt om

asker Nybegynder

02. august 2001 - 15:55 #7

Det hvar meget bedre

Kan du også hjælpe mig med at den ikke skriver kommuner ud

Skal evt have sat AND SLETTES = FALSE ind i den her:

strSQL = \"SELECT Kunde.Kommune FROM Kunde GROUP BY Kunde.Kommune ORDER BY Kunde.Kommune\"

Synes godt om

oswald Nybegynder

02. august 2001 - 16:04 #8

Ikke helt forstået.
Du vil undgå at udskrive kommuner hvor der ikke er nogle kunder?

Synes godt om

asker Nybegynder

02. august 2001 - 16:39 #9

For at forstå det er det nemmest at se www.vipiil.dk/Databaser/re.asp

som du kan se er der nogle kommuner hvor der ikke er mogen poster >> det er for di de står som slettet

Men så skal kommunerne heller ikke værre der.....

Synes godt om

oswald Nybegynder

03. august 2001 - 14:36 #10

Den kode som jeg har foreslået burde ikke udskrive kommuner uden indhold. Prøv at send den rettede kode.

Synes godt om

asker Nybegynder

03. august 2001 - 16:23 #11

<%
session.LCID = 1030
response.buffer = true

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"Ejendomme.mdb\")
%>
<html>

<head>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1252\">
<title>vipiil - bolig liste</title>
</head>

<body>

<%
\'først vælger vi kommunerne og grupperer dem
strSQL = \"SELECT Kunde.Kommune FROM Kunde GROUP BY Kunde.Kommune ORDER BY Kunde.Kommune\"
set rs = conn.execute(strSQL)

\'dernest skriver jeg alle posterne ud til de pågældende kommuner
%>
<table width=\"630\" border=\"0\" align=\"left\">
<% do until rs.eof %>

<tr>
<td width=\"250\" valign=\"middle\" colspan=\"2\"> <% response.write \"\"& rs(\"kommune\")&\"\" %>

</td>
<tr>
<td bgcolor=\"#0066FF\" width=\"180\">Beliggenhed</td>
<td bgcolor=\"#0066FF\" width=\"64\">Kontant</td>
<td bgcolor=\"#0066FF\" width=\"53\">Brutto</td>
<td bgcolor=\"#0066FF\" width=\"48\">Netto</td>
<td bgcolor=\"#0066FF\" width=\"50\">Udbet</td>
<td bgcolor=\"#0066FF\" width=\"39\">Vær</td>
<td bgcolor=\"#0066FF\" width=\"42\">Kvm</td>
<td bgcolor=\"#0066FF\" width=\"51\">Grund</td>
<td bgcolor=\"#0066FF\" width=\"55\">Sagsnr</td>
</tr>

<%
strSQL1 = \"SELECT * FROM kunde where (kommune = \'\"& rs(\"kommune\")&\"\') AND SLETTES = FALSE ORDER BY Kontant DESC\"

set rs1 = conn.execute(strSQL1)
do until rs1.eof

%>

<tr>

<%

if rs1(\"nypris\") = true and rs1(\"solgt\") = false then
%>
<td bgcolor=\"#CFDDDE\" width=\"180\"></a><img src=\"../images/nyp.gif\" align=\"right\"><a href=\"de.asp?Sagsnr=<%=rs1(\"Sagsnr\")%>\"><%=rs1(\"Beliggenhed\")%></td>
<%
elseif rs1(\"solgt\") = true and rs1(\"nysag\") = false then
%>
<td bgcolor=\"#CFDDDE\" width=\"180\"></a><img src=\"../images/so.gif\" align=\"right\"><a href=\"de.asp?Sagsnr=<%=rs1(\"Sagsnr\")%>\"><%=rs1(\"Beliggenhed\")%></td>
<%
elseif rs1(\"solgt\") = false and rs1(\"nysag\") = true then
%>
<td bgcolor=\"#CFDDDE\" width=\"180\"></a><img src=\"../images/ny.gif\" align=\"right\"><a href=\"de.asp?Sagsnr=<%=rs1(\"Sagsnr\")%>\"><%=rs1(\"Beliggenhed\")%></td>
<%
else
%>
<td bgcolor=\"#CFDDDE\" width=\"180\"><a href=\"de.asp?Sagsnr=<%=rs1(\"Sagsnr\")%>\"><%=rs1(\"Beliggenhed\")%></a></td>
<%
end if
%>

<td bgcolor=\"#CFDDDE\" align=\"center\" width=\"64\"><%=rs1(\"Kontant\")%></td>
<td bgcolor=\"#CFDDDE\" align=\"center\" width=\"53\"><%=rs1(\"Brutto\")%></td>
<td bgcolor=\"#CFDDDE\" align=\"center\" width=\"48\"><%=rs1(\"Netto\")%></td>
<td bgcolor=\"#CFDDDE\" align=\"center\" width=\"50\"><%=rs1(\"Udbet\")%></td>
<td bgcolor=\"#CFDDDE\" align=\"center\" width=\"39\"><%=rs1(\"Vær\")%></td>
<td bgcolor=\"#CFDDDE\" align=\"center\" width=\"42\"><%=rs1(\"Kvm\")%></td>
<td bgcolor=\"#CFDDDE\" align=\"center\" width=\"51\"><%=rs1(\"Grund\")%></td>
<td bgcolor=\"#CFDDDE\" align=\"center\" width=\"55\"><%=rs1(\"Sagsnr\")%></td>

<%

rs1.movenext
loop
rs.movenext
loop
%>

</table>

</body>
<% conn.close
set conn = nothing %>

Synes godt om

asker Nybegynder

03. august 2001 - 16:32 #12

Jeg har løst det med

<%
\'først vælger vi kommunerne og grupperer dem
strSQL = \"SELECT Kunde.Kommune FROM Kunde where SLETTES = FALSE GROUP BY Kunde.Kommune ORDER BY Kunde.Kommune\"
set rs = conn.execute(strSQL)

Mange tak for hjælpen.

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