Udskrift af indhold på langs...

Jeg har svaret dette spørgsmål under ASP: http://www.eksperten.dk/spm/249535

hmmm kan ikke lige få det hen... hvis du nu får min kode.. gider du så tilrette det??? er ik så god til det skidt..

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

SQL = "Select TOP 5 * from Nyheder order by id DESC"
Set rs = Conn.Execute(SQL)%>
<html>
<head>
<title>main</title>
</head>
<body>
<div align="center">
  <center>
<table border="0" cellspacing="0" width="93%" id="AutoNumber12" style="border-collapse: collapse" bordercolor="#111111" cellpadding="0" height="100">
  <tr>
    <td width="100%" height="45">
    <table border="0" cellspacing="7" width="101%" id="AutoNumber13" style="border-collapse: collapse" bordercolor="#111111" cellpadding="0" height="30">
      <tr>
        <td width="99%" style="border-bottom:medium none #E0E0E0; border-left-width: 1; border-top-width: 1" height="1" valign="top" colspan="3">
        <p align="center">
        <b><font face="Tahoma"><u>Nyheder:<br>
        </u><font size="1">&nbsp;</font></font></b></td>
      </tr>
      <%Do While not rs.EOF%>
      <tr>
        <td width="33%" style="border-left-width: 1; border-bottom-width: 1; border-top-style:none; border-top-width:medium" height="14" valign="top">
        <font face="Tahoma"><b><font size="2"><%=rs("initialer")%></font><br>
        <font size="1">Torsdag d. 17. Oktober</font></b><br>
        <font size="1"><%=rs("nyhed")%> <br>(Skrevet <%=rs("Dato")%>)</b></font></font></td>
        <td width="33%" style="border-left-width: 1; border-bottom-width: 1; border-top-style:none; border-top-width:medium" height="14" valign="top">
        </td>
        <td width="33%" style="border-left-width: 1; border-bottom-width: 1; border-top-style:none; border-top-width:medium" height="14" valign="top">
        </td>
      </tr>
      <tr>
        <td width="33%" style="border-left-width: 1; border-bottom-width: 1; border-top-style:none; border-top-width:medium" height="7" valign="top">
        </td>
        <td width="33%" style="border-left-width: 1; border-bottom-width: 1; border-top-style:none; border-top-width:medium" height="7" valign="top">
        </td>
        <td width="33%" style="border-left-width: 1; border-bottom-width: 1; border-top-style:none; border-top-width:medium" height="7" valign="top">
        </td>
      </tr>
      </table>
    </td>
  </tr>
  </table>
  </center>
</div>
<p align="center" style="margin-top: 0; margin-bottom: 0">
</p>

</body>

</html>

send en kopi af din side og datbasen til mig så jeg kikker på den. mach3@get2net.dk
PS: Du skal flytte din spm. til ASP

can you move this question to the correct category! This is Access NOT HTML or ASP!

Att.: Hossein:

Så er mailen sendt.

plentyforce: Du får det i aften.

Her er koden:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("../../db/streetracers.dk.mdb")


Conn.Open DSN

SQL = "Select TOP 5 * from Nyheder order by id DESC"
Set rs = Conn.Execute(SQL)%>
<html>
<head>
<title>main</title>
</head>
<body>
<%
Response.Write"<table border=0 cellspacing=35 cellpading=20>"
LinkCount = 0
Do Until rs.EOF
'skift tallet 5 til den ønskede antal kolonner
If LinkCount Mod 5 = 0 Then
    If LinkCount <> 0 Then Response.Write"</tr>"
            Response.Write "<tr><td>" & RS("initialer") & "<BR>"& RS("Dato") & "<BR>"& RS("nyhed") & "</td>"
            'Response.Write "<tr><td>"& RS("firstname") & "</td>"

    Else
            Response.Write "<td>" & RS("initialer") & "<BR>"& RS("Dato") & "<BR>"& RS("nyhed") & "</td>"
            'Response.Write "<td>"& RS("firstname") & "</td>"
    End If
    LinkCount = LinkCount + 1
    rs.MoveNext
Loop
Response.Write"</tr></table>"
rs.Close
Set rs = Nothing

%>
</body>
</html>