31 messaggi dal 08 dicembre 2009
buorgiorno ragazzi, ho una classica form
nome e messaggio per commentare un post..
vorrei che la risposta che gia' avviene a video sia reperibile a tutti gli iscritti del sito..

questo è lo script da dove posso incominciare?

Private cn As New ADODB.Connection
Private rs As New ADODB.Recordset

Private Sub Page_Load(sender As Object, e As EventArgs)
cn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" _
& Server.MapPath("~/app_data/database2.mdb"))
rs.Open("SELECT * FROM guestbook ORDER BY id DESC", cn, 1)
cn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" _
& Server.MapPath("~/app_data/risultati2010.mdb"))
rs.Open("SELECT * FROM risultati ORDER BY id DESC", cn, 2)

rs.Close()
cn.Close()
End Sub

Private Sub Firma(sender As Object, e As EventArgs)
Dim re As New Regex("")
Dim nome As String = Replace(txtNome.Text, "'", "''")
Dim messaggio As String
messaggio = Replace( _
Replace( _
Replace( _
txtMessaggio.Text, "<", "&lt;"), vbCrLf, "<br>"), "'", "''")
If Len(Trim(nome)) = 0 Then
Messaggi.Text = "Inserisci il tuo nome"
Exit Sub
End If
If Len(Trim(messaggio)) = 0 Then
Messaggi.Text = "Inserisci il messaggio"
Exit Sub
End If

Dim url As String = Request.QueryString("gior")

Dim data As String = FormatDateTime(Now(), 1)
Dim id As String = Request.QueryString("id")
Dim SQL As String = ""
SQL += "INSERT INTO guestbook "
SQL += "(nome, messaggio, data, id, url) "
SQL += "VALUES "
SQL += "('" & nome & "', "
SQL += "'" & data & "', "
SQL += "'" & messaggio & "', "
SQL += "'" & id & "', "

SQL += "'" & url & "')"
cn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" _
& Server.MapPath("~/app_data/database2.mdb"))

cn.Execute(SQL)
cn.Close()

Response.Redirect("default.aspx?id=" & Request.QueryString("id") & "&gior=" & Request.QueryString("gior") & "&squadraa=" & Request.QueryString("squadraa") & "&squadrab=" & Request.QueryString("squadrab"))
End Sub
lupentinix wrote:
buorgiorno ragazzi, ho una classica form
nome e messaggio per commentare un post..
vorrei che la risposta che gia' avviene a video sia reperibile a tutti gli iscritti del sito..
questo è lo script da dove posso incominciare?

ad usare ADO.NET anzichè gli oggetti COM di ADO:
http://www.aspitalia.com/articoli/asp.net/adodotnet.aspx
http://www.aspitalia.com/articoli/asp.net2/ado.net2.aspx

a quel punto, crei un bel datareader che legga le info di tutti gli utenti e mandi una mail. occhio che se sono tanti, potresti rallentare la pagina o, peggio ancora, mandarla in timeout.
.

Daniele Bochicchio | ASPItalia.com | Libri
Chief Operating Officer@iCubed
Microsoft Regional Director & MVP
31 messaggi dal 08 dicembre 2009
grazie per il consiglio.. sono un novello.. e sto cencando di imparare.. il sito che ho costruito è per passione non per scopo di lucro.. mi faresti un esempio in base allo script precednete?
lupentinix wrote:
grazie per il consiglio.. sono un novello.. e sto cencando di imparare..

quindi, hai letto e messo in pratica il mio consiglio?

mi faresti un esempio in base allo script precednete?

di come mandare una mail?
http://www.aspitalia.com/script/784/Invio-Email-Classe-MailMessage-ASP.NET-2.0.aspx

Daniele Bochicchio | ASPItalia.com | Libri
Chief Operating Officer@iCubed
Microsoft Regional Director & MVP
31 messaggi dal 08 dicembre 2009
GRAZIE .. ora prova a metterlo in pratica... speriamo !!!
31 messaggi dal 08 dicembre 2009
questo script sembra fatto al mio caso.. ma vorrei richiamare l'oggetto e il messaggio da un db access.. come posso fare?


Sub Button1_Click(sender As Object, e As EventArgs)

Try
Dim mail As New MailMessage
mail.From = txtFrom.Value
mail.To = txtTo.Value
mail.Subject = txtSubject.Value
mail.Body = txtBody.Value
SmtpMail.Send(mail)

' nascondo la form
form1.visible = false

lblAvviso.InnerHtml = "E-mail inviata con successo!"


Catch exc As Exception
lblAvviso.InnerHtml = "Errore nell'invio del messaggio:<br>" & exc.ToString
End Try

End Sub
lupentinix wrote:
questo script sembra fatto al mio caso.. ma vorrei richiamare l'oggetto e il messaggio da un db access.. come posso fare?

fai una query con un DataReader ed imposti le proprietà dopo aver letto i valori dal database.
.

Daniele Bochicchio | ASPItalia.com | Libri
Chief Operating Officer@iCubed
Microsoft Regional Director & MVP
31 messaggi dal 08 dicembre 2009
onestamente non avendo basi su asp.net sono in difficolta'.. perche' non so neanche' da dove cominciare.. mi sa che mi devo arrendere su questa siturazione

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.