Källkoden för /anders.enges/asp/exhmera.asp

---

<!--  #include file="../inc/navstuff.asp" -->
Vi kan även köra längre med Content Linking. En metod som är möjlig är följande<p>
Ibland vill man visa biler ibland vill man visa text.
Detta är möjligt genom att lägga till namnet på en bildfil efter förklaringstexten. För att skilja på
texten och bildfilen kan man t.ex. använda | tecknet. Resultatet blir då följande
<div class=code>
sid1.asp    Min första sida|bild1.gif<br>
sid2.asp    Min andra sida|bild2.gif<br>
sid3.asp    Min tredje sida|bild3.gif<br>
sid4.asp    Min fjärde sida|bild4.gif<br>
sid5.asp    Min femte sida|bild5.gif<br>
</div><p>
<p>
<%
Function texten( description )
      Dim lineInd
      lineInd = InStr( description, "|" )
      if lineInd > 0 Then
           texten = Left( description , lineInd -1 )
      else
           texten = description
      End If
End Function

Function bilden( description )
     ' fixar även ALT baserat på förklaringstexten
     Dim lineInd
     lineInd = InStr ( description, "|" )
     if lineInd > 0 Then
         bilden = "<IMG SRC=""" & _
             Mid( description , lineInd + 1 ) & _
             """ ALT="""& _
             Left( description , lineInd - 1 ) & _
             """ BORDER=""0"">"
     else
         bilden = description
     End If
End Function

%>


<div class=code>
<span class=asp>
<%<br>
Function texten( description )<br>
    Dim lineInd<br>
    lineInd = InStr( description, "|" )<br>
    if lineInd > 0 Then<br>
         texten = Left( description , lineInd - 1 )<br>
    else<br>
         texten = description<br>
    End If<br>
End Function<br>
<br>
Function bilden( description )<br>
    Dim lineInd<br>
    lineInd = InStr ( description, "|" )<br>
    if lineInd > 0 Then<br>
        bilden = "<IMG SRC=""" & _<br>
            Mid( description , lineInd + 1 ) & _<br>
            """ ALT="""& _<br>
            Left( description , lineInd - 1 ) & _<br>
            """ BORDER=""0"">"<br>
    else<br>
        bilden = description <br>
    End If<br>
End Function<br>
%></span><br>
<br>
<font color="#8B008B">
<font color="0000FF"><</font>a <font color="FF0000">href</font><font color="0000FF">="</font><span class=asp><% =navList.GetNthURL ( listFile , row ) %></span><font color="0000FF">"></font><br>
    <span class=asp><% = texten( navList.GetNthDescription ( listFile , row ) ) %></span><br>
    <span class=asp><% =bilden( navList.GetNthDescription ( listFile , row ) ) %></span><br>
<font color="#0000FF"></</font>a<font color="#0000FF">></font><br>
</font>
</div>
<p>
Ett annat exempel<br>
<div class=code>
<font color="#8B008B">
<span class=asp><% =bilden ( "Min första sida|../images/1.gif" ) %></span><br>
<span class=asp><% = texten ( "Min första sida|../images/1.gif" ) %></span><br>
</font>
</div>
ger
<div class=res>
<%  =bilden("Min första sida|../images/2.gif") %>
<%  = texten("Min första sida|../images/1.gif") %>
</div>
<p>
<!--#include file="../inc/footer.asp" -->