- Home
- Categorie
- Coding e Sistemistica
- Altri linguaggi per il web
- Creare Pagina aggiungi record DB
-
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.
-
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
%>
<!--#include file="connessione.asp"-->
<%
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"
%><!--#include file="notifyrecord.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
-
objMail.To = "[email protected]l" ' Destinatario
Hai scritto male la tua email... controlla, **c'è una ****l in più
**
-
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?
-
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
-
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???
-
si... prova no?
-
praticamente funziona però mi invia la mail con Titolo: Anno: tutti infila orizzontale e non verticale capito???
dovrebbe essere così :
Titolo:
Anno:
....ho provato ad inserire un record nonostante lo inserisca e quindi esegue la pagina add.process.asp manda l'email.....ma solo con titolo: anno: senza nulla dopo cioè senza ciò che scrivo nei campi!!!
non capisco
-
@La Maglia Rosanero said:
praticamente funziona però mi invia la mail con Titolo: Anno: tutti infila orizzontale e non verticale capito???
Devi aggiungere il carattere di ritorno a capo ( vbCrLf ) all'interno della stringa che contiene il body:
[...] body = body & "Titolo: " & titolo & vbCrLf body = body & "Anno: " & anno & vbCrLf body = body & "Partita: " & partita & vbCrLf [...]
ecc... ecc...
PS: Si dice: "...non so se sono stato chiaro" e non "...capito???"
-
si scusa
allora.....
niente mi arriva la mail :
Inserito Nuovo Record con queste Caratteristiche Titolo: Anno: Partita: Data: Marcatori: Size: Parole Chiave: URL:usando questo codice :
Set objMail.Configuration = objConfig objMail.From = "[email protected]" ' Mittente objMail.To = "[email protected]" ' Destinatario objMail.Subject = "Inserito nuovo record nel DB" ' Oggetto body = body & "Inserito Nuovo Record con queste Caratteristiche" & vbCrLf body = body & "Titolo: " & titolo & vbCrLf body = body & "Anno: " & anno & vbCrLf body = body & "Partita: " & partita & vbCrLf body = body & "Data: " & data & vbCrLf body = body & "Marcatori: " & marcatori & vbCrLf body = body & "Size: " & size & vbCrLf body = body & "Parole Chiave: " & parole_chiave & vbCrLf body = body & "URL: " & url & vbCrLf objMail.HTMLBody = body objMail.Send() Set objMail = Nothing %>
non mi inserisce neanche cio che ho scritto nei campi!