textarea hvor rows defineres af indholdet på et db felt

<ole>

Det kan du ikke umiddelbart. Så skal du først hælde indholdet ned i f.eks. et skjult div, der er stylet nøjagtigt som dit textarea - måle div'ets højde - sætte dit textarea til samme højde - og hælde indholdet ned i textarea'et.

Scrollbaren skal naturligvis også styles ind i div'et, så det opfører sig nøjagtig som textarea'et ... det er noget bøvl, men kan sikkert laves, så det virker forholdsvis okay i forskellige browsere(?)  :)

/mvh
</bole>

ved godt det ikke er mit spm, men hvordan måler du højden af en div hvis indhold er dynamisk olebole?

thx ole, hmmm det virker lidt besværligt. Kan det gøre i en løkke?

ala:
        Do While Not rs.EOF
        varStatus = rs("MOC_status")
        varStelnr = rs("MOC_stelnr")
        varAnm = rs("S_V_NT_bem") %>
                <tr bordercolor="#000000">
                    <td valign="top" align="right"><font style="background-color:#<%=varStatus%>;"><%=varStelnr%></font></td><td><%If varAnm <> "" Then%><textarea cols="80" rows="5" class="tdbgcolor"><%=varAnm%></textarea><%End if%></td>
                </tr>
    <%    rs.MoveNext
        Loop %>

Hvis du nu altid vil have 80cols og kun variere rækker efter det. Så kunne du cirka regne med 80cols svarer til 80bogstaver.
Antallet af rows bliver så lig længden af indholdet fra feltet i databasen divideret med 80 og rundet op.
Så vidt jeg kan se har ASP i VBscript kun en Round funktion som runder spøjst af. Runder op hvis det bliver lige og ned hvis det bliver ulige. For ikke gøre for meget ud af det så tjekker jeg herunder ikke om tallet er lige eller ulige. Men lægger blot en til. Hvis du ønsker det "perfekt" så skal der tjekkes for det også
----
Do While Not rs.EOF
varStatus = rs("MOC_status")
varStelnr = rs("MOC_stelnr")
varAnm = rs("S_V_NT_bem")
varRows = Round(Len(varAnm)/80)%>
<tr bordercolor="#000000">
  <td valign="top" align="right">
  <font style="background-color:#<%=varStatus%>;"><%=varStelnr%></font>
  </td>
  <td><%If varAnm <> "" Then%><textarea cols="80" rows="<%=varRows%>" class="tdbgcolor"><%=varAnm%></textarea><%End if%></td>
</tr>
<%
rs.MoveNext
Loop %>

og så lagde jeg ikke en til som sagt..tsk tsk
----
Do While Not rs.EOF
varStatus = rs("MOC_status")
varStelnr = rs("MOC_stelnr")
varAnm = rs("S_V_NT_bem")
varRows = Round(Len(varAnm)/80)+1%>
<tr bordercolor="#000000">
  <td valign="top" align="right">
  <font style="background-color:#<%=varStatus%>;"><%=varStelnr%></font>
  </td>
  <td><%If varAnm <> "" Then%><textarea cols="80" rows="<%=varRows%>" class="tdbgcolor"><%=varAnm%></textarea><%End if%></td>
</tr>
<%
rs.MoveNext
Loop %>

Hey B

Null er brugt ugyldigt: 'Round'

i linjen med:
varRows = Round(Len(varAnm)/80)+1

men ellers ser koden lovende ud ;)

Null?...
Det kan vel kun betyde at varAnm er Null ... som betyder at rs("S_V_NT_bem") er Null
Kan den være det i din database?

varAnm = rs("S_V_NT_bem")
                    if IsNull(varAnm) then varAnm = ""
                    varRows = Round(Len(varAnm)/80)+1%>

løser det problem


Men højden af rows er for lille...

Det holder ikke at tælle på 80 tegn.

Der bliver brugt ENTER efter bare 20 tegn, så de 80 tegn pr række holder ikke ...

kan man tælle på ENTER?

afhængig af alverdens halløj så bliver enter enten tolket som \r eller \n eller vbCrLf

jeg vil umiddelbart tro du kan teste din streng for forekomst af \n

ok, prøver

fik fikset dette sammen der tager højde for ENTER ;)

                    varAnm = rs("S_V_NT_bem")
                    if IsNull(varAnm) then varAnm = ""
                    varVbCrLf = split(varAnm, vbCrLf)
                    varVbCrLf = ubound(varVbCrLf)
                    varRows = Round(Len(varAnm)/200)+varVbCrLf


<textarea cols="80" rows="<%=varRows%>"

busschou svar plz :)

oki.. godt det virker :o)