Notifikationer

Markér alle som læst Log ud

eromaster Nybegynder

04. januar 2003 - 20:30 Der er 19 kommentarer og
1 løsning

Rangliste

Jeg skal have lavet en ranglist / ladder.

Info:
MS Access Database: "db/db.mdb"
Tabellen: "clans"
Kolonnen: "won" , "lost" og "clanname_long"

Jeg skal have lavet en side som liste alle post i tabellen udfra kolonnen "won". Dvs. at det tal som er højst i "won" skal komme øverste og derefter nedefter. Hvis der er 2 ens "won" tal så skal den gå efter hvem der er færest "lost". Når den skal printe dem ud skal den bare skrive "clanname_long" ud - skal nok lave noget af det jo :) Please hjælp mig!

Synes godt om

medions Nybegynder

04. januar 2003 - 20:36 #1

<html>
<head>
<title></title>
</head>
<body>

<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Driver={Microsoft Access Driver (*.mdb)}DBQ=" & Server.MapPath("db/db.mdb")

strSQL = "SELECT * FROM clans ORDER BY won DESC, ORDER BY lost ASC"
Set objRs = objConn.Execute(strSQL)
%>

<%
While Not objRs.EOF
%>
tabel
<%
objRs.MoveNext()
Wend
%>

</body>
</html>

//>Rune

Synes godt om

medions Nybegynder

04. januar 2003 - 20:38 #2

Sådan her fx.

<html>
<head>
<title></title>
</head>
<body>

<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Driver={Microsoft Access Driver (*.mdb)}DBQ=" & Server.MapPath("db/db.mdb")

strSQL = "SELECT * FROM clans ORDER BY won DESC, ORDER BY lost ASC"
Set objRs = objConn.Execute(strSQL)
%>
<table>
<tr>
<td><b>Clan</b></td>
<td><b>Won</b></td>
<td><b>Lost</b></td>
</tr>

<%
While Not objRs.EOF
Response.Write("<tr>")
Response.Write("<td>" & objRs("clanname_long") & "</td>")
Response.Write("<td>" & objRs("Won") & "</td>")
Response.Write("<td>" & objRs("Lost") & "</td>")
Response.Write("</tr>")
objRs.MoveNext()
Wend
%>
</table>

</body>
</html>

//>Rune

Synes godt om

eromaster Nybegynder

04. januar 2003 - 20:43 #3

Error Type:
Microsoft OLE DB Service Components (0x80040E73)
Format of the initialization string does not conform to the OLE DB specification.
/clan-gathering.dk/vor/league/test.asp, line 9

Linie 9:
objConn.Open "Driver={Microsoft Access Driver (*.mdb)}DBQ=" & Server.MapPath("db/db.mdb")

Det var en ny fejl... har jeg ikke set før

Synes godt om

2-maz Nybegynder

04. januar 2003 - 20:44 #4

objConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/db.mdb")

Synes godt om

medions Nybegynder

04. januar 2003 - 20:44 #5

<html>
<head>
<title></title>
</head>
<body>

<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("db/db.mdb")

strSQL = "SELECT * FROM clans ORDER BY won DESC, ORDER BY lost ASC"
Set objRs = objConn.Execute(strSQL)
%>
<table>
<tr>
<td><b>Clan</b></td>
<td><b>Won</b></td>
<td><b>Lost</b></td>
</tr>

<%
While Not objRs.EOF
Response.Write("<tr>")
Response.Write("<td>" & objRs("clanname_long") & "</td>")
Response.Write("<td>" & objRs("Won") & "</td>")
Response.Write("<td>" & objRs("Lost") & "</td>")
Response.Write("</tr>")
objRs.MoveNext()
Wend
%>
</table>

</body>
</html>

//>Rune

Synes godt om

eromaster Nybegynder

04. januar 2003 - 20:45 #6

Error Type:
Microsoft VBScript compilation (0x800A0401)
Expected end of statement
/clan-gathering.dk/vor/league/test.asp, line 9, column 64
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("db/db.mdb")
---------------------------------------------------------------^

Synes godt om

2-maz Nybegynder

04. januar 2003 - 20:47 #7

objConn.Open "Driver={Microsoft Access Driver (*.mdb)}DBQ=" & Server.MapPath("db/db.mdb")

Synes godt om

medions Nybegynder

04. januar 2003 - 20:47 #8

Eromaster> Den kode du kopiere her fra over i din Editor bliver lavet om kan jeg se! -så du er nødt til inde du kopiere det over i din Editor, at kopiere koden, sætte den ind i tekstboxen nede for neden af denne side, kopiere koden igen, og så sætte den ind i din Editor!

//>Rune

Synes godt om

2-maz Nybegynder

04. januar 2003 - 20:47 #9

gov glemte ; objConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/db.mdb")

Synes godt om

2-maz Nybegynder

04. januar 2003 - 20:48 #10

