<b>longhiba ha scritto:</b>
<BLOCKQUOTE id=quote><font size=1 face="Arial" id=quote><hr height=1 noshade id=quote>
BELLA STORIA!...
Ma non mi hai risolto il problema di andare al record specifico!
E poi, lo script di cancellazione o di modifica, lo scrivo tra if e end if di ognuna delle opzioni?
Scusa, forse sono un po' stupida io o forse dovrei studiarmi meglio il manuale...
Nel frattempo grazie.
Ba.
Ba
<hr height=1 noshade id=quote></BLOCKQUOTE id=quote></font id=quote><font face="Arial" size=2 id=quote>
Per specificare il record specifico devi estrarre i dati dal database e associarli ai link
esempio
<a href="pagina.asp?azione=modifica&numero=<%=rs("ID")%>">Modifica</a>
<a href="pagina.asp?azione=cancella&numero=<%=rs("ID")%>">Cancella</a>
poi qui metti :
<%
if Request.QueryString("azione")="" Or Request.QueryString("azione")<>"modifica" Or Request.QueryString("azione")="cancella" then
Response.write "Mi dispiace ma non si può accedere a questa pagina"
Response.write "<a href=""javascript:history.back()"">Torna indietro</a>"
Response.End
end if
'controlliamo anche il valore id che è meglio
numero=Request.QueryString("numero")
if IsNumeric(numero)=false then
Response.write "Attenzione c'è un errore"
Response.write "<br>I valori non rientrano nei criteri"
Response.End
end if
'per prima cosa ti conviene vedere se realmente esiste il record
if Request.QueryString("azione")="modifica" then
Set connessione = Server.CreateObject("ADODB.Connection")
connessione.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("nome_database.mdb") ,1,3
set controllo=connessione.Execute("Select*from nome_tabella Where id="&numero&"")
if controllo.Eof then
Response.write "Il record non esiste"
Response.end
else
<b>'esempio</b>
sql="UPDATE nome_tabella Set campo='valore' Where Id="&numero&""
set inserisci=connessione.Execute(sql)
Set controllo=nothing
Set inserisci=Nothing
connessione.Close
Set connessione=Nothing
end if
end if
if Request.QueryString("azione")="cancella" then
Set connessione = Server.CreateObject("ADODB.Connection")
connessione.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("nome_database.mdb") ,1,3
set controllo=connessione.Execute("Select*from nome_tabella Where id="&numero&"")
if controllo.Eof then
Response.write "Il record non esiste"
Response.end
else
<b>'esempio</b>
sql="Delete From nome_tabella where id="&numero&""
set cancella=connessione.Execute(sql)
Set cancella=Nothing
set controllo=Nothing
connessione.Close
Set connessione=nothing
end if
end if
%>
Rome Webmaster