Notifikationer

Markér alle som læst Log ud

caroc Praktikant

12. marts 2003 - 18:22 Der er 14 kommentarer og
1 løsning

Auto tabel på nyhedsscript

Jeg har lavet et simpelt nyhedsscript som trækker 4 oplysninger ud af en database: forfatter, overskrift, dato og indhold.
Disse blir sat ind i en tabel (www.mount.dk) --> kig under nyheder!

Nu vil jeg gerne have ændret scriptet så det ikke kun er den første nyhed den viser med de sidste 3.
og samtidig vil jeg gerne vide hvordan scriptet automatisk kan generere en tabel lig den anden?

Synes godt om

caroc Praktikant

12. marts 2003 - 18:23 #1

her er mit nyhedsscript:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../database/nyheder.mdb")
Conn.Open DSN

strSQL = "Select * From nyheder Order by dato Desc"
Set rs = Conn.Execute(strSQL)

%>
<br>
</p>
<table width="100%" border="1" cellspacing="0" cellpadding="0" align="center" bordercolor="#323231">
<tr>
<td>
<table width="100%" align="center" cellpadding="0" cellspacing="0">
<tr bgcolor="#f0f0ec">
<td colspan="2"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><b>
<%=rs("overskrift")%></b></font></td>
</tr>
<tr>
<td style="border-bottom: 1px dotted #323231; border-top: 1px dotted #323231;" colspan="2"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=rs("indhold")%>
</font><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><br>
</font></td>
</tr>
<tr>
<td bgcolor="#f0f0ec"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Dato:<%=rs("dato")%></font></td>
<td bgcolor="#f0f0ec">
<div align="right"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Af:<%=rs("forfatter")%></font></div>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
Conn.Close
Set Conn = Nothing
%>

Synes godt om

no_doubt Nybegynder

12. marts 2003 - 18:24 #2

kør et loop uden om en tabel og wupti

Synes godt om

caroc Praktikant

12. marts 2003 - 18:24 #3

er ikek så hardcore så skal nok have det beskrevet lidt bedre :)

Synes godt om

no_doubt Nybegynder

12. marts 2003 - 18:30 #4

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../database/nyheder.mdb")
Conn.Open DSN

strSQL = "select top 3 * From nyheder Order by dato Desc"
Set rs = Conn.Execute(strSQL)

%>
<html>

<head>
<title></title>
</head>

<body>

<table width="100%" border="1" cellspacing="0" cellpadding="0" align="center"
bordercolor="#323231">
<%do while not rs.EOF%>
<tr>
<td><table width="100%" align="center" cellpadding="0" cellspacing="0">
<tr bgcolor="#f0f0ec">
<td colspan="2"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><b><%=rs("overskrift")%></b></font></td>
</tr>
<tr>
<td style="border-bottom: 1px dotted #323231; border-top: 1px dotted #323231;" colspan="2"><font
size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=rs("indhold")%> <br>
</font></td>
</tr>
<tr>
<td bgcolor="#f0f0ec"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Dato:<%=rs("dato")%></font></td>
<td bgcolor="#f0f0ec"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><p
align="right">Af:<%=rs("forfatter")%></font> </td>
</tr>
</table>
</td>
</tr>
<%rs.movenext
loop
end if
%>
</table>
<%
Conn.Close
Set Conn = Nothing
%>
</body>
</html>

Prøv med denne

Synes godt om

no_doubt Nybegynder

12. marts 2003 - 18:31 #5

var et svar

Synes godt om

caroc Praktikant

12. marts 2003 - 18:42 #6

hvordan skal jeg så få det ind i resten af min HTML kode?
har prøvet at include men det virker ikke

Synes godt om

no_doubt Nybegynder

12. marts 2003 - 18:44 #7

det er koden til at få vist de 3 nyeste samt der bliver lavet en tabel til dem hver.

Synes godt om

caroc Praktikant

12. marts 2003 - 18:49 #8

jeg poster lige min kildekode hvor jeg har prøvet at sætte din kode ind:

<html>
<head>
<title>- MOUNT - </title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">

</style>
</head>

<body bgcolor="#FFFFFF" text="#000000" topMargin=0 marginheight="0" marginwidth="0" link="#000000" vlink="#000000" alink="#000000">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td colspan="2" bgcolor="#323231" valign="bottom" height="2">
<blockquote>
<p><img src="logo.gif" width="230" height="50"></p>
</blockquote>
</td>
<td width="30%" bgcolor="#323231" valign="top" height="2">
<div align="right">
<table width="100%%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="95%">
<div align="right"><a href="index.shtml" target="_parent"><img src="home.gif" width="57" height="30" border="0"></a><a href="kontakt.shtml" target="_parent"><img src="kontakt.gif" width="84" height="30" border="0"></a></div>
</td>
<td width="5%"> </td>
</tr>
</table>
</div>
</td>
</tr>
<tr>
<td style="border-left: 1px dotted #007525;" bgcolor="#FFFFFF" height="6" width="55%" valign="top">

</td>
<td style="border-left: 1px dotted #323231; border-right: 1px dotted #323231;" width="8%" bgcolor="#f0f0ec" height="2"> </td>
<td rowspan="2" bgcolor="#CCCCCC" height="320" background="grafik/gul.jpg" width="30%" valign="bottom">
<div align="right"></div>
</td>
</tr>
<tr>
<td style="border-left: 1px dotted #323231;" height="246" bgcolor="#FFFFFF" valign="top"><br>
<br>
<table width="92%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="11%"> </td>
<td width="89%">
<p align="justify">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../database/nyheder.mdb")
Conn.Open DSN

strSQL = "select top 3 * From nyheder Order by dato Desc"
Set rs = Conn.Execute(strSQL)

%></p>
<table width="100%" border="1" cellspacing="0" cellpadding="0" align="center"
bordercolor="#323231">
<%do while not rs.EOF%>
<tr>
<td><table width="100%" align="center" cellpadding="0" cellspacing="0">
<tr bgcolor="#f0f0ec">
<td colspan="2"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><b><%=rs("overskrift")%></b></font></td>
</tr>
<tr>
<td style="border-bottom: 1px dotted #323231; border-top: 1px dotted #323231;" colspan="2"><font
size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=rs("indhold")%> <br>
</font></td>
</tr>
<tr>
<td bgcolor="#f0f0ec"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Dato:<%=rs("dato")%></font></td>
<td bgcolor="#f0f0ec"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><p
align="right">Af:<%=rs("forfatter")%></font> </td>
</tr>
</table>
</td>
</tr>
<%rs.movenext
loop
end if
%>
</table>
<%
Conn.Close
Set Conn = Nothing
%>

</td>
</tr>
</table>
</td>
<td style="border-left: 1px dotted #323231; border-right: 1px dotted #323231;" width="8%" bgcolor="#f0f0ec" height="246"> </td>
</tr>
<tr bgcolor="#323231">
<td height="86" valign="top" colspan="3">
<p> </p>
<p> </p>
</td>
</tr>
</table>
<p> </p>
</body>
</html>

Synes godt om

no_doubt Nybegynder

12. marts 2003 - 19:03 #9

send det til mark.mikkelsen@mail.dk med database osv.

Synes godt om

caroc Praktikant

12. marts 2003 - 19:06 #10

sendt..

Synes godt om

no_doubt Nybegynder

12. marts 2003 - 19:16 #11

http://1q.frip.dk/eksperten/327941/nyheder2.asp

?

Synes godt om

no_doubt Nybegynder

12. marts 2003 - 19:21 #12

Din dato er i et tekstfield altså har jeg sat det til at arrangere efter det ældste id først så det nyeste kommer på, en anden måde du kan gøre det på er at når du skriver noget ind i nyhederne, laver du feltet om til dato klokkeslet og derefter indsætter med now() i scriptet men nu ved jeg ikke hvordan du indskriver såå..

Synes godt om

caroc Praktikant

12. marts 2003 - 19:48 #13

har du kildekoden til filen?

Synes godt om

no_doubt Nybegynder

12. marts 2003 - 19:50 #14

Ja

fjernet din include så den må du selv sætte ind

<html>

<head>
<title>- MOUNT - </title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">

</style>
</head>

<body bgcolor="#FFFFFF" text="#000000" topMargin="0" marginheight="0" marginwidth="0"
link="#000000" vlink="#000000" alink="#000000">

<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#323231" valign="bottom" height="2"><blockquote>
<p><img src="logo.gif" width="230" height="50"></p>
</blockquote>
</td>
<td width="30%" bgcolor="#323231" valign="top" height="2"><div align="right"><table
width="100%%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="95%"><a href="index.shtml" target="_parent"></td>
</tr>
</table>
<dd align="right"><img src="home.gif" width="57" height="30" border="0"></a><a
href="kontakt.shtml" target="_parent"><img src="kontakt.gif" width="84" height="30"
border="0"></a></dd>
</div></td>
<td width="5%"></td>
</tr>
</table>

<table>
<tr>
<td style="border-left: 1px dotted #007525;" bgcolor="#FFFFFF" height="6" width="55%"
valign="top"></td>
<td style="border-left: 1px dotted #323231; border-right: 1px dotted #323231;" width="8%"
bgcolor="#f0f0ec" height="2"></td>
<td rowspan="2" bgcolor="#CCCCCC" height="320" background="grafik/gul.jpg" width="30%"
valign="bottom"><div align="right"></div></td>
</tr>
<tr>
<td style="border-left: 1px dotted #323231;" height="246" bgcolor="#FFFFFF" valign="top"><br>
<br>
<table width="92%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="11%"></td>
<td width="89%"><p align="justify"><%
set rs = server.CreateObject("ADODB.Recordset")
set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("nyheder.mdb")

strSQL = "select top 3 * From nyheder Order by ID1 DESC"
Set rs = Conn.Execute(strSQL)

%></p>
<p><%do while not rs.EOF%> </p>
<table width="100%" border="1" cellspacing="0" cellpadding="0" align="center"
bordercolor="#323231">
<tr>
<td><table width="100%" align="center" cellpadding="0" cellspacing="0">
<tr bgcolor="#f0f0ec">
<td colspan="2"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><b><%=rs("overskrift")%></b></font></td>
</tr>
<tr>
<td style="border-bottom: 1px dotted #323231; border-top: 1px dotted #323231;" colspan="2"><font
size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=rs("indhold")%> <br>
</font></td>
</tr>
<tr>
<td bgcolor="#f0f0ec"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Dato:<%=rs("dato")%></font></td>
<td bgcolor="#f0f0ec"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><p
align="right">Af:<%=rs("forfatter")%></font> </td>
</tr>
</table>
</td>
</tr>
</table>
<%rs.movenext
loop
%>
<%
Conn.Close
Set Conn = Nothing
%>
</td>
</tr>
</table>
</td>
<td style="border-left: 1px dotted #323231; border-right: 1px dotted #323231;" width="8%"
bgcolor="#f0f0ec" height="246"></td>
</tr>
<tr bgcolor="#323231">
<td height="86" valign="top" colspan="3"> <p> </td>
</tr>
</table>

<p> </p>
</body>
</html>

Synes godt om

caroc Praktikant

12. marts 2003 - 20:04 #15

mange mange tak!!

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