-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy patheliminar_documento.asp
110 lines (105 loc) · 2.73 KB
/
eliminar_documento.asp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
<%@ Language=VBScript %>
<%
dim usuario
usuario = session("id")
if isempty(usuario) then
%>
<html>
<link href="./theme/Master.css" rel="stylesheet" type="text/css">
<script language="javascript">
function cerrarventana() {
opener.window.location = 'Login.asp'
window.close
}
</script>
<body onload="javascript:cerrarventana()">
</body>
</html>
<%
end if
foro = Request.QueryString("foro")
tipo = request.QueryString("tipo")
respuesta = request.QueryString("respuesta")
dim db
dim rs
set db = server.CreateObject("SQLComandos.Comandos")
if tipo="2" and not isempty(respuesta) then
sql = "select id,enlace,archivo from documento where respuesta = "&respuesta & "and foro = "& foro
else
sql = "select id,enlace,archivo from documento where foro = "&foro
end if
set rs = db.SQLSelect("DBBAECYS",sql)
if not rs.eof then
%>
<html>
<head>
<link href="./theme/Master.css" rel="stylesheet" type="text/css">
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<title>Eliminar Documento</title>
</head>
<script language="JavaScript">
function cerrarventana() {
window.close()
// window.parent.close()
}
function Eliminar(Documento) {
forma.documento.value=Documento
forma.submit()
}
</script>
<body>
<form name="forma" method="post" action="elimina_docforo.asp">
<input name="documento" type="hidden" value="">
<input name="tipo" type="hidden" value="<%=tipo%>">
</form>
<br>
<div align="center">
<h2>Documentos Ingresados</h2>
<table border="0" cellpadding="2" cellspacing="2">
<tbody>
<tr>
<th class="celdaBgBlue" align="center"> Enlace </th>
<th class="celdaBgBlue" align="center">Archivo</th>
<th class="celdaBgBlue" align="center"> </th>
</tr>
<%
while rs.eof <> true
%>
<tr class="celdaBgBlue05" align="center">
<td><font size="2" face="Arial, Helvetica, sans-serif"> <%=rs("enlace")%> </font></td>
<td><font size="2" face="Arial, Helvetica, sans-serif"> <%=rs("archivo")%> </font></td>
<td> <img alt="Eliminar" src="iconos/deletes.gif" onclick="javascript:Eliminar('<%=rs("id")%>')" WIDTH="22" HEIGHT="19"> </td>
</tr>
<%
rs.movenext
wend
%>
</tbody>
</table>
<table width="0%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><input name="Cancelar" class="celdaBgBlue05" type="button" onClick="javascript:cerrarventana()" value="Cancelar"></td>
</tr>
</table>
</div>
</body>
</html>
<%
else
%>
<html>
<script language="javascript">
function cerrarventana()
{
alert("Este foro no tiene documentos enlazados.\n")
window.close()
}
</script>
<body onload="javascript:cerrarventana()">
</body>
</html>
<%
end if
set rs = nothing
set db = nothing
%>