medions: Du indsatte pludselig &amp, det var ikke hans editor...

Synes godt om

medions Nybegynder

04. januar 2003 - 20:50 #11

? Hmm sorry then *G*

//>Rune

Synes godt om

medions Nybegynder

04. januar 2003 - 20:51 #12

<html>
<head>
<title></title>
</head>
<body>

<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("db/db.mdb")

strSQL = "SELECT * FROM clans ORDER BY won DESC, ORDER BY lost ASC"
Set objRs = objConn.Execute(strSQL)
%>
<table>
<tr>
<td><b>Clan</b></td>
<td><b>Won</b></td>
<td><b>Lost</b></td>
</tr>

<%
While Not objRs.EOF
Response.Write("<tr>")
Response.Write("<td>" & objRs("clanname_long") & "</td>")
Response.Write("<td>" & objRs("Won") & "</td>")
Response.Write("<td>" & objRs("Lost") & "</td>")
Response.Write("</tr>")
objRs.MoveNext()
Wend
%>
</table>

</body>
</html>

Sådan!

//>Rune

Synes godt om

eromaster Nybegynder

04. januar 2003 - 20:51 #13

Denne kode fra editoren:
<html>
<head>
<title></title>
</head>
<body>

<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("db/db.mdb")

strSQL = "SELECT * FROM clans ORDER BY won DESC, ORDER BY lost ASC"
Set objRs = objConn.Execute(strSQL)
%>
<table>
<tr>
<td><b>Clan</b></td>
<td><b>Won</b></td>
<td><b>Lost</b></td>
</tr>

<%
While Not objRs.EOF
Response.Write("<tr>")
Response.Write("<td>" & objRs("clanname_long") & "</td>")
Response.Write("<td>" & objRs("Won") & "</td>")
Response.Write("<td>" & objRs("Lost") & "</td>")
Response.Write("</tr>")
objRs.MoveNext()
Wend
%>
</table>

</body>
</html>

Fejl:
Error Type:
Microsoft VBScript compilation (0x800A0401)
Expected end of statement
/clan-gathering.dk/vor/league/test2.asp, line 9, column 64
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("db/db.mdb")
---------------------------------------------------------------^

Synes godt om

eromaster Nybegynder

04. januar 2003 - 20:52 #14

Den nye kode du gav mig:

Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access Driver] Syntax error in ORDER BY clause.
/clan-gathering.dk/vor/league/test2.asp, line 12

Synes godt om

medions Nybegynder

04. januar 2003 - 20:54 #15

Sorry, min fejl! -der må ikek være 2 ORDER BY Clauser!

<html>
<head>
<title></title>
</head>
<body>

<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("db/db.mdb")

strSQL = "SELECT * FROM clans ORDER BY won DESC, lost ASC"
Set objRs = objConn.Execute(strSQL)
%>
<table>
<tr>
<td><b>Clan</b></td>
<td><b>Won</b></td>
<td><b>Lost</b></td>
</tr>

<%
While Not objRs.EOF
Response.Write("<tr>")
Response.Write("<td>" & objRs("clanname_long") & "</td>")
Response.Write("<td>" & objRs("Won") & "</td>")
Response.Write("<td>" & objRs("Lost") & "</td>")
Response.Write("</tr>")
objRs.MoveNext()
Wend
%>
</table>

</body>
</html>

//>Rune

Synes godt om

eromaster Nybegynder

04. januar 2003 - 20:56 #16

Bingo så var der bid... MANGE tak for hjælpen :)

Synes godt om

medions Nybegynder

04. januar 2003 - 20:57 #17

Anytime ;o)
Thx 4 Poinz

//>Rune

Synes godt om

faizan Nybegynder

04. januar 2003 - 21:19 #18

skulle meget gerne være sådan ::
<html>
<head>
<title></title>
</head>
<body>

<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("db/db.mdb")

strSQL = "SELECT * FROM clans ORDER BY won DESC, lost ASC"
Set objRs = objConn.Execute(strSQL)
%>
<table>
<tr>
<td><b>Clan</b></td>
<td><b>Won</b></td>
<td><b>Lost</b></td>
</tr>

<%
While Not objRs.EOF
Response.Write("<tr>")
Response.Write("<td>" & objRs("clanname_long") & "</td>")
Response.Write("<td>" & objRs("Won") & "</td>")
Response.Write("<td>" & objRs("Lost") & "</td>")
Response.Write("</tr>")
objRs.MoveNext()
Wend
%>
</table>

</body>
</html>

//>Rune

Synes godt om

2-maz Nybegynder

04. januar 2003 - 21:21 #19

Hvaa... medions har du 2 brugere..... !

Synes godt om

medions Nybegynder

04. januar 2003 - 21:24 #20

2-mazer> Nej, det har sq været oppe mange gange *G*
Men det sker fordi folk kopiere min kode og retter i den, så glemmer de at fjerne //>Rune for neden!

//>Rune

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	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.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS