I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio
pinolone
pinolone
l'8 agosto 2002 alle 22:22
4 messaggi dal 01 ottobre 2001
non riesco più a capire quale sia il problema in questa pagina :
<%@LANGUAGE="VBSCRIPT"%>
<% dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath ("catalogo.mdb")
dim rs
Set rs=Server.CreateObject("ADODB.Recordset")
rs.open "select * from carrello ",conn,3,3
%>
<%
If request("cartID") <> "" then
deleteID=request("cartID")
rs.activeConnection=conn
rs.Commandtext= "delete * from carrello where cartID="&deleteID
rs.execute
end if
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<p>ELIMINA DAL CARRELLO IL PRODOTTO </p>
<form name="formdelete" method="POST" action="<%=cancella%>">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>CARTID</td>
<td>PRODOTTO</td>
<td> </td>
<td>Seleziona il Prodotto per la sua cancellazione</td>
</tr>
<% do while NOT RS.EOF %>
<tr>
<td><b><%=(rs.Fields.Item("cartID").Value)%></b></td>
<td><b><font color="#FF0000"><%=(rs.Fields.Item("prod_name").Value)%></font></b></td>
<td> </td>
<td>
<input type="checkbox" name="deleteID" value="<%=(Rs.Fields.Item("cartID").Value)%>">

</td>
</tr><% rs.MoveNEXT loop %>
<tr>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
<td>
<input type="submit" name="Submit" value="Elimina dal carrello">
</td>
</tr>
</table>
<input type="hidden" name="deleteID" value="true">
</form>
<h2>  </h2>
</head>

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

</body>
</html>
<% rs.close
set rs=Nothing
conn.close
set conn=Nothing %>
la pagina funziona correttamente ma al momento della selezione con il checkbox e la conferma con il submit non vi è esecuzione dell'istruzione di cancellazione,
qualcuno mi aiuti,grazie

RispondiQuoting
rome
rome
il 9 agosto 2002 alle 04:27
2.907 messaggi dal 15 maggio 2001
Contributi
If request("deleteID") <> "" then
delete="delete * from carrello where"
deleteID=request("cartID")
elementi=Split(deleteID,";")
conto=Ubound(elementi)
for i=0 to conto
if i<>conto then
delete=delete&"cartID="&Cint(elementi(i))&" AND"
else
delete=delete&"cartID="&Cint(elementi(i))
end if
Next
set elimina=conn.Execute(delete)
end if


<font size=3> -¦» Rome Webmaster «¦- </font id=size3><font size=2> <b> [</b> Alla prossima<b> ]</b> </font id=size2>

Gabriele Romeo
<b>Community Manager di</b> http://www.aspitalia.com
RispondiQuoting
rome
rome
il 12 agosto 2002 alle 19:47
2.907 messaggi dal 15 maggio 2001
Contributi
Scrivi solamente la virgola al posto del punto e virgola

così :

elementi=Split(deleteID,"<b>,</b>")

se riporta altri errori segnalali



<font size=3> -¦» Rome Webmaster «¦- </font id=size3><font size=2> <b> [</b> Alla prossima<b> ]</b> </font id=size2>

Gabriele Romeo
<b>Community Manager di</b> http://www.aspitalia.com
RispondiQuoting

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.