Ir para conteúdo

POWERED BY:

Arquivado

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

MidiaPlayer

Lista de site

Por , em ASP Clássico

Recommended Posts

MidiaPlayer    0

MidiaPlayer
Postado

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

<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

%>

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