CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

vtm Nybegynder

15. juni 2003 - 23:12 Der er 6 kommentarer og
1 løsning

Vis kun de første 3

Jeg har en nyheds viser, som kun skal vise de første 3 beskeder i stedet for alle.

<%
Response.Buffer = True

' Connection til database
Set Con = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("admin/nyheder.mdb")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath

' Her hiver vi indholdet af databasen ud, sorterer dem efter dato
Sql = "SELECT * FROM nyheder ORDER BY Dato DESC"
Set Record = Con.Execute(Sql)

%>
<html>

<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>forside</title>
</head>

<body bgproperties="fixed" background="grafik/Pil_13.jpg" link="#3366FF" vlink="#3366FF" alink="#3366FF" bgcolor="#000000">

~*Chrisas Chinchilla*~

 <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
<tr>
<td width="50%"><center>Nyheder</center><hr>
<% Do While Not Record.EOF %>

Den : 
<% Response.Write Record("Dato")%> 

Navn : <% Response.Write Record("Forfatter")%> 
Nyhed : <% Response.Write Record("Nyhed") %> 
 
<hr>

<%
Record.MoveNext
Loop
%>

<%
' Lukke connection
Con.Close
Set Con = Nothing
%>
</td>
<td width="50%">

<APPLET height=400
archive=../Billeder/web/bilder%20til%20forside/AnLake.jar width=287
code=AnLake.class align="right"><PARAM NAME="credits" VALUE="Applet by Fabio Ciucci (www.anfyteam.com)"><PARAM NAME="res" VALUE="1"><PARAM NAME="image" VALUE="Peja 19.jpg"><PARAM NAME="wavspeed" VALUE="30"><PARAM NAME="perspective" VALUE="10"><PARAM NAME="farwaving" VALUE="200"><PARAM NAME="wind" VALUE="10"><PARAM NAME="windvarval" VALUE="5"><PARAM NAME="windvarmin" VALUE="5"><PARAM NAME="windvarmax" VALUE="15"><PARAM NAME="halfreflect" VALUE="NO"><PARAM NAME="overimg" VALUE="NO"><PARAM NAME="overimgX" VALUE="0"><PARAM NAME="overimgY" VALUE="0"><PARAM NAME="textscroll" VALUE="lakescr.txt"><PARAM NAME="texttype" VALUE="zooming"><PARAM NAME="textvspace" VALUE="0"><PARAM NAME="textminfont" VALUE="8"><PARAM NAME="textmaxfont" VALUE="172"><PARAM NAME="textoffset" VALUE="240"><PARAM NAME="textspeed" VALUE="2"><PARAM NAME="textfont" VALUE="Helvetica"><PARAM NAME="textbold" VALUE="NO"><PARAM NAME="textitalic" VALUE="NO"><PARAM NAME="textsize" VALUE="24"><PARAM NAME="textshadow" VALUE="YES"><PARAM NAME="TextSColR" VALUE="20"><PARAM NAME="TextSColG" VALUE="20"><PARAM NAME="TextSColB" VALUE="50"><PARAM NAME="TextColR" VALUE="255"><PARAM NAME="TextColG" VALUE="255"><PARAM NAME="TextColB" VALUE="155"><PARAM NAME="TextJumpAmp" VALUE="0"><PARAM NAME="TextJumpSpd" VALUE="0"><PARAM NAME="TextSineAmp" VALUE="0"><PARAM NAME="TextSineSpd" VALUE="0"><PARAM NAME="TextSineAngle" VALUE="0"><PARAM NAME="regcode" VALUE="NO"><PARAM NAME="reglink" VALUE="NO"><PARAM NAME="regnewframe" VALUE="NO"><PARAM NAME="regframename" VALUE="_blank"><PARAM NAME="statusmsg" VALUE="AnLake applet"><PARAM NAME="memdelay" VALUE="1000"><PARAM NAME="priority" VALUE="3"><PARAM NAME="MinSYNC" VALUE="10">
Sorry, your browser doesn't support Java(tm).</APPLET></td>
</tr>
<tr>
<td width="100%" colspan="2">
 
 
 

Alle rettigheder
forbeholdes / Copyright 2003 <a href="mailto:chrisas@chrisas-chinchilla.dk">
Dorthe Tomicich</a>
<center>
 Sidst
opdateret d.  08-06-03 
</center></td>
</tr>
</table>
</body>

</html>

Synes godt om

vtm Nybegynder

15. juni 2003 - 23:14 #1

ASP koden i sig selv

<%
Response.Buffer = True

' Connection til database
Set Con = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("admin/nyheder.mdb")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath

' Her hiver vi indholdet af databasen ud, sorterer dem efter dato
Sql = "SELECT * FROM nyheder ORDER BY Dato DESC"
Set Record = Con.Execute(Sql)

%>

<% Do While Not Record.EOF %>

Den : 
<% Response.Write Record("Dato")%> 

Navn : <% Response.Write Record("Forfatter")%> 
Nyhed : <% Response.Write Record("Nyhed") %> 
 
<hr>

<%
Record.MoveNext
Loop
%>

<%
' Lukke connection
Con.Close
Set Con = Nothing
%>

Synes godt om

dsjk Novice

15. juni 2003 - 23:14 #2

