Notifikationer

Markér alle som læst Log ud

eniq Nybegynder

02. november 2001 - 20:16 Der er 10 kommentarer og
1 løsning

Table

Hej,

Jeg har den her ASP-side, der i et table skal vise nogle informationer postet fra en anden side. Problemet er at når man poster fra den anden side, vises det nyeste post nederst. Hvordan kan jeg ændre, så det nyeste post vises øverst.

Går udfra at det er på siden, der viser hvad brugeren har postet, at det skal rettes. Den side ser i øjeblikket således ud:

http://www.friserverplads.dk/pagan/CWsys/code.txt

Håber nogen gider hjælpe
- Eniq

Synes godt om

eagleeye Praktikant

02. november 2001 - 20:18 #1

Hvis du har et ID(autonummer) felt:

strSQL = \"SELECT * FROM Played_War ORDER BY ID DESC\"

Synes godt om

eniq Nybegynder

02. november 2001 - 20:30 #2

Well, gør jeg det får jeg fejlen:

Microsoft OLE DB Provider for ODBC Drivers error \'80040e10\'

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.

/pagan/CWsys/ClanWars.asp, line 7

- Eniq

Synes godt om

apocryphal Nybegynder

02. november 2001 - 20:44 #3

Vi skal vide hvilke data-felter du har i databasen.

--
Jonas

Synes godt om

eagleeye Praktikant

02. november 2001 - 20:46 #4

jeps har du et autonumer felt?

Synes godt om

eniq Nybegynder

02. november 2001 - 21:33 #5

k, jeg er ret noob - derfor jeg spørger.

Jeg har felterne:
WarID, result, mday, mmonth, myear, opponent, homepage, maps, league, uspoint, thempoint, report og clanname

- Eniq

Synes godt om

eagleeye Praktikant

02. november 2001 - 21:35 #6

så ville jeg gætte på WarID var autonummer:

strSQL = \"SELECT * FROM Played_War ORDER BY WarID DESC\"

Synes godt om

eniq Nybegynder

02. november 2001 - 22:27 #7

Thx eagleeye,

Pointene er dine :)

- Eniq

Synes godt om

eniq Nybegynder

03. november 2001 - 13:07 #8

Er der forresten en enkel måde, hvorpå jeg kan lave et maxloads så den efter 10 loads fra databasen laver en side 2. Naturligvis så de nyeste er på side 1.

Kan du det er yderligere 60 point dine.

- Eniq

Synes godt om

eagleeye Praktikant

03. november 2001 - 13:11 #9

Ja det hedder paging:

Prøv at se dette eks: http://www.activeserverpages.dk/aspdigital/kapitel2/paging.asp

Synes godt om

eagleeye Praktikant

03. november 2001 - 14:44 #10

Jeg har prøvet at ligge det ind i den kode du har lagt i spm:
Du skal rette filnavnet paging.asp til filnavnet på den fil koden ligger i, det er ialt 3 steder:

<% Response.Buffer = True %>
<%

