Codigo fonte
E um site de teste mas esta dano erro
o site é
http://web.1asphost.com/midiaplayer/index.asp
o erro
Microsoft VBScript runtime error '800a01a8'
Object required: ''
/midiaplayer/index.asp, line 4
o codigo
<!#include file="conexao.asp"->
<%
sql = "Select * from tab_favoritos order by urlnome"
set Rs = Conexao.Execute(sql)
%>
<html>
<head>
<title>Teste</title>
</head>
<body bgcolor="#FFFFFF" text="#000000">
<form name="form1" method="post" action="insereurl.asp">
<table width="600" border="0" cellspacing="0" cellpadding="0">
<tr bgcolor="#CCCCCC">
<td colspan="2"><font face="Verdana" size="1"><b><font size="2">Favoritos</font></b></td>
</tr>
<tr>
<td width="8%"><font face="Verdana" size="1">Nome:</font></td>
<td width="92%"><font face="Verdana" size="1">
<input type="text" name="nome" size="70">
</font></td>
</tr>
<tr>
<td width="8%"><font face="Verdana" size="1">URL</font></td>
<td width="92%"><font face="Verdana" size="1">
<input type="text" name="url" size="70" valvue="http://">
</font></td>
</tr>
<tr>
<td colspan="2">
<div align="center">
<input type="submit" name="submit" value="enviar" style='font-family: "Verdana"; font-size: 8pt;'>
</div>
</td>
</tr>
</table>
</form>
<table width="600" border="0" cellspacing="0" cellpading="0">
<tr>
<td colspan="4" bgcolor="#CCCCCC"><font face="Verdana" size="1"><b><font size=2>Sites Cadastrados</font></b></font></td>
</tr>
<tr>
<td width="300"><b><font face="Verdana" size="1">Nome</font></b></td>
<td width="140"><b><font face="Verdana" size="1">URL</font></b></td>
<td width="20"> </td>
<td width="20"> </td>
</tr>
<tr>
<td colspan="4"><b></b><b><img scr="blank.gif" width="20" height="10"></b></td>
</tr>
<% Do while not Rs.Eof
urlid = Rs.Fields("urlid")
urlnome = Rs.Fields("urlnome")
urlendereco = Rs.Fields("urlendereco")
%>
<tr>
<td width="300"><a ref="<%=urlendereco%>" target="_blank"><font face="Verdana" size="1" color="#000000">
<b><%=urlnome%></b></font></a></td>
<td width="260"><a ref="<%=urlendereco%>" target="_balnk"><font face="Verdana" size="1" color="#000000">
<%=urlendereco%></font</a></font></a></td>
<td width="20">
<div align="center"><a herf="alteraurl.asp?urlid=<%=urlid%>"><font face="Verdana" size="1" color="#000000"><b>...</b></font></a></div>
</td>
<td width="20">
<div align="center"><a herf="excluiurl.asp?urlid=<%=urlid%>"><font face="Verdana" size="1" color="#FF0000"><b>X</b></font></a></div>
</td>
</tr><%Rs.MoveNext
Loop%>
</table>
</body>
</html><%
Rs.Close
Conexao.Close
Set rs = Nothing
Set Conexao = Nothing
%>
o que esta errado aki???
Discussão (1)
Carregando comentários...