7 svar · 331 visningar · startad av ragnared
Min fråga till er är hur man kan få 10 nyheter dom allra nyaste till att dela upp sig. Vad jag menar är att dom 5 senaste ska ligga med bild och rubrik och sedan ska det komma 5 till med bara rubriken. Hoppas det finns någon personer som förstår vad jag menar.
Typ nåt sånt här?
strSQL = "SELECT * FROM nyheter ORDER BY datum DESC"
Set objRS = objConn.Execute(strSQL)
i = 0
Do Until objRS.EOF OR i = 5
Response.Write(objRS("bild"))
Response.Write(objRS("rubrik"))
i = i + 1
objRS.MoveNext
Loop
i = 0
Do Until objRS.EOF OR i = 5
Response.Write(objRS("rubrik"))
i = i + 1
objRS.MoveNext
Loop
/red Btw, välkommen till wF!
Välkommen till wF ragnared! :bire
Här kommer ett kodexempel på hur du kan göra.
Den utgår från att du redan skapat ett recordset med minst 10 poster.
<%
Dim i
i = 1
do until rs.eof or i = 10
select case i
case 1, 2, 3, 4, 5
response.write("STORA NYHETER")
case 6, 7, 8, 9, 10
response.write("[1]små nyheter[/1]")
case else
response.write("resten")
end select
rs.movenext
loop
%>
Välkommen till wF
sql ="select top 10 * from nyheter order by id desc"
set rs = connect.execute(sql)
if rs.eof then
response.write "<p>inget hittades</p>"
else
arrRecords = rs.getrows()
for i = 0 to ubound(arrRecords, 2)
if i < 5 then
' skriv ut med bild
else
' skriv ut utan bild
end if
next
end if
Så här kanske:
Set objConn = Server.CreateObject("ADODB.Connection"
objConn.Open ("Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& server.MapPath("/Din_databas.mdb"))
strSQL = "SELECT * FROM nyheter ORDER BY datum DESC"
Set objRS = objConn.Execute(strSQL)
i = 0
Do Until objRS.EOF OR i = 5
Response.Write(objRS("bild"))
Response.Write(objRS("rubrik"))
i = i + 1
objRS.MoveNext
Loop
i = 0
Do Until objRS.EOF OR i = 5
Response.Write(objRS("rubrik"))
i = i + 1 objRS.MoveNext
Loop
ObjRS.close : objConn.close
Om man vill att ett ord ska ha bara tex 60 tecken hur gör man då. Nästa längst ner i scriptet under ska den skriva ut pentry där vill jag att den ska bara skriva ut 60 tecken. Annars blir det för långt.
Det ser ut så här om ni inte hittar det:
<% Response.Write(objRS("pentry"))%>
<% i = i + 1
objRS.MoveNext
Loop
i = 0
%>
<table border="0" cellpadding="2" cellspacing="1" style="border-collapse: collapse" bordercolor="#111111" width="585" height="17" id="AutoNumber1">
<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open ("Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& server.MapPath("databaser/main.mdb"))
strSQL = "SELECT * FROM nytt ORDER BY id DESC"
Set objRS = objConn.Execute(strSQL)
i = 0
%>
<%
HowMany="400"
%>
<%
Do Until objRS.EOF OR i = 5
%>
<tr>
<td width="585" height="10"><font size="2" face="Verdana">
<img SRC="bilder/<% Response.Write(objRS("bild"))%>" VSPACE=0 BORDER=0 ALIGN="RIGHT" ALT="">
<b><% Response.Write(objRS("titel"))%></b>
<br>
<% Response.Write(objRS("pentry"))%>
<% i = i + 1
objRS.MoveNext
Loop
i = 0
%></td>
</tr>
\<tr\>
\<td width="585" height="3"\>\</td\>
\</tr\>
</table><br>
<table border="0" cellpadding="2" cellspacing="1" style="border-collapse: collapse" bordercolor="#111111" width="585" height="17" id="AutoNumber1">
<%
Do Until objRS.EOF OR i = 5 %>
<tr>
<td width="585" height="10"><font size="2" face="Verdana"><% Response.Write(objRS("pdate"))%>
\<% Response.Write(objRS("titel"))
i = i + 1
objRS.MoveNext
Loop
%>
</td>
</tr>
</table>
<%
ObjRS.close : objConn.close
%>
Byt ut
<% Response.Write(objRS("pentry"))%>
mot
<%
If Len(objRS("pentry")) > 60 Then
Response.Write(Left(objRS("pentry"), 60))
Else
Response.Write(objRS("pentry"))
End If
%>