Notifikationer

Markér alle som læst Log ud

no_doubt Nybegynder

31. august 2004 - 19:00 Der er 55 kommentarer og
1 løsning

hvordan skal koden se ud?

Hvordan får jeg lavet dette
http://80.161.112.165/eksperten/

Synes godt om

oskar Nybegynder

31. august 2004 - 19:06 #1

Så vidt jeg kan se er begge sorteret efter tid/længde/antal bortset fra at en enkelt er rykket op på andenplads uden anden forklaring end at hun går i 2B. Hvis det er rigtigt kan det ikke lige lade sig gøre. Men måske har jeg misforstået det?

Synes godt om

eagleeye Praktikant

31. august 2004 - 19:08 #2

Man kan lave det med 2-3 SQL sætninger hvis du har en kolonne som kan kende forskel på pige/dreng?

Synes godt om

no_doubt Nybegynder

31. august 2004 - 19:10 #3

Ja det har jeg, koen (dreng/pige)

Synes godt om

no_doubt Nybegynder

31. august 2004 - 19:15 #4

Ja der er en masse tider men vil gerne have sorteret den bedste tid for en dreng og pige fra. Derefter skal de ikke fremgå sammen med de andre som bare skal være efter id, altså blandet efter hvordan de er indtastet

Synes godt om

no_doubt Nybegynder

31. august 2004 - 19:19 #5

Er der en der kigger på det eller gik tråden død :-/...

Synes godt om

eagleeye Praktikant

31. august 2004 - 19:19 #6

du kan hente top dreng og top pige:

SQL = "select top 1 id, Navn, Klasse, Alder, [Tid/Længde/Antal], Dato, [Godkendt af] from tabelnavn where koen='dreng' order by [Tid/Længde/Antal] desc UNION ALL select top 1 id, Navn, Klasse, Alder, [Tid/Længde/Antal], Dato, [Godkendt af] from tabelnavn where koen='pige' order by [Tid/Længde/Antal] desc"

set rs=conn.Execute(SQL)
idList=""
response.write "<table>"
do while not rs.EOF
response.Write "<tr>"
response.write "<td>" & rs("navn") & "</td>"
response.write "<td>" & rs("Klasse") & "</td>"
response.write "<td>" & rs("Alder") & "</td>"
response.write "<td>" & rs("Tid/Længde/Antal") & "</td>"
response.write "<td>" & rs("Dato") & "</td>"
response.write "<td>" & rs("Godkendt af") & "</td>"
response.write "</tr>"
idList=idList&","&rs("id")
rs.Movenext
loop
idList = mid(idList,2)
'Find resten
SQL = "select Navn, Klasse, Alder, [Tid/Længde/Antal], Dato, [Godkendt af] from tabelnavn where id not in (" & idList & ") order by [Tid/Længde/Antal] desc"
set rs=conn.Execute(SQL)
do while not rs.EOF
response.Write "<tr>"
response.write "<td>" & rs("navn") & "</td>"
response.write "<td>" & rs("Klasse") & "</td>"
response.write "<td>" & rs("Alder") & "</td>"
response.write "<td>" & rs("Tid/Længde/Antal") & "</td>"
response.write "<td>" & rs("Dato") & "</td>"
response.write "<td>" & rs("Godkendt af") & "</td>"
response.write "</tr>"
rs.Movenext
loop
response.write "</table>"

Synes godt om

no_doubt Nybegynder

31. august 2004 - 19:24 #7

Jeg kan ikke få dig til at fyre den af som denne ?

<%If request.querystring("SeRekorder") = "Ok" and request.querystring("Disciplin") <> "" then %>
<%
set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("db.mdb")
strSQL = "SELECT * FROM rekorder where diciplin = '"& request.querystring("Disciplin") &"' ORDER BY rekord desc"
set rs = Conn.Execute(strSQL)
if rs.eof then
response.write ("Der er ingen rekorder her endnu")
else
%>

