<% set connNews = CreateObject("ADODB.Connection") ' connNews.Open "DBQ=" & Server.Mappath("\thaiall\db\applnews.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};" connNews.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("applnews.mdb")) sql = "INSERT into applnews ( dateout, organ, posit, datein, edu, capa, addr, sala, getfrom, email) VALUES ( " sql = sql & " #" & request.form("dateout") & "#, " sql = sql & " '" & request.form("organ") & "', " sql = sql & " '" & request.form("posit") & "', " sql = sql & " #" & now() & "#, " sql = sql & " '" & request.form("edu") & "', " sql = sql & " '" & request.form("capa") & "', " sql = sql & " '" & request.form("addr") & "', " sql = sql & " '" & request.form("sala") & "', " sql = sql & " '" & request.form("getfrom") & "', " sql = sql & " '" & request.form("email") & "');" response.write(sql) set prorun = connNews.execute(sql) connNews.close set connNews = nothing %> Add news
Display
Back to [Update news]