<%
dim text6,text7,text8,text9,text10
dim strfilepath
dim conn
dim obj
dim sql
strfilepath=Server.MapPath("proj.mdb")
set conn = server.CreateObject ("adodb.connection")
set obj =server.CreateObject("ADODB.recordset")
strPath = server.MapPath ("../proj.mdb")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & strPath
text13=cstr(Request.Form("head1"))
text14=cstr(Request.Form("podypage1"))
text15=cstr(Request.Form("head2"))
text16=cstr(Request.Form("podypage2"))
text17=cstr(Request.Form("head3"))
text18=cstr(Request.form("podypage3"))
text19=cstr(Request.Form("head4"))
text20=cstr(Request.Form("podypage4"))
text21=cstr(Request.Form("head5"))
text22=cstr(Request.Form("podypage5"))
text23=cstr(Request.Form("head6"))
text24=cstr(Request.form("podypage6"))
sql = "UPDATE oicc1 SET text13='" & text13 & "', text14='" & text14 & "', text15='" & text15 & " ',text16='"&text16&"',text17='"& text17 &"',text18='"& text18 &"',text19='" & text19 & "', text20='" & text20 & "', text21='" & text21 & " ',text22='"&text22&"',text23='"& text23&"',text24='"& text24 &"'"
set obj = conn.Execute (sql)
Response.Write("")
Response.Write("| ")
Response.Write ("The Adding News in complete successfully")
Response.Write(" | ")
Response.Write(" ")
%>
|