<div align="center">
<center>
<table border="1" width="89%" bordercolor="#000000" cellspacing="1">
<tr>
<td width="17%" align="center">Navn</td>
<td width="16%" align="center">Klasse</td>
<td width="12%" align="center">Alder</td>
<td width="22%" align="center">Tid/Længde/Antal</td>
<td width="21%" align="center">Dato</td>
<td width="30%" align="center">Godkendt af</td>
</tr>
<%do while not rs.EOF%>
<tr>
<td width="17%" align="center">
<%=rs("navn")%></td>
<center>
<td width="16%" align="center"><%=rs("klasse")%></td>
<td width="12%" align="center"><%=rs("alder")%></td>
<td width="22%" align="center">
<%=rs("rekord")%></td>
<center>
<td width="21%" align="center"><%=rs("dato")%></td>
<td width="30%" align="center"><%=rs("godkendt_af")%></td>
</tr>
<%
rs.movenext
loop
end if
%>
</table>
</div>
<%end if%>

Synes godt om

eagleeye Praktikant

31. august 2004 - 19:34 #8

Prøv sådan her:

<%If request.querystring("SeRekorder") = "Ok" and request.querystring("Disciplin") <> "" then %>
<%
set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("db.mdb")

SQL = "select top 1 id, Navn, Klasse, Alder, record, Dato, godkendt_af from rekorder where diciplin = '"& request.querystring("Disciplin") &"' and koen='dreng' order by record desc UNION ALL select top 1 id, Navn, Klasse, Alder, record, Dato, godkendt_af from rekorder where diciplin = '"& request.querystring("Disciplin") &"' and koen='pige' order by record desc"
set rs = Conn.Execute(SQL)
if rs.eof then
response.write ("Der er ingen rekorder her endnu")
else
%>

<div align="center">
<center>
<table border="1" width="89%" bordercolor="#000000" cellspacing="1">
<tr>
<td width="17%" align="center">Navn</td>
<td width="16%" align="center">Klasse</td>
<td width="12%" align="center">Alder</td>
<td width="22%" align="center">Tid/Længde/Antal</td>
<td width="21%" align="center">Dato</td>
<td width="30%" align="center">Godkendt af</td>
</tr>
<% idList=""
do while not rs.EOF%>
<tr>
<td width="17%" align="center">
<%=rs("navn")%></td>
<center>
<td width="16%" align="center"><%=rs("klasse")%></td>
<td width="12%" align="center"><%=rs("alder")%></td>
<td width="22%" align="center">
<%=rs("rekord")%></td>
<center>
<td width="21%" align="center"><%=rs("dato")%></td>
<td width="30%" align="center"><%=rs("godkendt_af")%></td>
</tr>
<% idList=idList&","&rs("id")
rs.movenext
loop
idList = mid(idList,2)
'Find resten
SQL = "select * from rekorder where diciplin = '"& request.querystring("Disciplin") &"' and id not in (" & idList & ") order by record desc"
set rs=conn.Execute(SQL)
do while not rs.EOF%>
<tr>
<td width="17%" align="center">
<%=rs("navn")%></td>
<center>
<td width="16%" align="center"><%=rs("klasse")%></td>
<td width="12%" align="center"><%=rs("alder")%></td>
<td width="22%" align="center">
<%=rs("rekord")%></td>
<center>
<td width="21%" align="center"><%=rs("dato")%></td>
<td width="30%" align="center"><%=rs("godkendt_af")%></td>
</tr>
<%
rs.movenext
loop
end if
%>
</table>
</div>
<%end if%>

Synes godt om

no_doubt Nybegynder

31. august 2004 - 19:37 #9

ORDER BY-udtrykket (record) bruger felter, der ikke udvælges af forespørgslen. Kun de felter, der forespørges på i den første forespørgsel, kan medtages i et ORDER BY-udtryk.

Synes godt om

no_doubt Nybegynder

31. august 2004 - 19:39 #10

Min fejl...

Det virker men ikke med mellem rummet vil gerne have dem isoleret som i eksemplet

Synes godt om

eagleeye Praktikant

31. august 2004 - 19:39 #11

hehe jeg har skrevet record og ikke rekord :)

PRøv lige at rette denne:

