Læse fra <side> til </side>

...Håber i eksperter kan hjælpe ;o)...!

Ikke direkt i SQL'en men du kan når du udskriver finde <side> og </side> og slette retten:

strText = rs("kolonnenavn")
sideTag = inStr(1,strText,"<side>")
if sideTag > 0 then
  strText = right(strText,Len(strText)-sideTag+7) '+7 for ikke at få <side> med
end if
sideTag = inStr(1,strText,"</side>")
if sideTag > 0 then
  strText = left(strText,sideTag)
end if

Response.write strText

eller der er måske mange <side> bla bla </side> i en teskt fra databasen?

"ikke med <side> bla bla </side> heller ikke med <side> bla bla </side> ikke med."

der er kun en <side> bla bla </side> midt i en tekst i databasen

kan den ikke finde <side> og skrive indtil den den finder </side?>

Ups.... kom til at acceptere dit svar!!!!

Hvis du har streng: "noget<side>kommer med</side>andet"

Det den gør er at finde <side> så stetter den teksten "noget<side>" og beholder resten af strengen.
Så finder den </side> og sletter "</side>andet"

Så har du "kommer med" tilbage og det kan udskirves.

depends.. hvilken database bruger du? access 2000? sqlserver?

ja.... access 2000

Hvis du bruger access 2000, kan du bruge flg. sqlstreng, hvor tekst er navnet på dit tekstfelt og sider er navnet på din tabel.

SELECT mid(tekst, instr(tekst,'<side>')+6, instr(tekst,'</side>') - instr(tekst,'<side>')-6) FROM sider

<< eagleeye , hmmm noget passer ikke:

Dette står i min database:

frge erg gre ge ge cebwfboibfweobgowbow <side> Hffffffej med dig gremok gmeom goem e </side> eprg mpegm pegme pmeg ger ge ge eg e e



Dette printer den:

owbow Hffffffej med dig gremok gmeom goem e <

<< eagleeye  , altså:

strSQL = "SELECT mid(artikel, instr(artikel,'<side>')+6, instr(artikel,'</side>') - instr(artikel,'<side>')-6) FROM test"
Set rs = Conn.Execute(strSQL)

response.write strSQL

musikchart.dk:

Jeg er godt nok ikke eagleeye, men ja.. så kan du selvfølgelig sætte en where clause på, hvis du vil ha' fat i en bestemt post i databasen.

vent.. det var forkert *g*  jeg var så fokuseret på du sagde eagleeye :oP :o))

strSQL = "SELECT mid(artikel, instr(artikel,'<side>')+6, instr(artikel,'</side>') - instr(artikel,'<side>')-6) FROM test"
Set rs = Conn.Execute(strSQL)

If NOT rs.eof Then
  response.write rs(0)
End If

Set rs = nothing

Hey tak for hjælpen << kimiwan  >>, selvom du ikke er eagleeye ;o)...

Det virker perfect, tak!!!

du får lige 30 point... jeg kom til at give eagleeye alle pointe ved et uheld... :o(...

skal jeg ikke lige give de 30 points?

gerne, men jeg har lavet et spm...

Skidt pyt... og du vil iøvrigt altid kunne bede en person give pts tilbage, hvis du kommer til at acceptere et svar ved en fejl - sådan er reglerne herinde.  Men lad det nu ligge for denne gang :o)

ok...

Hov.... Jeg har et problem med kode, som jeg håber I kan/vil hjælpe med.

Når jeg skal udskrive alt imellem <side> og </side> , så printer den kun et max antal tegn... !!? Hvorfor det..?

hvad har du stående i dit felt? - prøv at poste indholdet her.

Dette:

Cookies bliver meget brugt på hjemmesider i dag, det er et rigtigt godt redskab for webmastere, da man kan gemme oplysninger om brugeren, på brugerens egen computer. Fx hvis man skal gemme brugernavn og password til en login på din side, kan man gemme det som en cookie. Eller hvis du har en tæller på din side, som skal tælle originale besøgende.<br>

Cookien bliver skrevet i mappen "cookies" på brugerens computer som en .txt fil.<p>

Sådan <b>skriver</b> man en cookie, som bliver gemt på brugerens computer. Cookien kommer til at hedde "KDESIGN" katagorien bliver "navn" og indholdet bliver "H.C. Andersen".<p>

<font face="Geneva, Arial, Helvetica, san-serif">
<table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFEAEA">
  <tr>
    <td><font size="2">

