News system
Heysa Har et news system som jeg godt kunne tænke mig en ny opstilling på :)Skal være ligesom den er nu www.frip.dk/ghostweb/ny/news
Bare hvor det bliver vist sådan:
Billed
News
AF
------------------
News Billed
af
hvis i ikke kan forstå laver jeg gerne et billed så i forstår bedere :D
min kode:
<!-- #include file="admin.asp" -->
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("database.mdb")
Conn.Open DSN
strSQL = "Select * from news order by ID desc"
set rs = Conn.Execute(strSQL)
%>
<%
Do While not rs.eof
%>
<table border="0" width="100%">
<tr>
<td rowspan="3" valign="top" width="18"><font size="1" face="Verdana"><img border="0" src="<%=rs("billede")%>"></font></td>
<td width="100%" valign="top"><font size="1" face="Verdana"><%=rs("overskrift")%></font></td>
</tr>
<tr>
<td width="100%" valign="top"><font size="1" face="Verdana"><%=rs("nyhed")%></font></td>
</tr>
<tr>
<td width="100%" valign="top">- Skrevet af: <%=rs("af")%></td>
</tr>
</table>
<hr style="border: 1 dotted black" width="200" size="1" color="black">
<%
%>
<%
rs.Movenext
loop
rs.close
set rs = nothing
Conn.Close
Set Conn = Nothing
%>
