Hej jag har en hyhetssida drä jag visar hela nyheterna men ny sak jag göra en spalt med 50 tecken av varje nyhet och sedan läs mer hur gör jag då Hej Det funkade perfekt Left(rs("USER_MESSAGE"), 50) Du kan ju lägga hela rs("USER_MESSAGE") i en gömd div som du visar vid klick på "Läs mer>>>"nyheter en rad sedan >>>läs mer
Här är koden för sidan nu
<%
'Räknare
currentPage = request.queryString ("id")
If currentPage = "" then
currentPage = "1"
End If
pageSize = 10 'sätter upp hur många inlägg det ska vara på varje sida
Records = rs.RecordCount 'Räknar i db antal sidor, inlägg
if NOT (Records = 0) then
rs.pageSize = pageSize
rs.AbsolutePage = currentPage
End If
pageNext = currentPage + 1
pagePrev = currentPage - 1
Pages = Records \ pageSize
if Records mod pageSize then
Pages = Pages + 1
End If
%><%
if NOT (CInt(Records) = 0) then 'talar om att ingen finns
Do While (Not rs.EOF) and (currentRecords < pageSize)
currentRecords = currentRecords + 1
%>
<hr size="-1">
</td>
</tr>
<tr>
<td><i><%= rs ("USER_date") %></i><br>
<b><%= rs("USER_NAME") %></b><br>
<%= rs("USER_MESSAGE") %></td>
</tr>
<tr>
<td><%
rs.MoveNext
Loop
else
response.write ("<P align=center></center><br>") & VBCRLF
End If
%><%
rs.Close
Set rs = Nothing
dc.Close
Set dc = Nothing
%></td>Sv: nyheter en rad sedan >>>läs mer
Vilken databashanterare har du?
Om du använder SQL så är det bäst att i select-satsen begränsa meddelandet till 50 tecken mha LEFT(USER_MESSAGE, 50). Annars kan du göra det där du lägger ut USER_MESSAGE:
Left(rs("USER_MESSAGE"), 50)
/PeterSv: nyheter en rad sedan >>>läs mer
Nu ska jag få till funktionen Läs mer>>> Hur gör jag det rent praktiskt då måste man väl anropa databasen eller hur???Sv: nyheter en rad sedan >>>läs mer