<%<br>Response.Cookies("KDESIGN")("navn") = "H.C. Andersen"<br>%></font>

</td>
  </tr>
</table></font><p>

Og sådan <b>henter</b> man Cookien igen:<p>

<font face="Geneva, Arial, Helvetica, san-serif">
<table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFEAEA">
  <tr>
    <td><font size="2">

<%Request.Cookies("KDESIGN")("navn")%></font>

</td>
  </tr>
</table></font><p>

Og for at <b>printe</b> den, skal man først lave den om til en streng:<p>

<font face="Geneva, Arial, Helvetica, san-serif">
<table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFEAEA">
  <tr>
    <td><font size="2">

<%strNAVN = Request.Cookies("KDESIGN")("navn")<br>
Response.write "Dit navn er " & strNAVN%></font>

</td>
  </tr>
</table></font><p>

Cookiens <b>udløbs dato</b> kan fastlægges vha. expires. I dette tilfælde udløber denne cookie ét år (365 dage) fra i dag:<p>

<font face="Geneva, Arial, Helvetica, san-serif">
<table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFEAEA">
  <tr>
    <td><font size="2">

<%Response.Cookies("KDESIGN").Expires = Date+365%></font>

</td>
  </tr>
</table></font><p>

Hvilket <b>domæne</b> der skal kunne læse cookien, i dette tilfælde, "www.kleif.tk".<p>

<font face="Geneva, Arial, Helvetica, san-serif">
<table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFEAEA">
  <tr>
    <td><font size="2">

<%<br>Response.Cookies("KDESIGN").Domain = "www.kleif.tk"<br>%></font>

</td>
  </tr>
</table></font><p>

<b>Eksempel:</b> Hvis nu du vil kunne tælle unikke besøgende. Det gøres ved at når brugeren kommer ind på siden, skal der tjekkes om der er en cookie på på brugerens computer. Og hvis der ikke er, skal der laves en cookie og og der skal + 1 til en tæller i en database.
<a href="artikelex.asp?id=26" target="_blank">se kode her</a>

<side> <font face="Geneva, Arial, Helvetica, san-serif">
<table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFEAEA">
  <tr>
    <td><font size="2">
<%If request.cookies("kleifdesign.tk")("counter") <> "true" then<br>
response.cookies("kleifdesign.tk")("counter") = "true"<br>
response.cookies("kleifdesign.tk").Expires = DateAdd("h", 1, Now())%></font>

</td>
  </tr>
</table></font><p>
</side>
gegegebe be e e be be e be be

... og da det er et notat felt... er det ikke antal tegn der er ivejen.

og hvad udskriver den?

det virker fint nok hos mig.

den udskriver dette:

<%If request.cookies("kleifdesign.tk")("counter") <> "true" then
response.cookies(

det hele den udskriver, er dette:

font face="Geneva, Arial, Helvetica, san-serif">
<table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFEAEA">
  <tr>
    <td><font size="2">
&lt;%If request.cookies("kleifdesign.tk")("counter") <> "true" then<br>
response.cookies(

det virker hverken på egen pc, eller på en server!!?

den skulle udskrive dette:

<font face="Geneva, Arial, Helvetica, san-serif">
<table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFEAEA">
  <tr>
    <td><font size="2">
<%If request.cookies("kleifdesign.tk")("counter") <> "true" then<br>
response.cookies("kleifdesign.tk")("counter") = "true"<br>
response.cookies("kleifdesign.tk").Expires = DateAdd("h", 1, Now())%></font>

</td>
  </tr>
</table></font><p>

ku det have noget med denne kode at gøre?


<%Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../db/dbase.mdb") & ";
Conn.Open DSN

strQS = request.querystring("id")

strSQL = "SELECT mid(artikel, instr(artikel,'<side>')+6, instr(artikel,'</side>') - instr(artikel,'<side>')-6) FROM artikler WHERE id =" & strQS &""
Set rs = Conn.Execute(strSQL)




Dim body

body = RS(0)

body = Replace(body, "<%", "&lt;%")


If NOT rs.eof Then
  response.write body
End If
%>

I kan selv se på http://www.mypage.dk --> asp artiker --> cookies

hallo?

aaaah!!  nu fandt jeg ud af det.. det er jo her:

http://www.mypage.dk --> asp artiker --> cookies --> SE KODE HER

kigger lige

musicchart.dk: har du et icqnummer eller en emailadresse?

ja ICQ: 135282764