SQL = "select top 1 id, Navn, Klasse, Alder, record, Dato, godkendt_af from rekorder where diciplin = '"& request.querystring("Disciplin") &"' and koen='dreng' order by record desc UNION ALL select top 1 id, Navn, Klasse, Alder, record, Dato, godkendt_af from rekorder where diciplin = '"& request.querystring("Disciplin") &"' and koen='pige' order by record desc"

til:

SQL = "select top 1 id, Navn, Klasse, Alder, rekord, Dato, godkendt_af from rekorder where diciplin = '"& request.querystring("Disciplin") &"' and koen='dreng' order by rekord desc UNION ALL select top 1 id, Navn, Klasse, Alder, rekord, Dato, godkendt_af from rekorder where diciplin = '"& request.querystring("Disciplin") &"' and koen='pige' order by rekord desc"

Synes godt om

no_doubt Nybegynder

31. august 2004 - 19:40 #12

Desuden er der en eller anden fejl.

http://80.161.112.165/SFO/default.asp?SeRekorder=Ok&Disciplin=Længdespring

Synes godt om

no_doubt Nybegynder

31. august 2004 - 19:42 #13

den er rettet.

Synes godt om

eagleeye Praktikant

31. august 2004 - 19:42 #14

ok prøv at rette disse linjer:

'Find resten
SQL = "select * from rekorder where diciplin = '"& request.querystring("Disciplin") &"' and id not in (" & idList & ") order by record desc"
set rs=conn.Execute(SQL)
do while not rs.EOF%>

til

'Find resten
SQL = "select * from rekorder where diciplin = '"& request.querystring("Disciplin") &"' and id not in (" & idList & ") order by record desc"
set rs=conn.Execute(SQL)
if not rs.EOF then
%>
<tr><td width="100%" colspan="6"> </td></tr>
<%
end if
do while not rs.EOF%>

Synes godt om

no_doubt Nybegynder

31. august 2004 - 19:45 #15

http://80.161.112.165/SFO/default.asp?SeRekorder=Ok&Disciplin=Længdespring

Julie er bedre end stine...

Synes godt om

eagleeye Praktikant

31. august 2004 - 19:53 #16

Ja det ser lidt sjovt ud. Der må være noget som gør den tage 2,3 før 2,5..
På den gamle side var sorteringen da rigtig?

Synes godt om

no_doubt Nybegynder

31. august 2004 - 19:55 #17

Ja.

Synes godt om

no_doubt Nybegynder

31. august 2004 - 19:57 #18

Prøvede med en ny post, ændrede ingenting

Synes godt om

no_doubt Nybegynder

31. august 2004 - 19:58 #19

Det er kun pigen der ikke virker

Synes godt om

eagleeye Praktikant

31. august 2004 - 19:58 #20

hmm det skulle ellers virke rigtigt.
Prøv at fjerne ALL i UNION ALL så der kun står: UNION

Synes godt om

no_doubt Nybegynder

31. august 2004 - 20:00 #21

også rettet som du kan følge med på siden

Synes godt om

eagleeye Praktikant

31. august 2004 - 20:01 #22

Er Julie sat til at være "pige" ?

Synes godt om

no_doubt Nybegynder

31. august 2004 - 20:04 #23

også det

Synes godt om

eagleeye Praktikant

31. august 2004 - 20:12 #24

Det lyder noget underligt prøv sådan her så:

SQL = "select top 1 id, Navn, Klasse, Alder, rekord, Dato, godkendt_af from rekorder where diciplin = '"& request.querystring("Disciplin") &"' and koen='dreng' order by rekord desc UNION ALL select top 1 t2.id, t2.Navn, t2.Klasse, t2.Alder, t2.rekord, t2.Dato, t2.godkendt_af from rekorder as t2 where td.diciplin = '"& request.querystring("Disciplin") &"' and t2.koen='pige' order by t2.rekord desc"

Synes godt om

no_doubt Nybegynder

31. august 2004 - 20:16 #25

http://80.161.112.165/SFO/default.asp?SeRekorder=Ok&Disciplin=Længdespring

Synes godt om

eagleeye Praktikant

31. august 2004 - 20:18 #26