Sql = "SELECT top 3 * FROM nyheder ORDER BY Dato DESC"

dsjk

Synes godt om

whatever Nybegynder

15. juni 2003 - 23:14 #3

Ret denne linie:

Sql = "SELECT * FROM nyheder ORDER BY Dato DESC"

til

Sql = "SELECT TOP 3 * FROM nyheder ORDER BY Dato DESC"

Synes godt om

cyigen Nybegynder

15. juni 2003 - 23:15 #4

<%
Response.Buffer = True

' Connection til database
Set Con = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("admin/nyheder.mdb")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath

' Her hiver vi indholdet af databasen ud, sorterer dem efter dato
Sql = "SELECT TOP 3* FROM nyheder ORDER BY Dato DESC"
Set Record = Con.Execute(Sql)

%>
<html>

<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>forside</title>
</head>

<body bgproperties="fixed" background="grafik/Pil_13.jpg" link="#3366FF" vlink="#3366FF" alink="#3366FF" bgcolor="#000000">

~*Chrisas Chinchilla*~

 <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
<tr>
<td width="50%"><center>Nyheder</center><hr>
<% Do While Not Record.EOF %>

Den : 
<% Response.Write Record("Dato")%> 

Navn : <% Response.Write Record("Forfatter")%> 
Nyhed : <% Response.Write Record("Nyhed") %> 
 
<hr>

<%
Record.MoveNext
Loop
%>

<%
' Lukke connection
Con.Close
Set Con = Nothing
%>
</td>
<td width="50%">

<APPLET height=400
archive=../Billeder/web/bilder%20til%20forside/AnLake.jar width=287
code=AnLake.class align="right"><PARAM NAME="credits" VALUE="Applet by Fabio Ciucci (www.anfyteam.com)"><PARAM NAME="res" VALUE="1"><PARAM NAME="image" VALUE="Peja 19.jpg"><PARAM NAME="wavspeed" VALUE="30"><PARAM NAME="perspective" VALUE="10"><PARAM NAME="farwaving" VALUE="200"><PARAM NAME="wind" VALUE="10"><PARAM NAME="windvarval" VALUE="5"><PARAM NAME="windvarmin" VALUE="5"><PARAM NAME="windvarmax" VALUE="15"><PARAM NAME="halfreflect" VALUE="NO"><PARAM NAME="overimg" VALUE="NO"><PARAM NAME="overimgX" VALUE="0"><PARAM NAME="overimgY" VALUE="0"><PARAM NAME="textscroll" VALUE="lakescr.txt"><PARAM NAME="texttype" VALUE="zooming"><PARAM NAME="textvspace" VALUE="0"><PARAM NAME="textminfont" VALUE="8"><PARAM NAME="textmaxfont" VALUE="172"><PARAM NAME="textoffset" VALUE="240"><PARAM NAME="textspeed" VALUE="2"><PARAM NAME="textfont" VALUE="Helvetica"><PARAM NAME="textbold" VALUE="NO"><PARAM NAME="textitalic" VALUE="NO"><PARAM NAME="textsize" VALUE="24"><PARAM NAME="textshadow" VALUE="YES"><PARAM NAME="TextSColR" VALUE="20"><PARAM NAME="TextSColG" VALUE="20"><PARAM NAME="TextSColB" VALUE="50"><PARAM NAME="TextColR" VALUE="255"><PARAM NAME="TextColG" VALUE="255"><PARAM NAME="TextColB" VALUE="155"><PARAM NAME="TextJumpAmp" VALUE="0"><PARAM NAME="TextJumpSpd" VALUE="0"><PARAM NAME="TextSineAmp" VALUE="0"><PARAM NAME="TextSineSpd" VALUE="0"><PARAM NAME="TextSineAngle" VALUE="0"><PARAM NAME="regcode" VALUE="NO"><PARAM NAME="reglink" VALUE="NO"><PARAM NAME="regnewframe" VALUE="NO"><PARAM NAME="regframename" VALUE="_blank"><PARAM NAME="statusmsg" VALUE="AnLake applet"><PARAM NAME="memdelay" VALUE="1000"><PARAM NAME="priority" VALUE="3"><PARAM NAME="MinSYNC" VALUE="10">
Sorry, your browser doesn't support Java(tm).</APPLET></td>
</tr>
<tr>
<td width="100%" colspan="2">
 
 
 

Alle rettigheder
forbeholdes / Copyright 2003 <a href="mailto:chrisas@chrisas-chinchilla.dk">
Dorthe Tomicich</a>
<center>
 Sidst
opdateret d.  08-06-03 
</center></td>
</tr>
</table>
</body>

</html>

Synes godt om

cyigen Nybegynder

15. juni 2003 - 23:16 #5

det hele er der ----^

Synes godt om

vtm Nybegynder

15. juni 2003 - 23:19 #6

Takker Mange Gange :)

Synes godt om

dsjk Novice

15. juni 2003 - 23:27 #7

ingen årsag.

Takker for point;O)

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
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
JSON Af ingeman i ASP	3	07/04/202417:53	08/04/202412:09
Vis detaljeret fejlkoder Af poulmadsen i ASP	6	09/03/202418:16	10/03/202417:59
IIS virker ikke på asp sider... Af bsn i ASP	10	15/10/202313:12	18/10/202308:48

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