Hvordan kan man få en link aktivt i en database
HejJeg har et udtræk fra en database vist i en tabel. Den ene kolonne indeholder et link, men det bliver ikke vist som et aktivt link, men som text. Kan det ændres??
Eksempel på siden:
http://aa.1asphost.com/sapworld/display.asp
Koden
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/SAPWORLD/database/links.mdb")
Conn.Open DSN
sql = "Select * from info"
set rs = Conn.execute(sql)
' set objlinks = Conn.execute(sql)
%>
<table width="100%" border="0" cellspacing="1" cellpadding="1">
<tr>
<td>
<tr>
<td>
<table width="60%" border="0" cellspacing="1" cellpadding="4">
<tr>
<td width="20%" bgcolor="#6699CC"><B>nr.</B></td>
<td width="20%" bgcolor="#6699CC"><span lang="da"><b>Initials</b></span></td>
<td width="20%" bgcolor="#6699CC"><span lang="da"><b>Module/Type</b></span></td>
</tr>
<%blnChangeColor=false%>
<%if rs.BOF=true and rs.EOF=true then%>
<h1> No data has been found in Period <b>
</b>
<%
else
arrData=rs.GetRows ()
arrSize=ubound(arrData,2)
if isarray(arrdata) then
for kk=0 to arrSize
if blnChangeColor=true then
%>
<tr>
<td width="20%" bgcolor="#DDE9F5"><%=arrData(0,kk)%></td>
<td width="20%" bgcolor="#DDE9F5"><%=arrData(1,kk)%></td>
<td width="20%" bgcolor="#DDE9F5"><%=arrData(2,kk)%></td>
</tr>
<%
blnChangeColor=false
else
%>
<tr>
<td width="5%" bgcolor="#ffffff"><%=arrData(0,kk)%></td>
<td width="10%" bgcolor="#ffffff"><%=arrData(1,kk)%></td>
<td width="20%" bgcolor="#ffffff"><%=arrData(2,kk)%></td>
</tr>
<%
blnChangeColor=True
end if
next
else
end if
end if%>
</table>
</table>
<%'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''%><%
rs.Close
set rs=nothing
set objConn =nothing
%>
/Kim
