no title entered
") closeConn() Response.End End If 'replace Description: asp code, iframe, and line returns with function located in dbconn1.asp mName = Presubmit2(Request.Form("mName")) mReview = Presubmit2(Request.Form("mReview")) mAdvice = Presubmit2(Request.Form("mAdvice")) mcatID = Request.Form("mcatID") mYear = Request.Form("mYear") mRating = Request.Form("mRating") reviewDate = Request.Form("ReviewDate") act1 = request.form("act1") act2 = request.form("act2") act3 = request.form("act3") act4 = request.form("act4") 'start database update... Set mrs = Server.CreateObject("ADODB.RecordSet") if request.form("editForm") = 1 then mySQL = "Select * From movies WHERE ID = " & request.form("ID") mrs.Open mySQL, mconn, adOpenKeyset, adLockOptimistic else mySQL ="Movies" mrs.Open mySQL, mconn, adOpenKeyset, adLockOptimistic mrs.AddNew end if if act1 <> "" then mrs("act1") = act1 else mrs("act1") = 0 end if if act2 <> "" then mrs("act2") = act2 else mrs("act2") = 0 end if if act3 <> "" then mrs("act3") = act3 else mrs("act3") = 0 end if if act4 <> "" then mrs("act4") = act4 else mrs("act4") = 0 end if mrs("mName") = mName mrs("mReview") = mReview mrs("mAdvice") = mAdvice mrs("mcatID") = mcatID mrs("mYear") = mYear mrs("mRating") = mRating mrs("DataDate") = reviewDate mrs.Update 'close connections and recordsets. closemrs() closeconn() 'REM Comment below if having erros on this page. Response.Redirect("admin_add.asp?message=1") %>Add Successful