Il mercatino delle novità
3 pagine in totale: <<Indietro 1 [2] 3 Avanti >>
La tabella parallela
Inseriamo ora gli annunci nella tabella parallela. Usiamo un normalissimo form per l'invio dei dati che verranno inseriti direttamente nel database .
' Scrivo i valori spediti tramite il metodo POST nelle variabili
nome = Request.form("nome")
cognome = Request.form("cognome")
citta = Request.form("citta")
telefono = Request.form("telefono")
mail = Request.form("mail")
rubrica = Request.form("rubrica")
annuncio = Request.form("annuncio")
dim conn
dim rs
set conn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
conn.Open "DSN=database"
' Inserisco i dati nella tabella DAWEB parallela ad ANNUNCIO
SQL = "INSERT INTO DAWEB (nome, cognome, citta, telefono, mail, rubrica, annuncio) "
SQL = SQL & "VALUES ('" & nome & "','" & cognome & "','" & citta & "','" & telefono & "','" & mail & "','" & rubrica & "','" & annuncio & "')"
rs.Open SQL, conn
Se guardiamo bene il codice ASP vediamo che quando eseguiamo lo spostamento da una tabella all'altra non facciamo altro che estrarre il record corrispondente, cancellarlo dalla tabella "DAWEB" e inserirlo nella tabella pubblica "ANNUNCIO", il tutto utilizzando il riferimento ID del record.
Quando il server web esegue il codice ASP controlla in primo luogo se viene passato il campo azione con valore "cancella" o "aggiorna", e agisce di conseguenza.
Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "DSN=database"
' se AZIONE=CANCELLA ...
if request.querystring("azione") = "Cancella" then
SQLCANC ="delete * from DAWEB where ID = "&request.querystring("ID")&""
Set Rs=OBJdbConnection.Execute(SQLCANC)
OBJdbConnection.close
' se invece AZIONE=AGGIORNA ...
elseif request.querystring("azione") = "Aggiorna" then
SQL ="select * from DAWEB where ID = "&request.querystring("ID")&""
Set Rs=OBJdbConnection.Execute(SQL)
SQLINS="INSERT INTO ANNUNCIO (nome, cognome, citta, telefono, mail, rubrica, annuncio) "
SQLINS = SQLINS & "VALUES ('" & Rs("nome") & "','" & Rs("cognome") & "','" &Rs("citta") & "','" & Rs("telefono") & "','" & Rs("mail") & "','" & Rs("rubrica") & "','" & Rs("annuncio") & "')"
OBJdbConnection.Execute(SQLINS)
SQLCANC ="delete * from DAWEB where ID = "&request.querystring("ID")&""
OBJdbConnection.Execute(SQLCANC)
OBJdbConnection.close
end if
' Qualsiasi valore abbia AZIONE, anche nullo, estraggo comunque tutti
' i record dalla tabella "DAWEB" per visualizzarli
Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "DSN=database"
sql="select * from DAWEB"
Set RS=OBJdbConnection.Execute(sql)
%> Cliccando sul link che segue sposto il record nella Tabella "ANNUNCIO" cancellandolo da "DAWEB", passando anche lo user e la password che mi permettono di ricaricare la pagina.
<a href="gestione.asp?Azione=Aggiorna&ID=<%=RS("ID")%>&user=<%=user%>&password=<%=password%>">>Aggiungi record</a> Cliccando su quest'altro link elimino il record dalla Tabella "DAWEB.
<a href="gestione.asp?Azione=Cancella&ID=<%=RS("ID")%>&user=<%=user%>&password=<%=password%>">Cancella record</a>>3 pagine in totale: <<Indietro 1 [2] 3 Avanti >>
Attenzione: Questo articolo contiene un allegato
Contenuti dell'articolo
Sullo stesso argomento
Commenti
Aggiungi un nuovo commento »»»
Per inserire un commento, devi registrarti alla nostra community.
Difficoltà
Stampa 
Download
10annidi.ASPItalia.com: iscriviti alla competizione e vinci fantastici premi ogni mese!
