File Manager

<body>

<form  name="form1"  action = "all_regis.asp" method="post">
<%
fname=request.form("fname")
name=request.form("name")
sname=request.form("sname")
position1=request.form("academic")
addwork=request.form("addwork")
address=request.form("address")
tel=request.form("tel")
fax=request.form("fax")
email=request.form("email")
tr1=session("tr")
tr1=request("tr")
type_pre=request.form("type_pre")
''stat=request.form("stat")
pay=request.form("absname")
mess=request.form("mess")

'response.write "fname="&fname&"=name="&name&"=sname="&sname&"=addwork="&addwork&"=address="&address&"=tel="&tel&"=fax="&fax&"=email="&email&"=q6="&q6&"=pay="&pay
set ors=server.createobject("adodb.recordset")
     ors.open "select * from regis where name='"&name&"' and '"&sname&"'",Conn,1,3
	 if  ors.eof then
			sql1="insert into regis(fname,name,sname,position1,addwork,address,tel,fax,email,mess,filename,type_regis,type_pre)  values('"&fname&"','"&name&"','"&sname&"','"&position1&"','"&addwork&"','"&address&"','"&tel&"','"&fax&"','"&email&"','"&mess&"','"&pay&"','"&tr1&"','"&type_pre&"')"
			 set ors1 = Server.createobject("adodb.recordset")
			 ors1.open sql1,conn,1,3
      'ors1.Mode = 3      '3 = adModeReadWrite
      'ors1.Open ""
      'ors1.Execute(sql1)
      'ors1.Close

' ors.addnew
	  
	' ors.fields("fname")=fname
	' ors.fields("name")=name
	' ors.fields("sname")=sname
	' 	ors.fields("position1")=position1
	'ors.fields("addwork")=addwork
	' ors.fields("address")=address
	' ors.fields("tel")=tel
	' ors.fields("fax")=fax
	' ors.fields("email")=email
''	 ors.fields("stat")=stat
'	 ors.fields("pay")=pay
'	 ors.fields("mess")=mess

'	 ors.update
	' response.write sql1
'	 	 session("name")=name
'	 session("sname")=sname
	
		set ors_=server.createobject("adodb.recordset")
		ors_.open "select * from regis where name='"&name&"' and '"&sname&"'",Conn,1,3
if not ors_.eof then
		id_regis=ors_("id_regis")
		session("id_regis")=id_regis

'For counter = 1 To Request.Form("stat").Count
		'     sqldata="insert into regis(id_regis,stat)  values('"&id_regis&"','"&request.form("stat")(counter)&"')"
		'	 set orsdata = Server.CreateObject("adodb.recordset")
		'	 orsdata.open sqldata,conn,1,3
		
' response.write sqldata
  'Response.Write "You selected " & Request.Form("stat")(counter) & "<br>"
'Next
end if

%>
	 </form>
	 <SCRIPT LANGUAGE="JavaScript">
form1.submit();

</SCRIPT>
<%
	 else
	 response.write "�����ū��"
	 response.write "<meta http-equiv=refresh content =5;url=regis.asp?tr=2>"
	 end if

</body>
</html>

File Manager

Editing: 59th/save_regis.asp.bak