---
title: ".inte hela texten"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/12160-inte-hela-texten"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Hallgren"
published: "2001-10-17T20:10:00.000Z"
updated: "2001-10-18T11:44:00.000Z"
replies: 9
views: 268
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/12160-inte-hela-texten"
---

# .inte hela texten

## #1 — Hallgren, 2001-10-17T20:10Z

Yo!

Efter man sökt på något så kommer en större mängd info visas men jag vill att bara en del av texten ska visa och man ska sedan kunna klicka vidare för att läsa all text. 
Det ska typ vara: 
Bla, bla, bla, bla, bla...

Går detta att göra?

Permalänk: https://www.webforum.nu/p/12160

## #2 — nill, 2001-10-17T20:17Z

du kan ju alltid använd DHTML och dölja den långa texten i ett lager och när man klickar visa lagret.    Fast det var kanske något mer avancerat du var ute efter :)

Permalänk: https://www.webforum.nu/p/292361

## #3 — Hallgren, 2001-10-17T20:18Z

jepp! :) men tack för förslaget!

Permalänk: https://www.webforum.nu/p/292362

## #4 — Harback, 2001-10-17T20:31Z

```
<%
str = "Nu kapar vi denna sträng efter 15 ord och lägger till tre punkter efter"

If Len(str) > 15 Then
str = Left(str,15) & "..."
End If

Response.Write str 
%>
```

Här kollar vi ifall strängen innhåller mer än 15 tecken och i detta fall kapar vi strängen där och skriver dit ... efter.
Om inte strängen innehåller så många tecken så skriver den inte till ...

Om du vet att texten alltid ska vara lång (över ett visst antal tecken) behöver du bara skriva så här:

```
str = "Nu kapar vi denna sträng efter 15 ord och lägger till tre punkter efter"
str = Left(str,15) & "..."
Response.Write str
```

Permalänk: https://www.webforum.nu/p/292363

## #5 — nill, 2001-10-17T20:33Z

Nått sånt här då (har inget att göra :) :

text = (all text)
tecken = så många tecken du vill visa

uttext= left(text, tecken)

Permalänk: https://www.webforum.nu/p/292364

## #6 — Hallgren, 2001-10-17T20:44Z

Mmm, har lite svårt att se hur jag få in funktionen. Jag använder..

```
If rsvara.eof Then 
	response.write "Varan finns inte!" 
else
	Do until rsvara.EOF 
		response.write "<a href='vara.asp?varuid=" & rsvara("id") & "'>" & rsvara("vara") & "</a>"  & "<br>"
	rsvara.Movenext 
	Loop 
End If
```

för att loopa ut all text.

Permalänk: https://www.webforum.nu/p/292365

## #7 — LarsG, 2001-10-17T20:48Z

T.ex. att du har en sida där man kan ange ett sökvillkor som då submittar till denna sida (show.asp). 
Den listar en del av innehållet i de poster som hittas tillsammans med en länk. Den länken skickar ett id till samma sida och man hamnar då i else-grenen där man skriver ut hela texten.

```
<% 
dim connect,sql,rs
set connect = server.createobjec("adodb.connection")
connect.open "dsn"
if request.querystring("id") = "" then
'
' visa alla texter med länkar (eventuellt med sökvillkor)
'
  dim searchCriteria
  searchCriteria = replace(request.form("search"),"'","''")
  sql = "select id,contents from ogrish where title like '%" searchCriteria & "%'"
  set rs = connect.execute(sql)
  if rs.eof then
     %> 
  Inget hittades <br>
  <input type=Submit value="Tillbaka" onclick="javascript:history.go(-1)">
<%
else
  while not rs.eof
    response.write left(rs("contents"),60) & "... "
    response.write "<a href="show.asp?id=" & rs("id") & ">Läs mer</a><br>"
    rs.movenext
  wend
end if
  rs.close
else
  sql = "select contents from ogrish where id = " & request.querytring("id")
  set rs = connect.execute(sql)
  if not rs.eof then response.write rs("contents")
  rs.close
  
end if
connect.close
%>
```

Ett uppkast som du kanske kan bygga vidare på.

Permalänk: https://www.webforum.nu/p/292366

## #8 — Hallgren, 2001-10-17T21:04Z

Arrggh! ;)
Det är alltid lika roligt att få kod från din LarsG MEN nu krånglar du till det för mig. :e

Kan du inte visa hur jag får in funktionen i min befintliga kod? 

Då jag verkligen försöker att lära mig de här funktionerna så vill jag inte behöva gå igenom massor av ny kod.
Du behöver inte gå in på querytrings och sånt, det löster jag. :)

Hoppas du förstår vart jag kommer ifrån :)

Permalänk: https://www.webforum.nu/p/292367

## #9 — kallepocket, 2001-10-17T21:17Z

Något sånt här va:

```
If rsvara.eof Then 
response.write "Varan finns inte!" 
else
Do until rsvara.EOF 
response.write "<a href='vara.asp?varuid=" & rsvara("id") & "'>" & Left(rsvara("vara"),15) & "...</a>" & "<br>"
rsvara.Movenext 
Loop 
End If
```

Permalänk: https://www.webforum.nu/p/292368

## #10 — Hallgren, 2001-10-18T11:44Z

Funkar bra! :)

Permalänk: https://www.webforum.nu/p/292369

---

Tråden på webben: https://www.webforum.nu/amne/asp/12160-inte-hela-texten