Link i ASP: Åben i nyt vindue?

LinkTekst = LinkTekst & Mid(Tekst, A_Start, LinkChr - A_Start)
      LinkTekst = LinkTekst & "<A Href=http://" & URL & " target""_blank"">" & URL & "</A>"

//>Rune

LinkTekst = LinkTekst & Mid(Tekst, A_Start, LinkChr - A_Start)
      LinkTekst = LinkTekst & "<A Href=""http://" & URL & """ target=""_blank"">" & URL & "</A>"

sådan skulle det vidst ha' været ;o)

//>Rune

Nu ser linket sådan ud:

http://www.festiwalther.dk<br><br>på%20forhånd%20tak...…%20target=/

Der skal vist flyttes el. slettes nogle " ikke?

LinkTekst = LinkTekst & Mid(Tekst, A_Start, LinkChr - A_Start)
      LinkTekst = LinkTekst & "<A Href=""http://" & URL & """ target=""_blank"">" & URL & "</A>"

Sådan var det  ;o)

//>Rune

Desværre - stadig underligt link, Rune. Det kan stadig ikke skille URL'en fra selve teksten. Linket ser (stadig?) sådan ud:

http://www.festiwalther.dk<br><br>på%20forhånd%20tak...…%20target=/

*GRA* :-D

LinkTekst = LinkTekst & Mid(Tekst, A_Start, LinkChr - A_Start)
      LinkTekst = LinkTekst & "<A Href='http://" & URL & "' target=""_blank"">" & URL & "</A>"

Prøv med denne..!

//>Rune

Virkelig sorry nu! Klokken er mange og linket ser nu sådan ud:

http://www.festiwalther.dk/?case=artist <br><br>og stem..…

(Det indlæg jeg viser hver gang er indlæg nr. 2 fra toppen på http://www.peterogdeandrekopier.dk/gaestebog/tagwall.asp

Jamen det er jo fordi du har en replace, som replacer alle dine vbCrLf's med <br>'er! -Det må du ikke i dit ahref tag!

//>Rune

Jamen, det er jo 3. linje her:

<%
besked = rs("besked")
besked = replace("" & besked, vbcrlf, "<br>")
besked = replace(besked, "Www", "www")
besked = replace(besked, "wWw", "www")
besked = replace(besked, "wwW", "www")
besked = replace(besked, "WWW", "www")
if instillinger("html") = True then
besked = replace(besked, "&lt;b&gt;", "<b>")
besked = replace(besked, "&lt;/b&gt;", "</b>")
besked = replace(besked, "&lt;i&gt;", "<i>")
besked = replace(besked, "&lt;/i&gt;", "</i>")
besked = replace(besked, "&lt;u&gt;", "<u>")
besked = replace(besked, "&lt;/u&gt;", "</u>")
besked = replace(besked, "&lt;p&gt;", "<p>")
besked = replace(besked, "&lt;/p&gt;", "</p>")
besked = replace(besked, "&lt;center&gt;", "<center>")
besked = replace(besked, "&lt;/center&gt;", "</center>")
besked = replace(besked, "&lt;br&gt;", "<br>")
end if
if instillinger("smileys") = True then

...så kommer der en MASSE replace vedr. smileys!


Hvad skal der så stå i 3. linje, så funktionen bliver rigtig (og for såvidt stadig er intakt)?

Er du sikker på du ikke replacer variablen URL nogen steder?
-lad mig evt. se hele din kode...

//>Rune

Undskyld, puteren gik lige ned. Her kommer hele koden:

    Response.Expires = 0
    response.buffer = true
    side = Request.QueryString("side")
   
    Function Dato(date)
    Dato = day(date) & "/" & month(date) & "-" & year(date)
    End Function
   
    Function LinkTekst(Tekst)
    LinkTekst = ""
    A_Start = 1

    if InStr(Tekst, "www") then
    do until A_Start >= len(Tekst)
    LinkChr = InStr(A_Start, Tekst, "www")
    'NextSpace = InStr(LinkChr, Tekst, "" & "<br>")
    'NextSpace = InStr(LinkChr, Tekst,"<br>")
    NextSpace = InStr("" & LinkChr, vbCrLf,"<br>")

    if NextSpace = 0 then NextSpace = Len(Tekst) + 1

    URL = Mid(Tekst, LinkChr, NextSpace - LinkChr)

'     LinkTekst = LinkTekst & Mid(Tekst, A_Start, LinkChr - A_Start)
'      LinkTekst = LinkTekst & "<A Href=http://" & URL & ">" & URL & "</A>"

        LinkTekst = LinkTekst & Mid(Tekst, A_Start, LinkChr - A_Start)
    LinkTekst = LinkTekst & "<A Href='http://" & URL & "' target=""_blank"">" & URL & "</A>"




      if Int(LinkChr) = Int(InStrRev(Tekst, "www")) then
      LinkTekst = LinkTekst & Mid(Tekst, NextSpace, Len(Tekst) - A_Start)
    A_Start = Len(Tekst)
    else
    A_Start = NextSpace
    end if
    loop
    else
    LinkTekst = Tekst
    end if
    End Function

    set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "Data Source=d:\home\peterogdeandredk\db\tagwall.mdb;Provider=Microsoft.Jet.OLEDB.4.0;"
%>
<html>
<head>
<title>Tagwall v0.3</title>
<META NAME="Generator" CONTENT="Stone's WebWriter 3.5">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript">
<!-- Gem koden for gamle browsere

function PopWin(url,h,w) {
popupWin = window.open(url, 'popup', 'scrollbars,height=' + h + ',width=' + w + ',top=50,left=25')
}
// -->
</script>
</head>

<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" link="#FFFFFF" vlink="#FFFFFF" alink="#FFFFFF">
<br>
<div align="center"> <font face="Tahoma" size="3"><b><i>Tagwall<br>
  </i></b></font>
  <%
if side = "" then
        set instillinger = conn.execute("SELECT * FROM instillinger")
    set rs = conn.execute("SELECT * FROM tags ORDER BY dato DESC")
    if rs.eof or rs.bof then

    response.write("<p><font face='Tahoma' size='2'>Der er ingen beskeder i tagwall'en :´-(</font></p><p><a href='?side=skriv_tag'><font face='Tahoma' size='1' color='#000000'>Opret tag</font></a></p>")
    else
    response.write ("<p><a href='?side=skriv_tag'><font face='Tahoma' size='1' color='#000000'>Opret tag</font></a></p>")
    do until rs.eof
%>
  <table width="500" border="1" cellspacing="0" cellpadding="0" bordercolor="#000000" height="18" bgcolor="#333333">
    <tr>
      <td height="1%">
        <table width="100%" border="0" cellspacing="0" cellpadding="0" height="15">
          <tr>
            <td width="5" height="8"> <font face="Tahoma" size="1"></font></td>
            <td width="369" height="8"><font face="Tahoma" size="1" color="#FFFFFF"><b><%=rs("emne")%></b></font></td>
            <td width="122" height="8"><b><font size="1" face="Tahoma" color="#FFFFFF">Skrevet
              d. <%=Dato(rs("dato"))%></font></b></td>
          </tr>
        </table>
      </td>
    </tr>
    <tr>
      <td bgcolor="#<% if rs("bokscolor") <> "" then response.write rs("bokscolor") else response.write ("666666") end if %>">
        <table width="100%" border="0" cellspacing="0" cellpadding="0" height="58">
          <tr>
            <td height="5" colspan="2"></td>
          </tr>
          <tr>
            <td width="5">&nbsp;</td>
            <td width="481"><font face="Tahoma" size="1" color="#<% if rs("tekstcolor") <> "" then response.write rs("tekstcolor") else response.write ("FFFFFF") end if %>">
<%
besked = rs("besked")
besked = replace("" & besked, vbcrlf, "<br>")
besked = replace(besked, "Www", "www")
besked = replace(besked, "wWw", "www")
besked = replace(besked, "wwW", "www")
besked = replace(besked, "WWW", "www")
if instillinger("html") = True then
besked = replace(besked, "&lt;b&gt;", "<b>")
besked = replace(besked, "&lt;/b&gt;", "</b>")
besked = replace(besked, "&lt;i&gt;", "<i>")
besked = replace(besked, "&lt;/i&gt;", "</i>")
besked = replace(besked, "&lt;u&gt;", "<u>")
besked = replace(besked, "&lt;/u&gt;", "</u>")
besked = replace(besked, "&lt;p&gt;", "<p>")
besked = replace(besked, "&lt;/p&gt;", "</p>")
besked = replace(besked, "&lt;center&gt;", "<center>")
besked = replace(besked, "&lt;/center&gt;", "</center>")
besked = replace(besked, "&lt;br&gt;", "<br>")
end if
if instillinger("smileys") = True then
besked = replace(besked, "[!]", "images/!.gif")
besked = replace(besked, ":-o", "<img src='images/argh.gif'>")
besked = replace(besked, "8-)", "<img src='images/badass.gif'>")
besked = replace(besked, ";-)", "<img src='images/blink.gif'>")
besked = replace(besked, "[brev]", "<img src='images/brev.gif'>")
besked = replace(besked, "[danger]", "<img src='images/danger.gif'>")
besked = replace(besked, "3-(", "<img src='images/devil.gif'>")
besked = replace(besked, "[disk]", "<img src='images/disk.gif'>")
besked = replace(besked, "[tv]", "<img src='images/fjernsyn.gif'>")
besked = replace(besked, ":-z", "<img src='images/flov.gif'>")
besked = replace(besked, "3-)", "<img src='images/happysun.gif'>")
besked = replace(besked, "?:-o", "<img src='images/huh.gif'>")
besked = replace(besked, ":-0", "<img src='images/ingenraab.gif'>")
besked = replace(besked, ":-|", "<img src='images/ligeglad.gif'>")
besked = replace(besked, "[linux]", "<img src='images/linux.gif'>")
besked = replace(besked, "?:-|", "<img src='images/mistaenksom.gif'>")
besked = replace(besked, "[cd]", "<img src='images/musik.gif'>")
besked = replace(besked, "[ned]", "<img src='images/ned.gif'>")
besked = replace(besked, "[next]", "<img src='images/next.gif'>")
besked = replace(besked, "[op]", "<img src='images/op.gif'>")
besked = replace(besked, "[pc]", "<img src='images/pc.gif'>")
besked = replace(besked, "*gf*", "<img src='images/self.gif'>")
besked = replace(besked, "*sf*", "<img src='images/sf.gif'>")
besked = replace(besked, ":-)", "<img src='images/smil.gif'>")
besked = replace(besked, "[spm]", "<img src='images/spm.gif'>")
besked = replace(besked, "[stop]", "<img src='images/stop.gif'>")
besked = replace(besked, ":-(", "<img src='images/sur.gif'>")
besked = replace(besked, "[tom]", "<img src='images/tom.gif'>")
besked = replace(besked, ";´-(", "<img src='images/trist.gif'>")
besked = replace(besked, ":-p", "<img src='images/tunge.gif'>")
end if
response.write LinkTekst(besked)
%>
              </font></td>
          </tr>
          <tr>
            <td height="5" colspan="2"></td>
          </tr>
          <tr>
            <td height="2" colspan="2">
              <table width="100%" border="0" cellspacing="0" cellpadding="0" height="20">
                <tr>
                  <td width="5"><font face="Tahoma" size="1"><b></b></font></td>
                  <td width="65" align="left" valign="middle"><font face='Tahoma' size='1' color='#<% if rs("tekstcolor") <> "" then response.write rs("tekstcolor") else response.write ("FFFFFF") end if %>'><b>Skrevet
                    af:</b></font></td>
                  <td width="421" align="left" valign="middle"><% if rs("email") = "" then %><font face='Tahoma' size='1' color='#<% if rs("tekstcolor") <> "" then response.write rs("tekstcolor") else response.write ("FFFFFF") end if %>'><%=rs("forfatter")%></font><% else %><a href='mailto:<%=rs("email")%>'><font face='Tahoma' size='1' color='#<% if rs("tekstcolor") <> "" then response.write rs("tekstcolor") else response.write ("FFFFFF") end if %>'><%=rs("forfatter")%></font></a><% end if %></td>
                </tr>
              </table>
            </td>
          </tr>
        </table>
      </td>
    </tr>
  </table>
  <p>
<%
rs.movenext
loop
end if
%>
<%
end if
%>
<%
if side = "skriv_tag" then
set instillinger = conn.execute("SELECT * FROM instillinger")
%>
<p>
  <table width="500" border="0" cellspacing="0" cellpadding="0">
    <form action="tagwall.asp?side=opret_tag" method="post">
      <tr>
        <td width="6" bgcolor="#333333"> </td>
        <td width="111" bgcolor="#333333"><b><font face="Tahoma" size="1" color="#FFFFFF">Emne:</font></b></td>
        <td width="10" bgcolor="#666666" height="30">&nbsp; </td>
        <td bgcolor="#666666" height="35" colspan="2">
          <input type="text" name="emne" size="40" maxlength="40">
        </td>
      </tr>
      <tr>
        <td width="6" bgcolor="#333333"><b></b></td>
        <td width="111" bgcolor="#333333">
          <p><font face="Tahoma" size="1"><b><font color="#FFFFFF">Besked:<br>
            </font></b><font color="#FFFFFF">Du kan bruge smileys<br>
            i din besked, tjek hvilke ved at <a href="java script:PopWin('smileys.htm',400,400);">klikke
            her!<br>
            </a></font></font><font face="Tahoma" size="1" color="#FFFFFF">Status</font><font face="Tahoma" size="1" color="#FFFFFF">:
            <% if instillinger("smileys") = True then response.write("<font color='#009900'>Aktiv</font>") else response.write("<font color='#FF0000'>Deaktiveret</font>") %>
            <br>
            <br>
            Du kan ogs&aring; bruge<br>
            HTML tag, <a href="java script:PopWin('htmltags.htm',400,400);">tjek
            hvilke!<br>
            </a>Status:
            <% if instillinger("html") = True then response.write("<font color='#009900'>Aktiv</font>") else response.write("<font color='#FF0000'>Deaktiveret</font>") %>
            </font></p>
          </td>
        <td width="10" bgcolor="#666666">&nbsp; </td>
        <td bgcolor="#666666" colspan="2">
          <textarea name="besked" rows="8" cols="45"></textarea>
        </td>
      </tr>
      <% if instillinger("tekstcolor") = True then %>
      <tr>
        <td width="6" bgcolor="#333333"><b></b></td>
        <td width="111" bgcolor="#333333"><b><font face="Tahoma" size="1" color="#FFFFFF">Tekst
          farve:</font></b></td>
        <td width="10" bgcolor="#666666">&nbsp; </td>
        <td width="97" bgcolor="#666666" height="30">
          <input type="text" name="tekstcolor" size="10" maxlength="6">
        </td>
        <td width="286" bgcolor="#666666" height="30"><font face="Tahoma" size="1" color="#FFFFFF"><a href="java script:PopWin('farvekoder.htm',400,400);">Farvekoder</a></font></td>
      </tr>
      <% end if %>
      <% if instillinger("bokscolor") = True then %>
      <tr>
        <td width="6" bgcolor="#333333"><b></b></td>
        <td width="111" bgcolor="#333333"><b><font face="Tahoma" size="1" color="#FFFFFF">Baggrund:</font></b></td>
        <td width="10" bgcolor="#666666">&nbsp; </td>
        <td width="97" bgcolor="#666666" height="30">
          <input type="text" name="bokscolor" size="10" maxlength="6">
        </td>
        <td width="286" bgcolor="#666666" height="30"><font face="Tahoma" size="1" color="#FFFFFF"><a href="java script:PopWin('farvekoder.htm',400,400);">Farvekoder</a></font></td>
      </tr>
      <% end if %>
      <tr>
        <td width="6" bgcolor="#333333"><b></b></td>
        <td width="111" bgcolor="#333333"><b><font face="Tahoma" size="1" color="#FFFFFF">Forfatter:</font></b></td>
        <td width="10" bgcolor="#666666">&nbsp; </td>
        <td bgcolor="#666666" height="30" colspan="2">
          <input type="text" name="forfatter" size="25" maxlength="25">
        </td>
      </tr>
      <tr>
        <td width="6" bgcolor="#333333"><b></b></td>
        <td width="111" bgcolor="#333333"><b><font face="Tahoma" size="1" color="#FFFFFF">E-mail:</font></b></td>
        <td width="10" bgcolor="#666666">&nbsp; </td>
        <td bgcolor="#666666" height="30" colspan="2">
          <input type="text" name="email" size="25" maxlength="25">
        </td>
      </tr>
      <tr>
        <td width="6" bgcolor="#333333"><b><font color="#FFFFFF" face="Tahoma" size="1"></font></b></td>
        <td width="111" bgcolor="#333333">&nbsp;</td>
        <td width="10" bgcolor="#666666">&nbsp; </td>
        <td bgcolor="#666666" height="30" colspan="2">
          <input type="submit" name="Submit" value="Opret Tag!">
        </td>
      </tr>
    </form>
  </table>
<p>
<a href="?"><font face="Tahoma" size="1" color="#000000">Tilbage</font></a>
</p>
  <%
end if
%>
  <%
if side = "opret_tag" then
if (Server.HTMLEncode(Request("emne")) = "" OR Server.HTMLEncode(Request("besked")) = "" OR Server.HTMLEncode(Request("forfatter")) = "") then
response.write ("<p><font face='Tahoma' size='2'>Hvad med at skrive noget?</font><br><font face='Tahoma' size='1' color='#FF0000'>Emne, Besked og Forfatter <u>SKAL</u> udfyldes!<p><a href='java script:history.back(-1)'><font face='Tahoma' size='1' color='#000000'>Skriv tag</font></a></p>")
else
    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "SELECT * FROM tags"
    rs.Open strSQL, Conn, 1, 3
                                       
        rs.AddNew
        rs("emne") = Server.HTMLEncode(Request("emne"))
        rs("besked") = Server.HTMLEncode(Request("besked"))
        rs("tekstcolor") = Server.HTMLEncode(Request("tekstcolor"))
        rs("bokscolor") = Server.HTMLEncode(Request("bokscolor"))
        rs("forfatter") = Server.HTMLEncode(Request("forfatter"))
        rs("email") = Server.HTMLEncode(Request("email"))
        rs("dato") = date()
        rs.Update

            response.write("<p><font face='Tahoma' size='2'>Tak for dit tag ;-p</font></p><a href='?'><font face='Tahoma' size='1' color='#000000'>Se tags</font></a>")
end if
end if
%>
</div>
</body>
</html>

Lige til orientering, så istedet for at bruge

besked = replace(besked, "Www", "www")
besked = replace(besked, "wWw", "www")
besked = replace(besked, "wwW", "www")
besked = replace(besked, "WWW", "www")

kan du bruge en enkelt funktion der hedder LCase() -den konvetere alt teksten om til lille skrift..

besked = LCase(besked)

;o)

//>Rune

-Men hvad er det du vil her:
URL = Mid(Tekst, LinkChr, NextSpace - LinkChr)

og hvad inde holder URL -hvis du bare skulle udskrive den normalt? fx. Response.Write(URL)

//>Rune

URL indeholder de links folk kan finde på at skrive i deres indlæg (Tekst i tabellen "besked"), det være sig sedenneside.dk, www.sedenneside.dk eller http://www.sedenneside.dk  Så gætter jeg på, at det der "LinkChr" skal konvertere det skrevne til et klikbart link?!

Som nævnt tidligere, er scriptet skrevet af tjazz. Jeg prøver bare at få det til at virke sådan som jeg vil have det.

tabellen = kolonnen

mht. besked = LCase(besked), så skal den ikke konvertere AL tekst i "besked" til små bogstaver. Det er kun i indtastede URL'er den skal gøre det. Tror det er derfor tjazz har gjort det på den måde!?

Så kunne du jo være fix og så sige:

LCase(Left(besked,3))

;o)

//>Rune

Og så prøve lige med dette:
    if NextSpace = 0 then NextSpace = Len(Tekst) + 1

        LinkTekst = LinkTekst & Mid(Tekst, A_Start, LinkChr - A_Start)
    LinkTekst = LinkTekst & "<A Href='http://" & URL & "' target=""_blank"">" & URL & "</A>"



(altså fjern -Men hvad er det du vil her:
URL = Mid(Tekst, LinkChr, NextSpace - LinkChr)

//>Rune

Så fjerner den selve URL'en og det eneste der er tilbage er "http://" Der er intet klikbart!

jamen i hvilken variabel ligger den url du skal bruge?

//>Rune

Den er skrevet ind i "besked"-kolonnen

Går i seng. Tak for i aften/nat, Rune/medions :-)

;o)

//>Rune

Hey Rune! Lukker her - hvis du har et nyt bud, hører jeg gerne for dig (og gi'r også gerne point, hvis det virker!) Send mig evt. en mail peter@peterogdeandrekopier.dk

Lige nu er jeg gået tilbage til den originale opsætning:

    LinkTekst = LinkTekst & Mid(Tekst, A_Start, LinkChr - A_Start)
      LinkTekst = LinkTekst & "<A Href=http://" & URL & ">" & URL & "</A>"

Den virker, men åbner links i samme vindue/frame; og DET er jo forkert! Opretter som sagt gerne et nyt spm, hvis du har et bud der virker!

Pointene er for din ulejlighed - IKKE for svaret, desværre! :-)

*G* Fair nok ;o)
Thx 4 Poinz

//>Rune

Så, nu virker det! Lavede "bare" en <BASE TARGET="_blank"> i HEAD!

Nogen gange er det fandeme så simpelt, at man ikke selv kan se det!!!

*G* fair nok ;o)

//>Rune