intPage = Request(\"page\")
If isNumeric(intPage) = False Or intPage < 1 then
intPage = 1
End If

Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"database/clanwars.mdb\")
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"SELECT * FROM Played_War ORDER BY WarID DESC\"
rs.Open strSQL, myConn, 1, 3

Set rs1 = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"SELECT Count(*) AS ItemCount1 FROM Played_War\"
rs1.Open strSQL, myConn, 1, 3

Set rs2 = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"SELECT Count(*) AS ItemCount2 FROM Played_War WHERE Result = \'Won\'\"
rs2.Open strSQL, myConn, 1, 3

Set rs3 = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"SELECT SUM(uspoints) AS Points FROM Played_War\"
rs3.Open strSQL, myConn, 1, 3

Set rs4 = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"SELECT * FROM Scheduled_War\"
rs4.Open strSQL, myConn, 1, 3

Set rs5 = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"SELECT Count(*) AS ItemCount3 FROM Played_War WHERE Result = \'Lost\'\"
rs5.Open strSQL, myConn, 1, 3

Set rs6 = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"SELECT Count(*) AS ItemCount4 FROM Played_War WHERE Result = \'Draw\'\"
rs6.Open strSQL, myConn, 1, 3

Set rs7 = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"SELECT SUM(thempoints) AS Points2 FROM Played_War\"
rs7.Open strSQL, myConn, 1, 3
%>
<html>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1252\">
<meta name=\"GENERATOR\" content=\"Microsoft FrontPage 4.0\">
<meta name=\"ProgId\" content=\"FrontPage.Editor.Document\">
<title>Ny side 1</title>
<STYLE>
A:Link {text-decoration: none; color: #000000}
A:Active {text-decoration: none; color: #000000}
A:Visited {text-decoration: none; color: #000000}
A:Hover {text-decoration: bold; color: #A00C10}
</STYLE>
<STYLE>
BODY
{
scrollbar-face-color: #D0CCD0;
scrollbar-shadow-color: #000000;
scrollbar-highlight-color: #000000;
scrollbar-3dlight-color: #FFFFFF;
scrollbar-darkshadow-color: #FFFFFF;
scrollbar-track-color: #FFFFFF;
scrollbar-arrow-color: #000000;
}
</STYLE>
</head>

<body vLink=\"#000000\" aLink=\"#000000\" link=\"#000000\" bgColor=\"#FFFFFF\" text=\"#000000\">



<div align=\"center\">
<center>

<table border=\"1\" cellpadding=\"0\" cellspacing=\"1\" style=\"border-collapse: collapse\" bordercolor=\"#000000\" id=\"AutoNumber1\" bgcolor=\"#A00C10\" bordercolordark=\"#000000\" bordercolorlight=\"#000000\">
<tr>
<td colspan=\"2\" bgcolor=\"#D0CCD0\" bordercolorlight=\"#000000\" bordercolordark=\"#000000\">
Statistik
</td>
</tr>
<tr>
<td bordercolorlight=\"#000000\" bordercolordark=\"#000000\" bgcolor=\"#D0CCD0\"> Antal
kampe: </td>
<td bordercolorlight=\"#000000\" bordercolordark=\"#000000\" bgcolor=\"#D0CCD0\"> <%=RS1(\"ItemCount1\")%> </td>
</tr>
<tr>
<td bordercolorlight=\"#000000\" bordercolordark=\"#000000\" bgcolor=\"#D0CCD0\"> Vundne:</td>
<td bordercolorlight=\"#000000\" bordercolordark=\"#000000\" bgcolor=\"#D0CCD0\"> <%=RS2(\"ItemCount2\")%></td>
</tr>
<tr>
<td bordercolorlight=\"#000000\" bordercolordark=\"#000000\" bgcolor=\"#D0CCD0\"> Tabte:</td>
<td bordercolorlight=\"#000000\" bordercolordark=\"#000000\" bgcolor=\"#D0CCD0\"> <%=RS5(\"ItemCount3\")%></td>
</tr>
<tr>
<td bordercolorlight=\"#000000\" bordercolordark=\"#000000\" bgcolor=\"#D0CCD0\"> Uafgjorte:</td>
<td bordercolorlight=\"#000000\" bordercolordark=\"#000000\" bgcolor=\"#D0CCD0\"> <%=RS6(\"ItemCount4\")%></td>
</tr>
</table>
</center>
</div>
 
<div align=\"center\">
<center>
<table border=\"1\" cellpadding=\"3\" cellspacing=\"1\" style=\"border-collapse: collapse\" bordercolor=\"#111111\" id=\"AutoNumber2\" width=\"400\" bgcolor=\"#A00C10\" bordercolorlight=\"#000000\" bordercolordark=\"#000000\">
<tr>
<td colspan=\"6\" bgcolor=\"#D0CCD0\">
Spillede kampe</td>
</tr>
<tr>
<td bgcolor=\"#D0CCD0\">
?
</td>
<td bgcolor=\"#D0CCD0\">Dato:</td>
<td bgcolor=\"#D0CCD0\">Modstander:</td>
<td bgcolor=\"#D0CCD0\">Type:</td>
<td bgcolor=\"#D0CCD0\">Resultat:</td>
<td bgcolor=\"#D0CCD0\">Report:</td>
</tr>
<%
if NOT rs.EOF then
rs.PageSize = 10
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount

Do While Not rs.EOF %>
<tr>
<td bgcolor=\"#D0CCD0\">
<%
If RS(\"Result\") = \"Won\" Then
response.write(\"<img border=\"\"0\"\" src=\"\"images/won.gif\"\" alt=\"\"We Won This One\"\">\")
END IF
%> <%
If RS(\"Result\") = \"Lost\" Then
response.write(\"<img border=\"\"0\"\" src=\"\"images/lost.gif\"\" alt=\"\"We Lost This One\"\">\")
End If
%> <%
If RS(\"Result\") = \"Draw\" Then
response.write(\"<img border=\"\"0\"\" src=\"\"images/Draw.gif\"\" alt=\"\"We Draw This One\"\">\")
End If
%></td>
<td bgcolor=\"#D0CCD0\"><%=RS(\"mday\")%>/<%=RS(\"mmonth\")%>
- <%=RS(\"myear\")%></td>
<td bgcolor=\"#D0CCD0\"><%=RS(\"opponent\")%></td>
<td bgcolor=\"#D0CCD0\"><%=RS4(\"league\")%></td>
<td bgcolor=\"#D0CCD0\"><%=RS(\"uspoints\")%>
- <%=RS(\"thempoints\")%></td>
<td bgcolor=\"#D0CCD0\" bordercolorlight=\"#000000\" bordercolordark=\"#000000\">

<%
If RS(\"Report\") = \"Nope\" Then
Response.Write(\"<Center>\")
Response.Write(\"Nope\")
Response.Write(\"</Center>\")
Else
Response.Write(\"<Center>\")
Response.Write(\"<a href=\"\"Go.asp?Url=http://\" & RS(\"Report\") & \"\"\"><img src=\"\"images/homepage.gif\"\" border=\"\"0\"\"></a>\")
Response.Write(\"</Center>\")
END IF
%></td>
<%rs.Movenext
Loop
End If

Response.Write \"Gå til side \"
For intNum = 1 To intPageCount
Response.Write \"<a href=paging.asp?page=\" & intNum & \">\" & intNum & \"</a> \"
Next

Response.Write \"\"
If Clng(intPage) > 1 Then
Response.Write \"<a href=paging.asp?page=\" & intPage - 1 & \"><<</a>\"
Else
Response.Write \"<<\"
End If

Response.Write \" \"

If Clng(intPage) < Clng(intPageCount) Then
Response.Write \"<a href=paging.asp?page=\" & intPage + 1 & \">>></a> \"
Else
Response.Write \">>\"
End If
%>
</tr>
</table>
 
 

</center>
</div>
 
</body>

</html>

<%
myConn.Close
Set myConn = Nothing
%>

Synes godt om

eniq Nybegynder

03. november 2001 - 18:30 #11

Hej Eagleeye,

Fik det ikke til at virke med det samme, men med udgangspunkt i din kode osv. Derfor skal du naturligvis have dine point:
http://www.eksperten.dk/spm/129199

Igen, tak for hjælpen!
- Eniq

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
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
Optimer MySql table med ASP Af poulmadsen i ASP	4	26/04/202417:16	26/04/202418:37

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