det skal vist være:

SQL = "select top 1 id, Navn, Klasse, Alder, rekord, Dato, godkendt_af from rekorder where diciplin = '"& request.querystring("Disciplin") &"' and koen='dreng' order by rekord desc UNION ALL select top 1 t2.id, t2.Navn, t2.Klasse, t2.Alder, t2.rekord, t2.Dato, t2.godkendt_af from rekorder t2 where td.diciplin = '"& request.querystring("Disciplin") &"' and t2.koen='pige' order by t2.rekord desc"

Synes godt om

no_doubt Nybegynder

31. august 2004 - 20:18 #27

--------------------------------------------------------------------------------

Microsoft JET Database Engine error '80004005'

ORDER BY-udtrykket (t2.rekord) bruger felter, der ikke udvælges af forespørgslen. Kun de felter, der forespørges på i den første forespørgsel, kan medtages i et ORDER BY-udtryk.

/SFO/default.asp, line 219

Synes godt om

eagleeye Praktikant

31. august 2004 - 20:18 #28

sådan her:

SQL = "select top 1 id, Navn, Klasse, Alder, rekord, Dato, godkendt_af from rekorder where diciplin = '"& request.querystring("Disciplin") &"' and koen='dreng' order by rekord desc UNION ALL select top 1 t2.id, t2.Navn, t2.Klasse, t2.Alder, t2.rekord, t2.Dato, t2.godkendt_af from rekorder t2 where t2.diciplin = '"& request.querystring("Disciplin") &"' and t2.koen='pige' order by t2.rekord desc"

Synes godt om

no_doubt Nybegynder

31. august 2004 - 20:21 #29

følger du selv med på siden ?

Synes godt om

eagleeye Praktikant

31. august 2004 - 20:23 #30

ja. Prøv sådan her.

SQL = "select top 1 id, Navn, Klasse, Alder, rekord, Dato, godkendt_af from rekorder where diciplin = '"& request.querystring("Disciplin") &"' and koen='dreng' order by rekord desc UNION ALL select top 1 t2.id, t2.Navn, t2.Klasse, t2.Alder, t2.rekord, t2.Dato, t2.godkendt_af from rekorder as t2 where t2.diciplin = '"& request.querystring("Disciplin") &"' and t2.koen='pige' order by t2.rekord desc"

Synes godt om

eagleeye Praktikant

31. august 2004 - 20:26 #31

hmm det virker lidt underlidt.. Prøv sådan her så:

SQL = "select top 1 id, Navn, Klasse, Alder, rekord, Dato, godkendt_af from rekorder where diciplin = '"& request.querystring("Disciplin") &"' and koen='dreng' order by rekord desc UNION ALL select top 1 t2.id, t2.Navn, t2.Klasse, t2.Alder, t2.rekord, t2.Dato, t2.godkendt_af from rekorder as t2 where t2.diciplin = '"& request.querystring("Disciplin") &"' and t2.koen='pige' order by rekord desc"

Synes godt om

eagleeye Praktikant

31. august 2004 - 20:28 #32

Hvis man nu bytter rundt på dem virker piger så ?

SQL = "select top 1 t2.id, t2.Navn, t2.Klasse, t2.Alder, t2.rekord, t2.Dato, t2.godkendt_af from rekorder as t2 where t2.diciplin = '"& request.querystring("Disciplin") &"' and t2.koen='pige' order by rekord desc UNION ALL select top 1 id, Navn, Klasse, Alder, rekord, Dato, godkendt_af from rekorder where diciplin = '"& request.querystring("Disciplin") &"' and koen='dreng' order by rekord desc"

Synes godt om

no_doubt Nybegynder

31. august 2004 - 20:31 #33

jep så er pigerne der men ikke drengene

Synes godt om

eagleeye Praktikant

31. august 2004 - 20:32 #34

hvad så med:
SQL = "(select top 1 t2.id, t2.Navn, t2.Klasse, t2.Alder, t2.rekord, t2.Dato, t2.godkendt_af from rekorder as t2 where t2.diciplin = '"& request.querystring("Disciplin") &"' and t2.koen='pige' order by rekord desc) UNION ALL (select top 1 id, Navn, Klasse, Alder, rekord, Dato, godkendt_af from rekorder where diciplin = '"& request.querystring("Disciplin") &"' and koen='dreng' order by rekord desc)"

