Automatisk Ord til Link

mener du ligesom:
http://www.eksperten.dk

??

Kommer sidens indhold fra en DB?

---> Foo4u.dk
JA sidens indhold kommer fra en database...
---> Stig3
Nej ligsom...
Eksperten = <a href=\"http://www.eksperten.dk\">Eksperten</a>

hvad er det for et ord der skal laves til link da\'?

---> DarkHero
Det er mange forskællige ord der skal laves om...

http://www.asp.dk/sources.asp?mode=view_source&cat_id=9&id=859&tech_id=1

http://www.asp.dk/sources.asp?mode=view_source&cat_id=9&id=860&tech_id=1

http://www.asp.dk/sources.asp?mode=view_source&cat_id=9&id=1041&tech_id=1

--->Space
Det er ikke helt det jeg mener..
Det skal ikke være urls der skal gøres klikbare men nogle forskælige ord
----------- Eks. -------------
Hvis jeg skrev ordet \"Priser\" lavede en automatisk det ord om til et link til siden \"prisliste.asp\"

Ok, så gør du sådan:

Dit output fra din DB hedder f.eks. vis(\"tekst\")

Så skriver du:
vis = Replace(\"\" & vis(\"tekst\"),\"ORDET_DER_SKAL_LINKES,\"DIT_LINK\") %>

ups:
vis = Replace(\"\" & vis(\"tekst\"),\"ORDET_DER_SKAL_LINKES\",\"DIT_LINK\")

---> ALLE
Kan man ikke lave det sådan at den på siden finde alle steder der f.eks. står priser og så lavet det om til et link ???

Jo, som jeg skrev ovenfor, så skal der nogle præfiks på din priser, så der f.eks. står @[prisen]@, også kan du lave noget right og left med dem, så du finder alt hvad der er i mellem @[ og ]@, fjerner dem, og lave det i mellem til et link

men jeg kan ikke finde ud af left og right kommandoer, men lidt teori kan vel også bruger :o)

--->food4u.dk
Hmmm ok

Ved godt det er lidt kryptisk, men jeg kan ikke lige forklare det nærmere

men, ligger dine priser ikke i en tabel for sig selv?

--->food4u.dk
Tabel ??? havd har det med hinanden at gøre

Hvis prisen ligge i en tabel for sig selv i din DB, så er det jo bare at lave prisen om til link, lige så snart du udskriver fra din tabel

--->food4u.dk
Nu har jeg prøvet med det har
Nyhed = Replace(objRS(\"Nyhed\"),Kontrakt,\"<a href=fredomr.asp class=black>Kontrakt</a>\")
men det virker ikke den laver det ikke om til et link

--->Food4u.dk
Ups my bad ... det gør det men hvordan laver jeg det med flere ord ??

Nyhed = Replace(objRS(\"Nyhed\"),\"Kontrakt\",\"<a href=fredomr.asp class=black>Kontrakt</a>

Du manglede lige \"\" om kontrakt

Ok, hvis prisen ligger for sig selv i en tabel, som hedder pris, så gør du bare sådan:
<a href=\"DIT_LINK\">objRS(\"pris\")</a>

Regner med at du har en loop funktion

--->food4u.dk
nåå på den måde... men det gør den desvære ikke
Men hvordan får jeg sat flere ord ind????

Altså den første SKAL være som denne:

Nyhed = Replace(objRS(\"Nyhed\"),\"Kontrakt\",\"<a href=fredomr.asp class=black>Kontrakt</a>

De næste SKAL så være sådan:
Nyhed = Replace(Nyhed,\"1\",\"<a href=fredomr.asp class=black>1</a>
Nyhed = Replace(Nyhed,\"2\",\"<a href=fredomr.asp class=black>2</a>

Husk at du kun skal have en af den øverste, og resten som de to nederste

Grunde til det, er at den første tage outputtet fra din tabel, og laver det om til variablen Nyhed, som så går igen i de andre

HVis du har rigtig mange ord, kan du jo lave en DB, og så køre det der fra

--->food4u.dk
Jeg har et problem når jeg skriver
\"Response.Write nyhed\"
Så indsætter den den samme nyhed i alle nyhederne den skifter ikke til den næste

Hmm, må jeg ikke lige se din kode?

---> food4u.dk


----------------------- nyhed.asp -------------------
<%     
        Set objRS = Conn.Execute(\"Select * from nyheder order by Dato asc\")           
        Nyhed = Replace(objRS(\"nyhed\"),\"Billedlister\",\"<a href=billedlist.asp class=black>Billedlister</a>\")
        Nyhed = Replace(nyhed,\" billedlister\",\" <a href=billedlist.asp class=black>billedlister</a>\")
        Nyhed = Replace(Nyhed,\"Fredede områder\",\"<a href=fredomr.asp class=black>Fredede områder</a>\")
        Nyhed = Replace(Nyhed,\" fredede områder\",\" <a href=fredomr.asp class=black>fredede områder</a>\")
        Nyhed = Replace(Nyhed,\"Priser\",\"<a href=priser.asp class=black>Priser</a>\")
        Nyhed = Replace(Nyhed,\" priser\",\" <a href=priser.asp class=black>priser</a>\")
        Nyhed = Replace(Nyhed,\"Galleri\",\"<a href=galleri.asp class=black>Galleri</a>\")
        Nyhed = Replace(Nyhed,\" galleri\",\" <a href=galleri.asp class=black>galleri</a>\")
        Nyhed = Replace(Nyhed,\"Galleriet\",\"<a href=galleri.asp class=black>Galleriet</a>\")
        Nyhed = Replace(Nyhed,\" galleriet\",\" <a href=galleri.asp class=black>galleriet</a>\")
        If objRS.EOF Then
              Response.Write \"Der er ingen nyheder P.T.\"
        Else
       
    Do While Not objRS.eof
              Response.Write \"<center>\" 
          Response.Write \"<table border=0 cellpadding=1 cellspacing=0 width=98% bgcolor=#CCEADA>\" 
          Response.Write \"<td><b><font face=verdana size=1>&nbsp;&nbsp;\" 
          Response.Write objRS(\"Headline\") 
          Response.Write \"</b></td><td align=right><font face=verdana size=1>\"
          Response.Write objRS(\"Dato\") 
          Response.Write \"</td></tr><tr width=\'100%\'><td colspan=2>\" 
          Response.Write \"</font><table border=0 cellpadding=3 cellspacing=0 width=100% bgcolor=#FFFFFF><tr><td>\" 
          Response.Write \"<font face=verdana size=1>\" 
          Response.Write Nyhed
          Response.Write \"</font></td></tr></table></td></tr></table>\" 
          Response.Write \"<br></center>\"

        objRS.Movenext
        Loop
    End IF
%>
-------------------------------------------------------------

----------------------- nyhed.asp -------------------
<%     
        Set objRS = Conn.Execute(\"Select * from nyheder order by Dato asc\")           
        If objRS.EOF Then
              Response.Write \"Der er ingen nyheder P.T.\"
        Else
       
    Do While Not objRS.eof
          Nyhed = Replace(objRS(\"nyhed\"),\"Billedlister\",\"<a href=billedlist.asp class=black>Billedlister</a>\")
          Nyhed = Replace(nyhed,\" billedlister\",\" <a href=billedlist.asp class=black>billedlister</a>\")
          Nyhed = Replace(Nyhed,\"Fredede områder\",\"<a href=fredomr.asp class=black>Fredede områder</a>\")
          Nyhed = Replace(Nyhed,\" fredede områder\",\" <a href=fredomr.asp class=black>fredede områder</a>\")
          Nyhed = Replace(Nyhed,\"Priser\",\"<a href=priser.asp class=black>Priser</a>\")
          Nyhed = Replace(Nyhed,\" priser\",\" <a href=priser.asp class=black>priser</a>\")
          Nyhed = Replace(Nyhed,\"Galleri\",\"<a href=galleri.asp class=black>Galleri</a>\")
          Nyhed = Replace(Nyhed,\" galleri\",\" <a href=galleri.asp class=black>galleri</a>\")
          Nyhed = Replace(Nyhed,\"Galleriet\",\"<a href=galleri.asp class=black>Galleriet</a>\")
          Nyhed = Replace(Nyhed,\" galleriet\",\" <a href=galleri.asp class=black>galleriet</a>\")
       
      Response.Write \"<center>\" 
          Response.Write \"<table border=0 cellpadding=1 cellspacing=0 width=98% bgcolor=#CCEADA>\" 
          Response.Write \"<td><b><font face=verdana size=1>&nbsp;&nbsp;\" 
          Response.Write objRS(\"Headline\") 
          Response.Write \"</b></td><td align=right><font face=verdana size=1>\"
          Response.Write objRS(\"Dato\") 
          Response.Write \"</td></tr><tr width=\'100%\'><td colspan=2>\" 
          Response.Write \"</font><table border=0 cellpadding=3 cellspacing=0 width=100% bgcolor=#FFFFFF><tr><td>\" 
          Response.Write \"<font face=verdana size=1>\" 
          Response.Write Nyhed
          Response.Write \"</font></td></tr></table></td></tr></table>\" 
          Response.Write \"<br></center>\"

        objRS.Movenext
        Loop
    End IF
%>
-------------------------------------------------------------

Du skal have dine replace sætninger \"inde\" i din loop, ellers vil objRS(\"nyhed\") altid være den færste

--->f00d4u.dk
Takker

Det var så lidt :o)