... (efter 70tegn)

text = (Left(text, 70)&\"...\"

hvor text er det du får fra din database...

jeg har fikset denne funktion som laver teksten om hvis den er længere end de tegn de fastsætter, hvis teksten er kortere, forbliver teksten som den er uden ...

<%
Function splitText(text, length)
  If Len(text) > length Then
    text = Left(text, (length-3)) & \"...\"
  End If
  splitText = text
End Function

Response.Write splitText(\"Dette er en test\", 10)
%>

her må teksten være 10 tegn og husk samtidig at den går 3 tegn tilbage og sætter ... således forbliver den 10 lang og ikke 13.....

Hvorfor kan man så ikke skrive:

<%
Function splitText(text, length)
  If Len(text) > length Then
    text = Left(text, (length-3)) & \"...\"
  End If
  splitText = text
End Function

Response.Write splitText(\"<%=MedlemsInfo%>\", 10)
%>
Jeg ville jo gerne at den tog teksten fra en database

du skriver asp inde i asp.........den skal se sådan ud:

<%
Function splitText(text, length)
  If Len(text) > length Then
    text = Left(text, (length-3)) & \"...\"
  End If
  splitText = text
End Function

Response.Write splitText(MedlemsInfo, 10)
%>

Det er fordi jeg har en tabel der hedder medlemsInfo så ville jeg jo gerne at den hev data ud fra den og satte dem der ind i. Nu skriver den jo bare \"MedlemsInfo\"

Ehhhmm, du har ikke ASP\'et så meget har du ?

hvad hedder dit recordset, fx: rs eller lignende......jeg går ud fra at du allerede udskriver teksten nu, bare uden ... - der hvor den udskriver nu skal puttes ind i den funktion jeg lavede...

post filen her hvis du ikke kan finde ud af det, så retter jeg det..........HELE FILEN!

Hva\' med en email adresse?

Vi andre vil da også gerne kigge med - Sådan er det her ....

Det kunne være at vi kunne lære noget (nyt)

mvh martens

Bare skriv en email adresse hvis du også gerne vil have min database, men det er ganske almindelig SQL intet at prale af.

bare post filen her......det er ret lidt der skal rettes hvis du har lavet recordset, du får ikke min mailadresse......den er belastet nok i forvejen :-)

Her er det simple dokument der henter de forespurgte data, I kan vel næsten gætte jer til hvordan db\'en ser ud:

<html>

<head>
<title>Medlemmer</title>
</head>

<body>
<%

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"db.mdb\")

SQLstmt = \"SELECT * FROM Medlemmer WHERE Id = \" & request(\"Id\")

Conn.Execute (SQLstmt)

Set rs = conn.Execute(SQLstmt) 
 
    MedlemsInfo = rs(\"MedlemsInfo\")
    MedlemsRang = rs(\"MedlemsRang\")
%>
<div align=\"center\">
  <center>
  <table border=\"0\" cellspacing=\"1\" width=\"10\">
    <tr>
      <td width=\"2\">
<%=MedlemsInfo%>
        <p>&nbsp;</td>
    </tr>
    <tr>
      <td width=\"2\">
<%=MedlemsRang%>
        <p>&nbsp;</td>
    </tr>
  </table>
  </center>
</div>
<%
RS.Close

conn.Close
Set conn = nothing
Set SQLstmt = nothing
%>
</body>

</html>

<html>

<head>
<title>Medlemmer</title>
</head>

<body>
<%
Function splitText(text, length)
  If Len(text) > length Then
    text = Left(text, (length-3)) & \"...\"
  End If
  splitText = text
End Function

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"db.mdb\")

SQLstmt = \"SELECT * FROM Medlemmer WHERE Id = \" & request(\"Id\")

Conn.Execute (SQLstmt)

Set rs = conn.Execute(SQLstmt) 
 
    MedlemsInfo = rs(\"MedlemsInfo\")
    MedlemsRang = rs(\"MedlemsRang\")
%>
<div align=\"center\">
  <center>
  <table border=\"0\" cellspacing=\"1\" width=\"10\">
    <tr>
      <td width=\"2\">
<%=splitText(MedlemsInfo, 70)%>
        <p>&nbsp;</td>
    </tr>
    <tr>
      <td width=\"2\">
<%=MedlemsRang%>
        <p>&nbsp;</td>
    </tr>
  </table>
  </center>
</div>
<%
RS.Close

conn.Close
Set conn = nothing
Set SQLstmt = nothing
%>
</body>

</html>

<%
Function splitText(text, length)
  If Len(text) > length Then
\' Hvis len=længde af teksten er større SÅ
    text = Left(text, (length-3)) & \"...\"
\' Gå tre tilbage og erstat med \"...\"
  End If
  splitText = text
\' Erklære variablen \"tekst\" så næsten gang vi
\' kalder den skal der skrive \"splittext\"
End Function

Response.Write splitText(\"Dette er en test\", 10)
%>

Rigtig?

yep, det er sådan :-) ret simpelt ikke :-)