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

16. juni 2003 - 01:35 Der er 33 kommentarer og
1 løsning

Kun de sidste 3

Den skal kun vise de 3 første nyheder af databasen, men det vil den ikke.

http://www.pivskid.dk/help

<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>
<%
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)

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

kovalt Nybegynder

16. juni 2003 - 01:37 #1

hvad er din fejl?

Synes godt om

vtm Nybegynder

16. juni 2003 - 01:39 #2

det er jo det jeg gerne vil finde ud af

Synes godt om

lalledenby Nybegynder

16. juni 2003 - 01:39 #3

er det ikke noget med limit 3 ?

Synes godt om

vtm Nybegynder

16. juni 2003 - 01:40 #4

har også sendt hjemmeside adressen med, så kan i selv se

Synes godt om

vtm Nybegynder

16. juni 2003 - 01:40 #5

Aner det ikke det er derfor jeg spørg :)

Synes godt om

kovalt Nybegynder

16. juni 2003 - 01:48 #6

indeholdet dit datofelt ikke et tidspunkt?

Synes godt om

vtm Nybegynder

16. juni 2003 - 01:51 #7

hvad tænker du på kovalt ?

Synes godt om

kovalt Nybegynder

16. juni 2003 - 01:54 #8

hvis det ikke indeholdet et tidspunkt er der jo ikke nogen af dine datoer der er stører end de andre, hvorfor den ikke kan vælge top 3 og derfor tager dem alle....

Synes godt om

vtm Nybegynder

16. juni 2003 - 01:55 #9

Nå ja du siger noget, kan du så hjælpe mig med at få et tidspunkt med ?

Synes godt om

lalledenby Nybegynder

16. juni 2003 - 01:56 #10

hva med bare at lave en do loop?

Do until Record("id") => 3

// din table her

loop

eller:

antal = 3
nummer = 1

Do until nummer => antal

//tablt

loop

Synes godt om

vtm Nybegynder

16. juni 2003 - 01:57 #11

okai er lidt ny i området hvor skal den sættes ind ?

Synes godt om

kovalt Nybegynder

16. juni 2003 - 01:58 #12

det skal du angive i dit datoformat i din DB... det må være noget med long eller noget i den stil...

hvordan ser koden ud hvor du opretter indlægene

Synes godt om

vtm Nybegynder

16. juni 2003 - 01:58 #13

er det så istedet for loop ?

Synes godt om

vtm Nybegynder

16. juni 2003 - 01:59 #14

<%

Response.Buffer = True

' Funktion der fikser quotes...
FUNCTION fixQuotes( theString )
fixQuotes = Replace( theString, "'", "''" )
END FUNCTION

' Hent data fra formular
Nyhed = Request( "Nyhed" )
Forfatter = Request( "Forfatter" )

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

' ... Ogsaa saetter vi vores data fra formularen ind i databasen
IF Request.Servervariables("Content_Length") > 0 THEN
Sql = "INSERT INTO nyheder (Dato, Nyhed, Forfatter) VALUES('" & Date() & "','" & fixQuotes( Nyhed ) & "','" & fixQuotes( Forfatter ) & "')"
Con.Execute Sql

' Og her skriver vi lige en lille besked om at nu er nyheden tilfoejet
Response.Write "Tak for din nyhed. Den er blevet tilføjet til databasen. "

END IF

%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<html>
<head>
<title>Nyhedsting</title>

<link rel=stylesheet type="text/css" href="../style/stylenormal.css">
</head>

<body bgcolor="#808080">

~*Chrisas Chinchilla*~
<h1>Nyeste Opdateringer.</h1>
Smid de sidste nye opdateringer af siden ind
her !!
 <form action="nyhed.asp" method="POST" target="_self">
<table border="0" width="600">
<tr>
<td valign="top" width="150">Opdatering</td>
<td>
<textarea cols="30" rows="8" name="Nyhed" style="color: #FF6600; border: 1px solid #C0C0C0; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"></textarea></td>
</tr>
<tr>
<td>Forfatter</td>
<td>
<input type="text" name="Forfatter" size="20" style="color: #FF6600; border: 1px solid #C0C0C0"></td>
</tr>
<tr>
<td colspan="2" align="center">
<input type="submit" value="Læg Opdatering Ind" style="color: #FF6600; font-family: Verdana; font-size: 8 pt; border: 1px solid #C0C0C0; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"></td>
</tr>
</table>
</form>

Alle felter skal udfyldes :)
<a href="bruger.asp">
Tilbage</a>

</body>
</html>

Synes godt om

kovalt Nybegynder

16. juni 2003 - 01:59 #15

det er også en mulighed men den anden er bedre ud fra et performance synspunkt

Synes godt om

kovalt Nybegynder

16. juni 2003 - 02:00 #16

hvis du i din insert-sætning retter Date() til Now() så kommer der tidspunkt med.....

Synes godt om

vtm Nybegynder

16. juni 2003 - 02:00 #17

jeg er nærmest ligeglad, det skal bare virke :)

Synes godt om

kovalt Nybegynder

16. juni 2003 - 02:01 #18

så kræver det naturligvis at du i den database har oprettet et felt, der kan indeholde klokkeslet

Synes godt om

vtm Nybegynder

16. juni 2003 - 02:02 #19

' ... Ogsaa saetter vi vores data fra formularen ind i databasen
IF Request.Servervariables("Content_Length") > 0 THEN
Sql = "INSERT INTO nyheder (Dato, Nyhed, Forfatter) VALUES('" & Date() & "','" & fixQuotes( Nyhed ) & "','" & fixQuotes( Forfatter ) & "')"
Con.Execute Sql

denne linie ?

Synes godt om

lalledenby Nybegynder

16. juni 2003 - 02:02 #20

sådan:

<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>
<%
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)

%>
<% Do until antal =< 3 %>

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

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

<%
Record.MoveNext
antal = antal +1
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

16. juni 2003 - 02:03 #21

Date/Time

Synes godt om

lalledenby Nybegynder

16. juni 2003 - 02:03 #22

så udskriver den kun de første 3

Synes godt om

kovalt Nybegynder

16. juni 2003 - 02:04 #23

sådan her - så virker det:

IF Request.Servervariables("Content_Length") > 0 THEN
Sql = "INSERT INTO nyheder (Dato, Nyhed, Forfatter) VALUES('" & Now() & "','" & fixQuotes( Nyhed ) & "','" & fixQuotes( Forfatter ) & "')"
Con.Execute Sql

Synes godt om

vtm Nybegynder

16. juni 2003 - 02:08 #24

nu viser den slet ikke nogen mere

Synes godt om

vtm Nybegynder

16. juni 2003 - 02:08 #25

det var med lalledenby løsning

Synes godt om

kovalt Nybegynder

16. juni 2003 - 02:10 #26

det er fordi han skriver

do until antal =< 3

det er den jo til at starte med

/kovalt

Synes godt om

kovalt Nybegynder

16. juni 2003 - 02:10 #27

det skal selvfølgelig være

do until antal = 3

Synes godt om

kovalt Nybegynder

16. juni 2003 - 02:11 #28

Du ska lige være opmærksom på at du med den løsning jeg har givet skal oprette nogle nye indlæg idet naturligvis ikke virke med tilbagevirkende kraft.... det vil kune virke for de indlæg de opretter efter at have implementeret koden

Synes godt om

vtm Nybegynder

16. juni 2003 - 02:13 #29

kan slet ikke få det til at virke lige nu

Synes godt om

kovalt Nybegynder

16. juni 2003 - 02:14 #30

prøv at gå tilbage hvor de startede og ret date() til now(). Derefter opretter du 4 ny indlæg og så skulle det gerne virke

Synes godt om

kovalt Nybegynder

16. juni 2003 - 02:15 #31

jeg hopper i køjen nu... jeg kommer på i morgen tidlig igen - så kigger jeg lige om du har fået det til at virke....

god arbejdslyst

/kovalt

Synes godt om

vtm Nybegynder

16. juni 2003 - 02:26 #32

Nu lukkedes det, med lidt hjælp fra jer begge 2 mange tak for det :)

Synes godt om

vtm Nybegynder

16. juni 2003 - 02:41 #33

Fejltype:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access-driver] Feltet "dagbog.Dagen" kan ikke indeholde en streng af længden nul.
/help/admin/nyhed1.asp, line 26

Synes godt om

vtm Nybegynder

16. juni 2003 - 02:42 #34

hvad er det for en fejl fatter den ikke

IF Request.Servervariables("Content_Length") > 0 THEN
Sql = "INSERT INTO nyheder (Dato, Nyhed, Forfatter) VALUES('" & Date() & "','" & fixQuotes( Nyhed ) & "','" & fixQuotes( Forfatter ) & "')"
Con.Execute Sql <<< linie 26

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
Lost focus Af bsn i ASP	0	07/11/202415:34	-
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
JSON Af ingeman i ASP	3	07/04/202417:53	08/04/202412:09

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

22/11

Test: Den snusfornuftige Volkswagen ID.3 blevet til lidt af el-bisse

22/11

Vil købe tele-løsninger til det offentlige for 370 millioner kroner

22/11

Nørgaard: Det er de neuro-divergente originalers tid

22/11

Sker helt åbenlyst: Ansatte i den kinesiske stat sælger borgernes personlige data på hemmelige internet-fora

22/11

Efterspørgslen på AI-regnekraft er enorm - og det smitter af på priserne: "Vi kan sælge næsten alt, hvad vi får ind"

22/11

Derfor bliver den amerikanske tvangs-opdeling af Google nok ikke til noget

22/11

Nyt værtøj fra Microsoft: Snart kan du reparere nedbrudte Windows-enheder på distancen

22/11

Vi har fundet 10 ledige it-stillinger, som du kan søge netop nu

22/11

Politiet skriver kontrakt på 75 millioner kroner med dansk it-firma: Medarbejdere skal flytte ind hos politiet

22/11

Kombit gør klar til at købe it-konsulenter for 140 millioner kroner - her er planen

22/11

Droner i krig - sådan anvendes de mest effektivt på slagmarken

Vis flere artikler

IT-JOB

DSV

IT Portfolio and Delivery Management Manager for SAP Area

Røde Kors

Dataanalytiker til Udvikling

Arbejdernes Landsbank

Salesforce Marketing Cloud tech lead

Knud E. Hansen A/S

IT-supporter/administrator søges

Netcompany A/S

Software Developer

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

I dag 22:30	Underlig meddelelse på skærmen Af Jordegern i E-mail programmer
I dag 15:56	Navigation i Peugeot 3-2008 fra 2017 Af arnepedersen i Andet software
I dag 14:10	Outlook henter ikke mails Af TTA i Office & Kontorpakker
I dag 13:58	vise billeder i kartotek med store ikoner inklusive optagelsesdato Af Malm i Billedbehandling
I dag 13:35	Adobe Elements 2019, Organizer Crasher Af mort1 i Billedbehandling