| Usuario |
duda con excel en asp |
Desconocido
|
| Enviado - 19/5/2004 |
| |
Hola:
Me gustari saber que codigo tendria q usar para que me apareciera una tbla procedente de excel y que al lado de cada registro me apareciera un campo que pusiera borrar y que al pulsar sobre ese rejistro se borre. Este es mi codigo pero me da error
<html>
<body>
<%Dim num_del
num_del=0
%>
<!--#include file="ADOVBS.inc"-->
<center>
<TABLE BORDER=1 background="fondo_tabla.jpg" border=3 bordercolor=black>
<TR>
<TH bgcolor="548798"> <font color=white>GAMA</TH> </form>
<TH bgcolor="548798"> <font color=white>VEHICULO </TH>
<TH bgcolor="548798"> <font color=white>CHASIS</TH>
<TH bgcolor="548798"> <font color=white>BORRAR </TH>
<tr>
<%Set ob_conn=server.createobject("ADODB.Connection")
OB_Conn.Open "pedidos"
Set ob_rs=ob_conn.Execute("select * from datos")%>
<% DO UNTIL OB_RS.Eof %>
<%num_del=num_del+1%>
<TD bgcolor="548798"><center><b><font size=2><% =ob_rs("GAMA") %></TD>
<TD bgcolor="548798"><center><b><font size=2><% =ob_rs("VEHICULO") %></TD>
<TD bgcolor="548798"><center><b><font size=2><% =ob_rs("CHASIS") %></TD>
<TD bgcolor="548798"><center><b><font size=2><a href="del_coche.asp?chasis=<%=ob_rs("CHASIS")%>" >BORRAR</TD>
<tr>
<%OB_RS.Movenext
loop%>
</body>
</html>
-----------------------------------------------------
<%num_chasis=request.querystring("chasis")%>
<%response.write(borra)%>
<!--#include file="ADOVBS.inc"-->
<%Set ob_conn=server.createobject("ADODB.Connection")
OB_Conn.Open "pedidos"
Set ob_rs=ob_conn.Execute("delete from datos where chasis=' num_chasis' ")%>
|
| |
|
|
|
