Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

MidiaPlayer

Codigo fonte

Por , em ASP Clássico

Recommended Posts

MidiaPlayer    0

MidiaPlayer
Postado

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???

Compartilhar este post

Link para o post
Compartilhar em outros sites

gastao    0

gastao
Postado

E um site de teste mas esta dano erroo site é http://web.1asphost.com/midiaplayer/index.aspo 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.MoveNextLoop%></table></body></html><%Rs.CloseConexao.CloseSet rs = NothingSet Conexao = Nothing%>o que esta errado aki???

<!--#include file="conexao.asp"->sql = "Select * from tab_favoritos order by urlnome ASC"

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito