Avatar billede mkiii Nybegynder
01. august 2005 - 18:43 Der er 6 kommentarer og
2 løsninger

Hjælp til at tælle

Hej

har et problem jeg henter mit indhold ind vi en access database

så kan indholdet fx se sådan her ud

Kun en tekst:
*****
vesf
****

Flere tekst
***
asdgg
asgasg
asasg
***

men mit problem er at ved flere tekst vil jeg have mere mellemrum i mellem uden at der blir mellemrum i bunden (er i med)

sådan skal det være
***
dsgsd

dsgsdg

dsgsdg
***

og ikke sådan
***
saasf

safasf

asfasf

****

hvordan løser jeg dette ???

på forhånd tak !
Avatar billede nielle Nybegynder
01. august 2005 - 18:58 #1
SQL = "SELECT dinTekst FROM dinTabel"

rs = Conn.Execute(SQL)

FirstLine = True
Do While Not rs.EOF
    If Not FirstLine Then
        Response.Write "<br>"
    Else
        FirstLine = False
    End If

    Response.Write rs("dinTekst") & "<br>"

    rs.MoveNext
Loop
Avatar billede Slettet bruger
01. august 2005 - 19:00 #2
Nedenstående kunne være et bud. Pointen er at linieskift udskrive først pånær når det er første record.

nLines = 0
response.write "***"
while (not rs.eof)
  if 0 < nLines then response.write "<br>"

  response.write rs(0)
  nLines = nLines + 1
wend
response.write "***"
Avatar billede mkiii Nybegynder
01. august 2005 - 20:21 #3
tror det er tæt på men det virker ikke helt efter hensigten i min acess database kan der var flere "tekster" under placering fx.

min kode ser sådan her ud hva skal rettes ?

        set rs = conn.execute("SELECT * from Information where placering="&placering&" order by prioritet desc")
        if rs.eof or rs.bof then
            response.write "Fejl"
        else
            nLines = 0
            do while not (rs.eof or rs.bof)
                response.write " & rs("Indhold") & "<br>"
                if 0 < nLines then response.write "<br>"
                nLines = nLines + 1
                rs.movenext
            loop
        end if
        rs.close
Avatar billede nielle Nybegynder
01. august 2005 - 20:26 #4
set rs = conn.execute("SELECT * from Information where placering="&placering&" order by prioritet desc")
if rs.eof or rs.bof then
    response.write "Fejl"
else
    nLines = 0
    do while not (rs.eof or rs.bof)
        if 0 < nLines then response.write "<br>"
        response.write " & rs("Indhold") & "<br>"
        nLines = nLines + 1
        rs.movenext
    loop
end if
rs.close
Avatar billede mkiii Nybegynder
01. august 2005 - 20:29 #5
Mange tak! vil i dele pointene eller hvordan ?
Avatar billede nielle Nybegynder
01. august 2005 - 20:30 #6
Eller:

SQL = "SELECT * FROM Information WHERE placering=" & placering & " ORDER BY prioritet DESC"
rs = Conn.Execute(SQL)

FirstLine = True
Do While Not rs.EOF
    If Not FirstLine Then
        Response.Write "<br><br>"
    Else
        FirstLine = False
    End If

    Response.Write rs("dinTekst")

    rs.MoveNext
Loop

If FirstLine Then
    Response.Write "Fejl"
End If
Avatar billede nielle Nybegynder
01. august 2005 - 20:32 #7
Der er 100% dig som bestemmer hvordan points skal deles, men det er fint med mig hvis vi splitter. De to løsninger var rimeligt tæt efter hinanden.

... svar :^)
Avatar billede mkiii Nybegynder
01. august 2005 - 20:33 #8
jamen sådan blev det så ;-)
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