Synes godt om

no_doubt Nybegynder

31. august 2004 - 20:40 #35

Nåå ja lige til sidste hvad kan jeg gøre smart for at få den til at lære hvis nogen konkurrencer der er god at have et stort tal i og hvilke det er godt med et småt tal

Synes godt om

eagleeye Praktikant

31. august 2004 - 20:42 #36

Hvis du vil havde de små første kan du fjerne desc i order by: order by rekord desc)"
til order by rekord )" eller skrive asc order by rekord asc)"

Synes godt om

no_doubt Nybegynder

31. august 2004 - 20:45 #37

jamen jeg skal jo lave en request osv.

Ved ikke om du evt kan hjælpe med jeg har lavet det sådan at der i databasen ud for hver post om en tid osv. er angivet om meget eller lidt er godt. hent evt databasen

Synes godt om

eagleeye Praktikant

31. august 2004 - 20:50 #38

Har du lavet en tabel som indeholder decipli og om max eller min er best?
Så kunne man hente det og lave en variable som blev sat til enten DESC eller ASC.

SQL = "select sortorder from sortordertabe where diciplin = '"& request.querystring("Disciplin") &"'"
set rs = Conn.Execute(SQL)
if rs("sortorder") = "max" then
sort = " DESC "
else
sort = " ASC "
end if

så rette SQL sætningen til:

SQL = "(select top 1 t2.id, t2.Navn, t2.Klasse, t2.Alder, t2.rekord, t2.Dato, t2.godkendt_af from rekorder as t2 where t2.diciplin = '"& request.querystring("Disciplin") &"' and t2.koen='pige' order by rekord " & sort & ") UNION ALL (select top 1 id, Navn, Klasse, Alder, rekord, Dato, godkendt_af from rekorder where diciplin = '"& request.querystring("Disciplin") &"' and koen='dreng' order by rekord " & sort & ")"

Synes godt om

no_doubt Nybegynder

31. august 2004 - 20:57 #39

Hvordan skal den flettes ind. har en tabel der hedder diciplin med en kolonne der hedder maal med min og max

Synes godt om

eagleeye Praktikant

31. august 2004 - 21:01 #40

Du kan flette det ind i toppen af koden sådan her:

<%If request.querystring("SeRekorder") = "Ok" and request.querystring("Disciplin") <> "" then %>
<%
set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("db.mdb")

SQL = "select maal from diciplin where diciplin = '"& request.querystring("Disciplin") &"'"
set rs = Conn.Execute(SQL)
if Lcase(rs("maal")) = "max" then
sort = " DESC "
else
sort = " ASC "
end if

SQL = "(select top 1 t2.id, t2.Navn, t2.Klasse, t2.Alder, t2.rekord, t2.Dato, t2.godkendt_af from rekorder as t2 where t2.diciplin = '"& request.querystring("Disciplin") &"' and t2.koen='pige' order by rekord " & sort & ") UNION ALL (select top 1 id, Navn, Klasse, Alder, rekord, Dato, godkendt_af from rekorder where diciplin = '"& request.querystring("Disciplin") &"' and koen='dreng' order by rekord " & sort & ")"
set rs = Conn.Execute(SQL)
if rs.eof then

Synes godt om

eagleeye Praktikant

31. august 2004 - 21:01 #41

samt rette den sidst SQL til dette:

SQL = "select * from rekorder where diciplin = '"& request.querystring("Disciplin") &"' and id not in (" & idList & ") order by record " & sort

Synes godt om

no_doubt Nybegynder

31. august 2004 - 21:08 #42

select maal from diciplin where diciplin = 'Længdespring'
Microsoft JET Database Engine error '80040e10'

Der er ikke angivet nogen værdi for en eller flere krævede parametre.

/SFO/default.asp, line 220

Synes godt om

eagleeye Praktikant

31. august 2004 - 21:09 #43

hvad er linie 220?

Synes godt om

eagleeye Praktikant

31. august 2004 - 21:10 #44

arh ok den nye SQL sætnignen hvad hedder kolonne som diciplinen ligger i ?

Synes godt om

no_doubt Nybegynder

31. august 2004 - 21:10 #45

har rettet den nu men der kommer ikke noget ud nu

Synes godt om

eagleeye Praktikant

31. august 2004 - 21:14 #46

så må du vise koden det kan ikke bare forsvinde??

Synes godt om

no_doubt Nybegynder

31. august 2004 - 21:16 #47

<%If request.querystring("SeRekorder") = "Ok" and request.querystring("Disciplin") <> "" then %>
<%
set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("db.mdb")

SQL = "select maal from diciplin where navn = '"& request.querystring("Disciplin") &"'"
set rs = Conn.Execute(SQL)
if Lcase(rs("maal")) = "max" then
sort = " DESC "
else
sort = " ASC "
end if

SQL = "(select top 1 t2.id, t2.koen, t2.Navn, t2.Klasse, t2.Alder, t2.rekord, t2.Dato, t2.godkendt_af from rekorder as t2 where t2.diciplin = '"& request.querystring("Disciplin") &"' and t2.koen='pige' order by rekord " & sort & ") UNION ALL (select top 1 id, koen, Navn, Klasse, Alder, rekord, Dato, godkendt_af from rekorder where diciplin = '"& request.querystring("Disciplin") &"' and koen='dreng' order by rekord " & sort & ")"
set rs = Conn.Execute(SQL)
if rs.eof then%>

<div align="center">
<center>
<table border="1" width="89%" bordercolor="#000000" cellspacing="1">
<tr>
<td width="17%" align="center">Navn</td>
<td width="16%" align="center">Klasse</td>
<td width="12%" align="center">Alder</td>
<td width="22%" align="center">Tid/Længde/Antal</td>
<td width="21%" align="center">Dato</td>
<td width="30%" align="center">Godkendt af</td>
</tr>
<% idList=""
do while not rs.EOF%>
<tr>
<td width="17%" align="center">
<%=rs("navn")%> ( <%=rs("koen")%> ) </td>
<center>
<td width="16%" align="center"><%=rs("klasse")%></td>
<td width="12%" align="center"><%=rs("alder")%></td>
<td width="22%" align="center">
<%=rs("rekord")%></td>
<center>
<td width="21%" align="center"><%=rs("dato")%></td>
<td width="30%" align="center"><%=rs("godkendt_af")%></td>
</tr>
<% idList=idList&","&rs("id")
rs.movenext
loop
idList = mid(idList,2)
'Find resten
SQL = "select * from rekorder where diciplin = '"& request.querystring("Disciplin") &"' and id not in (" & idList & ") order by rekord " & sort
set rs=conn.Execute(SQL)
if not rs.EOF then
%>
<tr><td width="100%" colspan="6"> </td></tr>
<%
end if
do while not rs.EOF%>
<tr>
<td width="17%" align="center">
<%=rs("navn")%> ( <%=rs("koen")%> ) </td>
<center>
<td width="16%" align="center"><%=rs("klasse")%></td>
<td width="12%" align="center"><%=rs("alder")%></td>
<td width="22%" align="center">
<%=rs("rekord")%></td>
<center>
<td width="21%" align="center"><%=rs("dato")%></td>
<td width="30%" align="center"><%=rs("godkendt_af")%></td>
</tr>
<%
rs.movenext
loop
end if
%>
</table>
</div>
<%end if%>

Synes godt om

eagleeye Praktikant

31. august 2004 - 21:21 #48

det forstår jeg ikke helt?? Det skulle ikke betyde noget at hente sort ud først..

Synes godt om

no_doubt Nybegynder

31. august 2004 - 21:27 #49

Nej jeg ved det ikke

Synes godt om

no_doubt Nybegynder

31. august 2004 - 21:35 #50

men det virker da endda også at få sort til at passe det virker. Men den viser intet...hmm

Synes godt om

no_doubt Nybegynder

