Ir para conteúdo

POWERED BY:

Arquivado

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

razstec

db delete

Por , em ASP Clássico

Recommended Posts

razstec    0

razstec
Postado

*** eu desisto...nao a maneira de por isto a funcionar...Obrigado por tudo e desculpem ter feito perder o vosso tempo :(

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ivan.Teles    23

Ivan.Teles
Postado

Cara me desculpa mas otem fiquei enrolado até 11:00 da madruga importando e-mail de uma hospedagem para outra.

Mas segue a baixo teste e me fala.

 

db_view.asp

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Nome</title>
<form name="inscoment" method="POST" id="inscoment" font color="#FFFFFF" >

</head>

<%
cod=request.querystring("cod")


set conn = CreateObject("ADODB.Connection")
conn.Provider = "Microsoft.Jet.Oledb.4.0"
conn.Open Server.MapPath("db/dbpm.mdb")
set rs=server.createobject("adodb.recordset")

inscoment="select * from karaoke" 
rs.open inscoment,conn,1
%>

<%
request.querystring("cod")

if rs.recordcount > 0 then 

%>


<body bgcolor="#FFFFFF" text="#000000">


<form method="POST" name="select">


<div style="position: absolute; top: 23px; left: 126px; width: 779px; height: 22px; z-index: 9" align="center">

<table border="1" id="table1" width="663">
<tr>
<% 
cor="#5A9DFF"
for j=1 to rs.recordcount
%>
<td text=black bgcolor="#<%=cor%>" align="left" width="50"><%=rs.Fields("id")%></td>
<td text=black bgcolor="#<%=cor%>" align="left"><%=rs.Fields("titulo")%></td>
<td text=black bgcolor="#<%=cor%>" width="75" bordercolor="#C0C0C0" align="center"><input type="button" value="Apagar" onClick="java script:location.href='delete.asp?id=<%= oRS.Fields("id").Value %>'"><%= oRS.Fields("titulo").Value %></td>
</tr>

<% rs.movenext
if cor="#5A9DFF" then
cor="9999ff"
else
cor="#5A9DFF"
end if
next 
end if
%>
</table>

</div>

</form>
</body>

</html>

delete.asp

<%
'Set Variables
Dim DBCon
Dim DataPath
Dim strItem

strItem = Request.QueryString("id")

DataPath = Server.MapPath("db/dbpm.mdb")

'Start the Database Connection
Set DBCon = Server.CreateObject("ADODB.Connection")

'Choose the type of connection
'Here, were are using OLE DB
'ODBC Connection
'DBCon.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & DataPath & ";Persist Security Info=False"

'OLEDB
DBCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DataPath & ";Persist Security Info=False"

sql = "DELETE * FROM filme WHERE cod = " & strItem & ";"
DBCon.Execute(sql)
%>
 <p align="center"> </p>
<p align="center"><b><i><font face="Comic Sans MS" size="6">Apagado</font></i></b><font color=#FFFFCC size=2 face="Comic Sans MS"><br>
<b>
<a href="db_view.asp">Voltar</a></b><font color=#CC9966>
</p>
<%
DBCon.Close
Set DBCon = Nothing
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

razstec    0

razstec
Postado

Viva isolei o problema, mas parece-me estar tudo bem, nao percebo o que possa tar mal.

 

<html>

 

<head>

<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">

<title>Nome</title>

<form name="inscoment" method="POST" id="inscoment" font color="#FFFFFF" >

 

</head>

 

<%

cod=request.querystring("cod")

 

 

set conn = CreateObject("ADODB.Connection")

conn.Provider = "Microsoft.Jet.Oledb.4.0"

conn.Open Server.MapPath("db/dbpm.mdb")

set rs=server.createobject("adodb.recordset")

 

inscoment="select * from karaoke"

rs.open inscoment,conn,1

%>

 

<%

request.querystring("cod")

 

if rs.recordcount > 0 then

 

%>

 

 

<body bgcolor="#FFFFFF" text="#000000">

 

 

<form method="POST" name="select">

 

 

<div style="position: absolute; top: 23px; left: 126px; width: 779px; height: 22px; z-index: 9" align="center">

 

<table border="1" id="table1" width="663">

<tr>

<%

cor="#5A9DFF"

for j=1 to rs.recordcount

%>

 

<td text=black bgcolor="#<%=cor%>" align="left" width="50"><%=rs.Fields("ID")%></td>

 

<td text=black bgcolor="#<%=cor%>" align="left"><%=rs.Fields("titulo")%></td>

 

<% response.write "111111111111111111111111111111111111111111111111111111" %>

 

<td text=black bgcolor="#<%=cor%>" width="75" bordercolor="#C0C0C0" align="center"><input type="button" value="Apagar" onClick="java script:location.href='delete.asp?titulo=<%= oRS.Fields("titulo").Value %>'"></td>

 

<% response.write "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa" %>

 

</tr>

 

<% rs.movenext

if cor="#5A9DFF" then

cor="#9999ff"

else

cor="#5A9DFF"

end if

next

end if

%>

</table>

 

</div>

 

</form>

</body>

 

</html>

 

 

http://www.pantufasmultimedia.com/db_view.asp

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