Lista de site
Estou com um problema no site é so um teste mais não funcionou.
Esta hospedado no Xoom.it talvez seja por isto....espero que não.
tentei rodar mais só o index q funcionou.
http://members.xoom.it/midiaplayer/teste/index.asp
conexao.asp
<%
Set Conexao = Server.CreateObject("ADODB.Connection")
Dim Dbq
Dbq = Server.MapPath("favoritos.mdb")
Conexao.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Dbq
%>
Index.asp
<!--#include file="http://members.xoom.virgilio.it/midiaplayer/teste/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="[http://members.xoom.virgilio.it/midiaplayer/teste/insereurl.asp">](http://members.xoom.virgilio.it/midiaplayer/teste/insereurl.asp%22)
<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
%>
insereurl.asp
<!--#include file="http://members.xoom.virgilio.it/midiaplayer/teste/conexao.asp"-->
<%
urlnome = request.form("nome")
urlendereco = request.form("url")
Sql = "Insert Into tab_favoritos (urlnome,urlendereco) values ('" & urlnome & "', '" & urlendereco & "')"
Set Rs = Conexao.Execute(sql)
Response.Redirect "http://members.xoom.virgilio.it/midiaplayer/teste/index.asp"
Rs.Close
Conexao.Close
Set rs = Nothing
Set Conexao = Nothing
%>
Discussão (1)
Carregando comentários...