Avatar billede lucy Nybegynder
05. april 2001 - 13:28 Der er 7 kommentarer og
2 løsninger

Begrænsning af visning....

Hvordan laver jeg så der max. vises 20 tegn pr. linie.
Som eks. her på eksperten i venstre side under nyeste indlæg. Jeg vil gerne undgå at en overskrift fylder mere end 20 tegn når den vises selvom overskriften egentlig er på 30 tegn. Hvad gør jeg?

Se udskrift af fil:

Dim Conn, RS
        Set Conn     = Server.CreateObject(\"ADODB.Connection\")
        Conn.Open Application(\"Database\")
        Set RS     = Server.CreateObject(\"ADODB.Recordset\")
        Dim temp
        temp = 0
        RS.CursorType    = adOpenStatic

        Select case streng
        case \"spg\"
            RS.Open \"SELECT Svar_ID, Overskrift FROM TSvar WHERE SvarTil=0\", Conn
        case \"ind\"
            RS.Open \"SELECT Svar_ID, Overskrift FROM TSvar\", Conn
        end select
       
        RS.MoveLast
            While NOT RS.bof AND Temp < 5
                Response.write \"<a href=\"\"sesvar.asp?ID=\"& RS(\"Svar_ID\") &\"\"\">\"& RS(\"Overskrift\") &\"\"
                Response.write \"</a><br>\"
                Temp = Temp + 1
            RS.MovePrevious
        Wend
        RS.Close
        Set RS = NOTHING
        Conn.Close
        Set Conn = NOTHING
    end sub
Avatar billede minijensen1 Nybegynder
05. april 2001 - 13:31 #1
Brug Left(RS(\"Svar_ID\"), 20). Så skriver den kun det første 20 tegn!
Avatar billede dudal Nybegynder
05. april 2001 - 13:33 #2

            While NOT RS.bof AND Temp < 5
overskrift = LEFT(RS(\"Overskrift\") ,20)
overskrift = LEFT(overskrift,INSTREV(overskrift,\" \")) & \"...\"
                Response.write \"<a href=\"\"sesvar.asp?ID=\"& RS(\"Svar_ID\") &\"\"\">\"& overskrift &\"\"
                Response.write \"</a><br>\"
                Temp = Temp + 1
            RS.MovePrevious
        Wend
Avatar billede dudal Nybegynder
05. april 2001 - 13:33 #3
Ovenstående gør at der ikke bliver brudt midt i et ord.

/Jesper
Avatar billede lucy Nybegynder
05. april 2001 - 13:39 #4
Tak - I deler pointene. Begge  svar er givtige - tak
Avatar billede lucy Nybegynder
05. april 2001 - 14:34 #5
Lige en lille detalje - Nu får jeg svaret:

Microsoft VBScript runtime error \'800a01f4\'

Variable is undefined: \'overskrift\'

/inc/left.asp, line 60
Avatar billede dudal Nybegynder
05. april 2001 - 14:37 #6
Hvis du kører med Option Explicit skal du huske

Dim oversigt
Avatar billede lucy Nybegynder
05. april 2001 - 14:50 #7
Nu driller det lidt. Jeg ændrede til:
Dim, Conn, RS, overskrift

og får flg:

Microsoft VBScript runtime error \'800a01f4\'

Variable is undefined: \'INSTREV\'

/inc/left.asp, line 61
Avatar billede dudal Nybegynder
05. april 2001 - 15:08 #8
Ups... Typo.. INSTRREV istedet.
Avatar billede lucy Nybegynder
05. april 2001 - 15:10 #9
JUBIIIIIIIIIII - Det lykkedes - Stor TAK
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester