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, "<", "<"), 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