01. september 2004 - 11:27 #51

er der ikke noget at gøre...??

Synes godt om

eagleeye Praktikant

01. september 2004 - 13:47 #52

Jeg kan ikke se hvorfor det ikke skulle virker. Du kan peøv at rette:

SQL = "select maal from diciplin where navn = '"& request.querystring("Disciplin") &"'"
set rs = Conn.Execute(SQL)
if Lcase(rs("maal")) = "max" then
sort = " DESC "
else
sort = " ASC "
end if

til

sort=" DESC "

for test og se om siden så virker?

Synes godt om

no_doubt Nybegynder

01. september 2004 - 16:28 #53

der kommer stadig intet ud

Synes godt om

no_doubt Nybegynder

01. september 2004 - 16:32 #54

Nu virker:

<%
set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("db.mdb")

SQL = "(select top 1 t2.id, t2.Navn, t2.Klasse, t2.Alder, t2.rekord, t2.Dato, t2.godkendt_af from rekorder as t2 where t2.diciplin = '"& request.querystring("Disciplin") &"' and t2.koen='pige' order by rekord "& sort &") UNION ALL (select top 1 id, Navn, Klasse, Alder, rekord, Dato, godkendt_af from rekorder where diciplin = '"& request.querystring("Disciplin") &"' and koen='dreng' order by rekord "& sort &")"
response.write SQL
set rs = Conn.Execute(SQL)
if rs.eof then%>

<div align="center">
<center>
<table border="1" width="89%" bordercolor="#000000" cellspacing="1">
<tr>
<td width="17%" align="center">Navn</td>
<td width="16%" align="center">Klasse</td>
<td width="12%" align="center">Alder</td>
<td width="22%" align="center">Tid/Længde/Antal</td>
<td width="21%" align="center">Dato</td>
<td width="30%" align="center">Godkendt af</td>
</tr>
<% idList=""
do while not rs.EOF%>
<tr>
<td width="17%" align="center">
<%=rs("navn")%> ( <%=rs("koen")%> ) </td>
<center>
<td width="16%" align="center"><%=rs("klasse")%></td>
<td width="12%" align="center"><%=rs("alder")%></td>
<td width="22%" align="center">
<%=rs("rekord")%></td>
<center>
<td width="21%" align="center"><%=rs("dato")%></td>
<td width="30%" align="center"><%=rs("godkendt_af")%></td>
</tr>
<% idList=idList&","&rs("id")
rs.movenext
loop
idList = mid(idList,2)
'Find resten
SQL = "select * from rekorder where diciplin = '"& request.querystring("Disciplin") &"' and id not in (" & idList & ") order by rekord " & sort
set rs=conn.Execute(SQL)
if not rs.EOF then
%>
<tr><td width="100%" colspan="6"> </td></tr>
<%
end if
do while not rs.EOF%>
<tr>
<td width="17%" align="center">
<%=rs("navn")%> ( <%=rs("koen")%> ) </td>
<center>
<td width="16%" align="center"><%=rs("klasse")%></td>
<td width="12%" align="center"><%=rs("alder")%></td>
<td width="22%" align="center">
<%=rs("rekord")%></td>
<center>
<td width="21%" align="center"><%=rs("dato")%></td>
<td width="30%" align="center"><%=rs("godkendt_af")%></td>
</tr>
<%
rs.movenext
loop
end if
%>
</table>
</div>
<%end if%>

heller ikke ??

Synes godt om

eagleeye Praktikant

01. september 2004 - 16:45 #55

hov er der ikke også rette lidt det med if rs.EOF?
Før havde du en:

if rs.eof then
response.write ("Der er ingen rekorder her endnu")
else

det er nu blevet til dette uden response.write ("Der er ingen rekorder her endnu")

if rs.eof then

Så hvis rs indeholder poster udskrier den ikke så prøv at rette if sætnignen til dette, eller tilføje det med "der er ingen poster":

if not rs.eof then

Synes godt om

no_doubt Nybegynder

01. september 2004 - 16:51 #56

i vinkel!!

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
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	9	25/06/202622:20	29/06/202621:55
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
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02

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