Skriva ut en html rad med hjäl av asp ?

TobbsterMedlem sedan mars 2001309 inlägg

Trådstart22 juli 2001 18:04#1

Det jag vill ha hjälp med är ur jag ska kunna få ut texten till alla ankare på en lång rad med ett sträck | i mellan...

<html>
<%
  SQL1 = "select distinct kontor from telelista"
  Set conn=Server.CreateObject("ADODB.Connection")
  Set rs1=Server.CreateObject("ADODB.Recordset")
  conn.Open "DSN=*****;UID=;PWD="
  rs1.Open SQL1,conn,1,2
  %>
<body bgcolor="#ffffff" marginwidth="15" leftmargin="15" topmargin="25">
<link rel="stylesheet" href="main.css">
<b class="logga"><img src="pic/nxlogo.gif"></b>
<table align="right" width="600" border="0" cellspacing="0" cellpadding="3">
  <tr>
     <td align="center" valign="bottom"><font size=6><b>Telefonlista</b></font></td>
      <td align="left" valign="bottom">Sök på namn<BR> <input type="textbox" name="search" value=""><input type="button" name="searchbutton" value="Sök">
      <td align="left" valign="bottom"><a href="index.html" target="blank_">Skapa utskrift </a></td>
    </td>
  </tr>
   <tr><td align="left" colspan=3>
   <%do while not rs1.eof%>
   [b]<a href="main.asp#<%=rs1("kontor")%>"target="Main"><%=rs1("kontor")%></a> &#0124;[/b]
 <%rs1.movenext
   loop%></td>
   </tr>
     <%rs1.close
conn.close
%>
 </table>
</body>
</html>

@ndersMedlem sedan juni 200032 967 inlägg

22 juli 2001 18:10#2

så här kanske? (otestat)

<%
do while not rs1.eof
strTmp = strTmp & "<a href=""main.asp#" & rs1("kontor") & """ target=""Main"">" & rs1("kontor") & "</a> &#0124; "
rs1.movenext
loop
response.write left(strTmp, len(strTmp)-3)
response.write "</td></tr>"
rs1.close
conn.close
%>

mvh,

TobbsterMedlem sedan mars 2001309 inlägg

22 juli 2001 18:17#3

Jag har sagt det för(Men det går inte säga för ofta).....Du är en klippa @nders. Man tacka det funka utmärkt....