hjælp til news script

Opsaml i en variabel og udskriv til sidst.

Do While not objTS.AtEndOfStream
    data_linie = split(objTS.ReadLine,"    ")
    Str = "<tr bgcolor='#CCFFFF'><td>"& data_linie(0) &"</td></tr>" &_
    "<tr bgcolor='#CCFFFF'><td><H1>"& data_linie(1) &"</h1></td></tr>" &_
    "<tr bgcolor='#CCFFFF'><td>"& data_linie(2) &"</td></tr>" & Str
Loop

Response.Write Str

det er jeg ikke sikker på jeg helt forstå? - hvis jeg indsætter:

Do While not objTS.AtEndOfStream
    data_linie = split(objTS.ReadLine,"    ")
    Str = "<tr bgcolor='#CCFFFF'><td>"& data_linie(0) &"</td></tr>" &_
    "<tr bgcolor='#CCFFFF'><td><H1>"& data_linie(1) &"</h1></td></tr>" &_
    "<tr bgcolor='#CCFFFF'><td>"& data_linie(2) &"</td></tr>" & Str
Loop

Response.Write Str

virker det ikke...

?

hvis jeg sætter det her:

Do While not objTS.AtEndOfStream
    data_linie = split(objTS.ReadLine,"    ")
    Str = "<tr bgcolor='#CCFFFF'><td>"& data_linie(0) &"</td></tr>" &_
    "<tr bgcolor='#CCFFFF'><td><H1>"& data_linie(1) &"</h1></td></tr>" &_
    "<tr bgcolor='#CCFFFF'><td>"& data_linie(2) &"</td></tr>" & Str
Loop

Response.Write Str

..ind istedet for:

Do While not objTS.AtEndOfStream
    data_linie = split(objTS.ReadLine,"    ")
    response.write("<tr bgcolor='#CCFFFF'><td>"& data_linie(0) &"</td></tr>")
    response.write("<tr bgcolor='#CCFFFF'><td><H1>"& data_linie(1) &"</h1></td></tr>")
    response.write("<tr bgcolor='#CCFFFF'><td>"& data_linie(2) &"</td></tr>")
Loop

...virker det ikke?

Hvad er DET?

Får du fejl, eller hvad sker der?

ja - fejl

Så kom vi da så langt. Og hvad er det for en fejl?

..sorry

der står:

Microsoft VBScript runtime error '800a0009'
Subscript out of range: '[number: 1]'

/eidos-test/news.asp, line 15

Så ligger fejlen i en af de linier, du splitter ad. Den fejl burde du også have fået før.

Prøv at gøre som følger, så kan du nok selv se, hvor det går galt:

Do While not objTS.AtEndOfStream
    data_linie = split(objTS.ReadLine,"    ")
    If UBound(data_linie) = 2 Then
      Str = "<tr bgcolor='#CCFFFF'><td>"& data_linie(0) &"</td></tr>" &_
      "<tr bgcolor='#CCFFFF'><td><H1>"& data_linie(1) &"</h1></td></tr>" &_
      "<tr bgcolor='#CCFFFF'><td>"& data_linie(2) &"</td></tr>" & Str
    Else
      Str = "<tr bgcolor='#990000'><td>Fejl</td></tr>" & Str
    End If
Loop

Response.Write Str

ups - nu står der kun:

Fejl
Fejl
Fejl

det orginale ser sådan ud:

Do While not objTS.AtEndOfStream
    data_linie = split(objTS.ReadLine,"    ")
    response.write("<tr bgcolor='#CCFFFF'><td>"& data_linie(0) &"</td></tr>")
    response.write("<tr bgcolor='#CCFFFF'><td><H1>"& data_linie(1) &"</h1></td></tr>")
    response.write("<tr bgcolor='#CCFFFF'><td>"& data_linie(2) &"</td></tr>")
Loop
%>

Når du forsøger at aflæse index 2, skal du minimum have 2 gange "    " i hver linie. Og har du ikke det, får du fejl.

? (sorry- er dum i asp)

..men fatter ikke helt hvad du mener?

Hver af dine linie skal have følgende opbygning:

Linie = "abc    def    ghi"

Herefter returneres dette, når du splitter linien ad:

data_linie = Split(Linie, "    ")
data_linie(0) = "abc"
data_linie(1) = "def"
data_linie(2) = "ghi"

Du må have et eller andet formål med at bruge split-funktionen, siden du har kastet dig ud i det.

det er et script jeg har downloadet...

Hmm... Men hvis du forstår min beskrivelse af, hvorfor den giver fejl, kan du selv rette linierne. Eller hvad...?

...ups - gider du snart mere?

Hvis jeg stoppede nu, havde jeg spildt min tid, så jeg foretrækker vi får løst dit problem.

tusind tusind tusind tusind tak...

Kan du ikke vise mig tekstfilen og beskrive, hvad der skal ske med de data i den?

der står feks.:

04.03.02 14:43:56    Hej!    Hejsa!<BR>Dette er den første besked!
05.03.02 14:53:51    den anden    Ja, detter er så nyheds brev nummer to.

..den indeholder nyheder - som man kan skrive ind via add-news.asp som ser sådan ud:

<%
'********Hvad***************
to_do = request("Submit")
'********Login**************
pwd = request.form("pwd")
uid = request.form("usr")
'********Add news***********
head = request.form("head")
text = request.form("news")
'********Setup**************
bruger_navn = "admin"
password = "1234"
'********Connect************
'Her opretter jeg forbindelse til filen, med skrive rettigheder.
set objFSO = Server.CreateObject("Scripting.FileSystemObject")
fil_navn = "news.txt"
set objTS = objFSO.OpenTextFile(Server.MapPath(""&fil_navn&""), 8)

'*******Wath to do***************
if (to_do = "" OR to_do = "Nulstil") then
    response.write("<form action='add-news.asp' method='post'>Usr  :  <input type='text' name='usr'><BR>Pwd : <input type='password' name='pwd'><BR><br>")
    response.write("Overskrift : <input type='text' name='head'><BR>nyhed:<BR><textarea name='news' cols='40' rows='10'></textarea><BR><input type='submit' name='submit' Value='Add'><input type='reset' name='reset' Value='Reset'></form>")
End if

if (to_do = "Add") then
    if ( bruger_navn &"" = ""& uid  AND password &"" = ""& pwd &"")  then
            linie = now &"    "& head & "    " & replace(text, VbCrLf, "<BR>")
            response.write(linie)
            objTS.writeline linie
            objTS.close()
    Else
            response.write("Hey, you! du <u>skal</u> v&aelig;re logget ind, for at tilf&oslash;je nyheder!")
    End if
End if
response.write("<hr>")
response.write("<form action='add-news.asp' method='post'><input type='Submit' name='Submit' value='Nulstil' size='10'></form>")
%>

Er de to linier alt, hvad der står i tekstfilen?

ja - ...der vil jo blive fyldt flere i med tiden.

Så burde det nu heller ikke give fejl. Men jeg forstår ikke, hvorfor du ikke fik fejl til at starte med!?

...nej ok

Hvad er status?

jeg har droppet det - jeg ku ikke få det til at virke...lige nu kæmper jeg med en menu ting http://www.eksperten.dk/spm/416053

Men tak for din hjælp - og der er selvfølgelig point for indsatsen.

Tak for det :)