Begrænset tekst !?

er med på en lytter :o)

<%
dim strtekst, intstatus
intstatus=Request.QueryString(\"status\")
if intstatus=\"\" then
intstatus=0
end if
  Set DataConn = Server.CreateObject(\"ADODB.Connection\")
  DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.mappath(\"./tekst.mdb\")
  \'Tekst.mdb skal ligge i samme mappe
  DataConn.Open DSN

  Set rs_vare = Server.CreateObject(\"ADODB.RecordSet\")
  rs_vare.open \"Select * From [tekst]\", DataConn
  \'Tabellen \"Tekst\" åbnes skrive beskyttet, ønskes skriveadgang tilføjes ,1,3 på ovenstående linie
  strtekst = rs_vare(\"tekst\")
  rs_vare.Close
  set rs_vare=nothing
  DataConn.Close
  set dataConn = nothing
  \'Husk at sætte objekter lig nothing ellers ligger i serveren ned...
 
  Response.Write (mid(strtekst,intstatus,300))
 
  \'mid(string, start, længde) bruges således:
  \'MID betyder Middle, der er altså tale om midten af en tekst string
  \'String er den streng vi tager fra. I dette eksempel er det teksten fra databasen!
 
  Response.Write (\"<br><br><a href=filnavn.asp?status=\"&cstr(intstatus+300))&\">Klik har for at læse de næste 300 tegn</a>\"
  \'Filnavn.asp er navnet på denne her fil. Vi ligger variablen status til for at holde øje med hvor langt vi er nået.
%>

Husk at besøge www.IT-Avisen.dk for at læse nyheder.

/Jasper

<% = left(rs(\"RECORD\"),15) %>

viser 15 tegn!

ups.. misforstod!

Mange tak Jesper
>>Jesper
der er en ting som jeg ikke tænkte på var at den vil stope midt i et ord.

kan man lave det med ord eller linier ?

er der ikke andre der kan hjælpe mig med det her

<%
dim strtekst, intstatus,ordslut
intstatus=Request.QueryString(\"status\")
if intstatus=\"\" then
intstatus=0
end if
  Set DataConn = Server.CreateObject(\"ADODB.Connection\")
  DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.mappath(\"./tekst.mdb\")
  \'Tekst.mdb skal ligge i samme mappe
  DataConn.Open DSN

  Set rs_vare = Server.CreateObject(\"ADODB.RecordSet\")
  rs_vare.open \"Select * From [tekst]\", DataConn
  \'Tabellen \"Tekst\" åbnes skrive beskyttet, ønskes skriveadgang tilføjes ,1,3 på ovenstående linie
  strtekst = rs_vare(\"tekst\")
  rs_vare.Close
  set rs_vare=nothing
  DataConn.Close
  set dataConn = nothing
  \'Husk at sætte objekter lig nothing ellers ligger i serveren ned...
 
  if not intstatus=0 then
  do while not ordslut
  if (mid(strtekst,intstatus,1)=\" \" or mid(strtekst,intstatus-1,1)=\" \") then
  Response.Write (mid(strtekst,intstatus,300))
  ordslut=true
  else
  intstatus=intstatus+1
  end if
  LOOP
  else
  Response.Write (mid(strtekst,intstatus,300))
  end if
  \'mid(string, start, længde) bruges således:
  \'MID betyder Middle, der er altså tale om midten af en tekst string
  \'String er den streng vi tager fra. I dette eksempel er det teksten fra databasen!
 
  Response.Write (\"<br><br><a href=filnavn.asp?status=\"&cstr(intstatus+300))&\">Klik har for at læse de næste 300 tegn</a>\"
  \'Filnavn.asp er navnet på denne her fil. Vi ligger variablen status til for at holde øje med hvor langt vi er nået.
%>

Husk at besøge www.IT-Avisen.dk for at læse nyheder.

/Jasper

mange tak Jesper

...flot site www.it-avisen.dk ! ;)

\'Husk at sætte objekter lig nothing ellers ligger i serveren ned...
(det gør asp parseren, i iis4 bliver den ignoreret, i ii5 er den optional)

hmm tjae så hellere det end at scriptet laver et uendeligt loop som det her gør

Microsoft Technet anbefaler både til IIS 4.0 og IIS 5.0 at alle objekter sættes lig nothing.
Jeg må indrømme at jeg ikke ved andet end at det flere gange har lagt vores server ned, når vores nye folk glemmer at sætte objekter lig nothing.
Vi køre IIS 5.0, så jeg må nok give Microsoft Technet ret i deres anbefaling.
Jeg kan naturligvis ikke udelukke at du har andre erfaringer, men jeg vil bede dig henvise til kilder der understøtter disse, så skal jeg nok finde den artikel jeg henviser til.

Jeg må indrømme at jeg ikke har testet ovenstående script, men da svaret er accepteret vil jeg gå ud fra at det ikke indeholder en uendelig lykke.

/Jasper

Hej Jesper

Jesper hvad nu !?

hvis du nu laver den her script om sådan at den virker/køre optimalt, så får du 300 point til :)

på forhånd tak !

>>it-avisen.dk  kan ikke huske hvor det var, men det var et stort site, mener det er asptoday eller ligende, jeg siger jo også netop den først virker i iis5, (hvor den stadig er optional, men den releaser objectet, det gjorde den ikke i iis4, før hele siden er udført (om man så har skrevet obj = nothing eller ej