RETIRAR UNDERLINE DO LINK
TENHO ESTE CÓDIGO ABAIXO E GOSTARIA DE SABER COMO TIRAR UNDERLINE DO LINK? EM ANEXO A IMAGEM
<%
Dim objCon, objR, strQuer, strConnectio
[ô]Conectando com o banco de dados contato.mdb
Set objCon = Server.CreateObject([Ô]ADODB.Connection[Ô])
objCon.Open [Ô]DBQ=[Ô] & Server.MapPath([Ô]adm.mdb[Ô]) & [Ô];Driver={Microsoft Access Driver (*.mdb)}[Ô],[Ô]username[Ô],[Ô]password[Ô]
[ô]Seleciona da tabela contato
strQuer = [Ô]SELECT * FROM direitos ORDER BY autonum aSC[Ô]
Set ObjR = objCon.Execute(strQuer)
%>
<html>
<LINK REL=stylesheet HREF=[Ô]liks_etc.css[Ô] TYPE=[Ô]text/css[Ô]>
<head>
</head>
<%Set objrs = Server.CreateObject([Ô]ADODB.RecordSet[Ô])
[ô]objr.MaxRecords = 3
[ô]objr.open strQuery,objConn %>
<% While Not objR.EOF
Response.Write [Ô]<p><b><font face=tahoma size=2 font color=#696969><a href=direitos.asp?autonum=[Ô] &objR.Fields([Ô]autonum[Ô]) & [Ô]>[Ô] & [Ô]• [Ô] &objR.Fields([Ô]direitos[Ô])&[Ô]</a></b><br><font color=[Ô][Ô]#696969[Ô][Ô]> [Ô] & [Ô]</font></font></p>[Ô]
objR.MoveNext
Wend
[ô]Fechando as conexões
objR.close
objCon.close
Set objR = Nothing
Set objCon = Nothing
%>
</table>
</td>
</tr>
</table>
</form>
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
</body>
</html>
<%
Dim objCon, objR, strQuer, strConnectio
[ô]Conectando com o banco de dados contato.mdb
Set objCon = Server.CreateObject([Ô]ADODB.Connection[Ô])
objCon.Open [Ô]DBQ=[Ô] & Server.MapPath([Ô]adm.mdb[Ô]) & [Ô];Driver={Microsoft Access Driver (*.mdb)}[Ô],[Ô]username[Ô],[Ô]password[Ô]
[ô]Seleciona da tabela contato
strQuer = [Ô]SELECT * FROM direitos ORDER BY autonum aSC[Ô]
Set ObjR = objCon.Execute(strQuer)
%>
<html>
<LINK REL=stylesheet HREF=[Ô]liks_etc.css[Ô] TYPE=[Ô]text/css[Ô]>
<head>
</head>
<%Set objrs = Server.CreateObject([Ô]ADODB.RecordSet[Ô])
[ô]objr.MaxRecords = 3
[ô]objr.open strQuery,objConn %>
<% While Not objR.EOF
Response.Write [Ô]<p><b><font face=tahoma size=2 font color=#696969><a href=direitos.asp?autonum=[Ô] &objR.Fields([Ô]autonum[Ô]) & [Ô]>[Ô] & [Ô]• [Ô] &objR.Fields([Ô]direitos[Ô])&[Ô]</a></b><br><font color=[Ô][Ô]#696969[Ô][Ô]> [Ô] & [Ô]</font></font></p>[Ô]
objR.MoveNext
Wend
[ô]Fechando as conexões
objR.close
objCon.close
Set objR = Nothing
Set objCon = Nothing
%>
</table>
</td>
</tr>
</table>
</form>
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
</body>
</html>
<a href=[Ô]http://sites.google.com/site/programacaoonline[Ô] [txt-color=#e80000]style=[Ô]text-decoration:none[Ô][/txt-color]>Programação On-Line</a>
Tecla não estou conseguindo encaixar nesta linha abaixo, dá erro ou não tira o underline do link
Response.Write [Ô]<p><b><font face=tahoma size=2 font color=#696969><a href=direitos.asp?autonum=[Ô] &objR.Fields([Ô]autonum[Ô]) & [Ô]>[Ô] & [Ô]• [Ô] &objR.Fields([Ô]direitos[Ô])&[Ô]</a></b><br><font color=[Ô][Ô]#696969[Ô][Ô]> [Ô] & [Ô]</font></font></p>[Ô]
Response.Write [Ô]<p><b><font face=tahoma size=2 font color=#696969><a href=direitos.asp?autonum=[Ô] &objR.Fields([Ô]autonum[Ô]) & [Ô]>[Ô] & [Ô]• [Ô] &objR.Fields([Ô]direitos[Ô])&[Ô]</a></b><br><font color=[Ô][Ô]#696969[Ô][Ô]> [Ô] & [Ô]</font></font></p>[Ô]
resolvi da seguinte forma:
montei no css o seguinte código
<style type=[Ô]text/css[Ô]>
A:link {text-decoration: none}
A:visited {text-decoration: none}
A:active {text-decoration: none}
A:hover {text-decoration: underline; color: red;}
</style>
montei no css o seguinte código
<style type=[Ô]text/css[Ô]>
A:link {text-decoration: none}
A:visited {text-decoration: none}
A:active {text-decoration: none}
A:hover {text-decoration: underline; color: red;}
</style>
Tópico encerrado , respostas não são mais permitidas