Insert

[rafpas]

cioa ragazzi,

chi mi puo dare mano

<script language="vb" runat="server">
Sub Page_Load(Src As Object, E As EventArgs)
Dim strdata As String
If Request.Form("mm") <> "" And Request.Form("gg") <> "" And Request.Form("anno") <> "" Then
strdata = "#" & Request.Form("mm") & "/" & Request.Form("gg") & "/" & Request.Form("anno") & "#"
Else
strdata = "#" & Now.Date & "#"
End If
Dim News As DataSet()
Dim Conn As New OleDbConnection(Application("strConn"))
Dim strSQL As String = "Insert into News (Data,Titolo,Descrizione) values (" & strdata & ", '" & Trim(Replace(Request.Form("titolo"), "'", "''")) & "', '" & Trim(Replace(Request.Form("desc"), "'", "''")) & "') "
Dim Cmd As New OleDbDataAdapter(strSQL, Conn)
Conn.Open()
Cmd.InsertCommand.CommandText = "strSQL"
Cmd.InsertCommand.ExecuteNonQuery()
Conn.Close()
Response.Write("Operazione effettuata correttamente")
End Sub
</script>

Application("strConn") è dichiatato nel global.asax
cosi come è lo script non fa l'inserimento nella tabella News.....

saluti e grazie

nota: preciso sono nuovo in ASP:NET

[zampa28]

<script language="vb" runat="server"> 
Sub Page_Load(Src As Object, E As EventArgs) 
Dim strdata As String 
If Request.Form("mm") <> "" And Request.Form("gg") <> "" And Request.Form("anno") <> "" Then 
strdata = "#" & Request.Form("mm") & "/" & Request.Form("gg") & "/" & Request.Form("anno") & "#" 
Else 
strdata = "#" & Now.Date & "#" 
End If 
Dim News As DataSet() 
Dim Conn As New OleDbConnection(Application("strConn")) 
Dim strSQL As String = "Insert into News (Data,Titolo,Descrizione) values (" & strdata & ", '" & Trim(Replace(Request.Form("titolo"), "'", "''")) & "', '" & Trim(Replace(Request.Form("desc"), "'", "''")) & "') " 
Dim Cmd As New OleDbCommand(strSQL, Conn)
Conn.Open() 
Cmd.ExecuteNonQuery() 
Conn.Close()
Response.Write("Operazione effettuata correttamente") 
End Sub 
</script>

[rafpas]

grazie zampa28,

faro delle prove e poi ti farò sapere

saluti

[rafpas]

grazie,

funziona saluti