.inte hela texten

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 :)

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

------------------
Forumledare, webForum

<%
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

------------------
MVH
Harback

[Redigerat av Harback den 17 okt 2001]

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)

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.

------------------
Forumledare, webForum

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å.

------------------
essentitia preter non sans multiplicandum

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 :)

------------------
Forumledare, webForum

[Redigerat av Hallgren den 17 okt 2001]

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

------------------
Kallepocket

Funkar bra! :)

------------------
Forumledare, webForum