Editing: journal/add_journal.asp.bak

<!--#INCLUDE FILE="Connectdb.asp"--> <% id_lecturer=session("id_lecturer1") sqll="select * from lecturer where id_lecturer='"&id_lecturer&"'" Set orsl = Server.CreateObject("ADODB.Recordset") orsl.Open sqll, Conn, 1, 3 if not orsl.eof then id_volume=request.form("volume") id_numb=request.form("numb") id_month=request.form("month_t") id_year=request.form("year_t") id_journal=id_year+id_volume+id_month+id_numb datetime=now sql="select * from manu_journal where id_journal='"&id_journal&"'" set ors=server.createobject("adodb.recordset") ors.open sql,conn,1,3 if not ors.eof then 'ors.movelast ' id_journal=ors("id_journal") ' id_journal=id_journal+1 'else ' id_journal=1 response.write "�����ū��" response.write "<meta http-equiv='refresh' content ='0;url=journal_all.asp'>" else sqldata="insert into manu_journal(id_journal,volume,numb,date_mo,month_t,year_t) values('"&id_journal&"',"&id_volume&","&id_numb&",'"&datetime&"', '"&id_month&"','"&id_year&"')" set orsdata = Server.CreateObject("adodb.recordset") orsdata.open sqldata,conn,1,3 response.write sqldata response.write "<meta http-equiv='refresh' content ='0;url=journal_all.asp'>" ' set conn = nothing end if end if %>