Creare Pagina aggiungi record DB

la.maglia.rosanero

scusa ma sta volta non ho capito io!
a me interessa che sia messo di default accanto ad ogni descrizione nei risultati la parola tipo Anno: senza che spunti però nel form....todo aquì
altre cose....tipo modificare l'approccio come dici tu.....nn saprei da dove cominciare...per il momnto vorrei risolvere questo fatto...poi si vede.....

P.S magari mi spieghi perchè non devo inserire le descrizioni nel db?

madai

@La Maglia Rosanero said:

P.S magari mi spieghi perchè non devo inserire le descrizioni nel db?

è uno spreco di memoria, va contro il più semplice principio di normalizzazione dei database: la ridondanza

Per favore postami il codice che utilizzi per mostrare i risultati di una ricerca.

la.maglia.rosanero

With Response
.Write("")
.Write("<a href="""& nomepagina &"?url=" + RsRecord("URL") & """ target=""_blank"">" & RsRecord("TITOLO") & "</a> ")
.Write(RsRecord("ANNO") & " ")
.Write(RsRecord("DATA") & " ")
.Write(RsRecord("PARTITA") & " ")
.Write(RsRecord("MARCATORI") & " ")
.Write(RsRecord("SIZE") & " ")
.Write("")
.Write("File Scaricato volte n° " & RsRecord("CLICKCOUNT"))

spiegami allora dove dovrei mettere le descrizioni???

madai


With Response 
.Write("<p>") 
.Write("<a href="""& nomepagina &"?url=" + RsRecord("URL") & """ target=""_blank"">" & RsRecord("TITOLO") & "</a><br>") 
.Write("Anno:" & RsRecord("ANNO") & "<br/>") 
.Write("Data:" & RsRecord("DATA") & "<br/>") 
.Write("Partita:" & RsRecord("PARTITA") & "<br/>") 
.Write("Marcatori:" & RsRecord("MARCATORI") & "<br/>") 
.Write("Size:" & RsRecord("SIZE") & "<br/>") 
.Write("</p>") 
.Write("File Scaricato volte n° " & RsRecord("CLICKCOUNT"))

la.maglia.rosanero

eh no.....tispiego....
se io scrivo quello che hai scritto tu....per quanto riguarda i vecchi record messi a mano si andrebbero a visualizzare due volte Anno: Anno :
solo per i nuovi record messi con il form sarebbe efficace....per i vecchi invece no...perchè in quelli vecchi ho messo a mano Anno: !!!
Non so se mi sono spiegato!

madai

Modifica i vecchi record eliminando le diciture. Se non erro puoi farlo direttamente da Access... dovrebbe avere un Cerca e Sostituisci.

PS: Prima di provare fai una copia del DB.

la.maglia.rosanero

fatto....e ora funziona..... ho modificato tutti i record......una faticaccia.....grazie cmq!

madai

@La Maglia Rosanero said:

fatto....e ora funziona..... ho modificato tutti i record......una faticaccia.....grazie cmq!

era la strada giusta

Prego

A presto

la.maglia.rosanero

arisalve.....
riprendo questopost....sperando di risolvere....
nonostante il settore aggiungi record del mi sito sia protetto da password...per evitare abusi da sconosciuti.....
quello che io vorrei è che una volta aggiunto un record mi sia mandata una notifica al mio indirizzo email dell'avvenuto inserimento.....c'è un modo per farlo?

madai

@La Maglia Rosanero said:

arisalve.....
riprendo questopost....sperando di risolvere....
nonostante il settore aggiungi record del mi sito sia protetto da password...per evitare abusi da sconosciuti.....
quello che io vorrei è che una volta aggiunto un record mi sia mandata una notifica al mio indirizzo email dell'avvenuto inserimento.....c'è un modo per farlo?
che problemi hai nell'riutilizzare il codice cui siamo addivenuti in quest'altro thread: http://www.giorgiotave.it/forum/asp-asp-net/16850-invio-email-asp-mi-date-un-consiglio-3.html#post136850?

Ovvero:

     
    Dim objMail, objConfig
    Set objMail = Server.createObject("CDO.Message")
    Set objConfig = Server.createObject ("CDO.Configuration")
    
    With objConfig
        .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.aruba.it"
        .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
        .Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
        .Fields.update
    End With

    Set objMail.Configuration = objConfig
    objMail.From = "[email protected]" ' Mittente
    objMail.To = "[email protected]" ' Destinatario
    objMail.Subject = "Inserito nuovo record nel DB xxx" ' Oggetto
    objMail.HTMLBody = "Qui puoi scrivere dettagli sulla DATA/ORA dell'inserimento, l'IP dell'utente che ha inserito etc. etc." ' Messaggio
    objMail.Send()
    Set objMail = Nothing

paocavo

Ciao,
c'è questa discussione a proposito dell'invio di mail tramite asp.

PS: ricordo che prima di richiedere un consiglio è vivamente consigliato fare una ricerca prima sul forum e poi eventualmente su Google per un dato problema.

la.maglia.rosanero

paolocavo.....scusa....
la mi difficoltà sta nel collegare l'inserimento di un record con l'invio di notifica email!
quello è invece un form per invio email.....il concetto è uguale lo so ma non so come collegare l'inserimento del record all'invio di notifica email!
E io non intendo collegarlo al semplice pulsante invia record....ma anche a quando si agisce nel database senza passare dal form per l'inserimento del record....inmodo tale che chiunque riuscisse a mod il database non dal form ma dal database stesso il lo vengo a sapere!

paocavo

@La Maglia Rosanero said:

paolocavo.....scusa....
la mi difficoltà sta nel collegare l'inserimento di un record con l'invio di notifica email!
quello è invece un form per invio email.....il concetto è uguale lo so ma non so come collegare l'inserimento del record all'invio di notifica email!
E io non intendo collegarlo al semplice pulsante invia record....ma anche a quando si agisce nel database senza passare dal form per l'inserimento del record....inmodo tale che chiunque riuscisse a mod il database non dal form ma dal database stesso il lo vengo a sapere!
Per la notifica di inserimento da web-form puoi tranquillamente inserire il codice che ti ha segnalato madai in una SUB e poi richiamarla subito dopo l'AddNew (meglio dopo aver chiuso la connessione al DB) del nuovo record.

Per le notifiche dirette dal Database (senza passare dal tuo form) dovresti scrivere una
procedura memorizzata all'interno del database (tra i Moduli del DB). Non so se quest'ultima cosa è fattibile con MS Access in quanto so che non supporta i ***Trigger ***(=procedure che gesticono eventi nel DB: ON_INSERT, ON_DELETE, ON_UPDATE, ecc...) come invece avviene per MS SQL-Server, Oracle, ecc...

PS: Personalmente non ritengo che il livello di criticità del tuo DB sia tale da richiedere simili contromisure, in ogni caso è utile porsi questi problemi. Facci sapere se trovi news sull'argomento.

la.maglia.rosanero

allora prndendo spunto dallo script che mi hai detto su...ho fatto questo:
<%Dim objMail, objConfig
Set objMail = Server.createObject("CDO.Message")
Set objConfig = Server.createObject ("CDO.Configuration")

With objConfig
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.aruba.it"
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
    .Fields.update
End With

Set objMail.Configuration = objConfig
objMail.From = "Add Record" ' Mittente
objMail.To = "[email protected]" ' Destinatario
objMail.Subject = "Inserito nuovo record nel DB" ' Oggetto
objMail.HTMLBody = "E' Stato Inserito un nuovo record nel database per il motore di ricerca" ' Messaggio
objMail.Send()
Set objMail = Nothing
%>

e questa è una pagina chiamata notifyrecord.asp
ora ho anche modificato la pagina non del form ma quella dello script vero e proprio cheinserisce il record nel db e ho messo un include file per la pagina notifyrecord.asp alla fine dello script dopo il %> che chiude lo script stesso!

Ora si potrebbe fare che la semplice esecuzione della pagina notifyrecord.asp manda la mail! che ne dici???
come si può far si che lo script dica ciò??

madai

Come mittente imposta un indirizzo email valido anche se inesistente altrimenti l'email potrebbe non partire.

Per il resto qual'è il problema? Mi sembra corretto quello che vuoi fare... l'include va bene. Prova.

la.maglia.rosanero

allora ho fatto così :
<%Dim objMail, objConfig
Set objMail = Server.createObject("CDO.Message")
Set objConfig = Server.createObject ("CDO.Configuration")

With objConfig
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.aruba.it"
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
    .Fields.update
End With

Set objMail.Configuration = objConfig
objMail.From = "[email protected]" ' Mittente
objMail.To = "[email protected]" ' Destinatario
objMail.Subject = "Inserito nuovo record nel DB" ' Oggetto
objMail.HTMLBody = "E' Stato Inserito un nuovo record nel database per il motore di ricerca" ' Messaggio
objMail.Send()
Set objMail = Nothing
%>

invece la pagina che aggiunge il record è questa :
<%
if Session("Autenticato")<>"OK" then
Response.Redirect("index.asp")
end if
%>

<%
titolo=Request.Form("titolo")
anno=Request.Form("anno")
partita=Request.Form("partita")
data=Request.Form("data")
marcatori=Request.Form("marcatori")
size=Request.Form("size")
parole_chiave=Request.Form("parole_chiave")
url=Request.Form("url")
SQL = "INSERT INTO risultati (titolo,anno,partita,data,marcatori,size,parole_chiave,url)"
SQL = SQL&"VALUES('"&titolo&"','"&anno&"','"&partita&"','"&data&"','"&marcatori&"','"&size&"','"&parole_chiave&"','"&url&"')"
Conn.Execute(SQL)
Response.Redirect "recordok.asp"
%>

praticamente aprendo la pagina notifyrecord.asp dovrebbe partire la mail in automatico e invece non parte nulla!
per quanto riguarda il secondo script postato....beh per funzionare prima dobbiamo far funzionare la pagina notifyrecord.asp

madai

objMail.To = "[email protected]l" ' Destinatario

Hai scritto male la tua email... controlla, **c'è una ****l in più
**

la.maglia.rosanero

azz eheheheh bene grazie per avermelo fatto notare.....non ci sarei mi arrivato
ora funziona!
senti per mettere i campi che sono stati inseriti???
come si fa?

madai

Stai facendo grandi progressi... non ci arrivi da solo?

Pensaci su... hai riempito delle variabili (titolo, anno, etc.) che poi hai utilizzato per inserirne il contenuto nel DB. Quelle variabili però sono ancora piene delle info che ti servono, quindi le puoi utilizzare per costruire il body del messaggio... una cosa del genere:

body = "Inserito nuovo record bla bla bla."
body = body & "Titolo: " & titolo
body = body & "Anno: " & anno
...
body = body & "IP insertore: " & Request.ServerVariables("REMOTE_ADDR")

objMail.HTMLBody = body

la.maglia.rosanero

grazie per i complimenti
quindi:

Set objMail.Configuration = objConfig
objMail.From = "[email protected]" ' Mittente
objMail.To = "[email protected]" ' Destinatario
objMail.Subject = "Inserito nuovo record nel DB" ' Oggetto
body = body & "Titolo: " & titolo
body = body & "Anno: " & anno
body = body & "Partita: " & partita
body = body & "Data: " & data
body = body & "Marcatori: " & marcatori
body = body & "Size: " & size
body = body & "Parole Chiave: " & parole_chiave
body = body & "URL: " & url
objMail.HTMLBody = body
objMail.Send()
Set objMail = Nothing
%>

giusto?
dovrebbe andare così giusto???