File Manager

<body>

<form  name="form1"  action = "showdetail.asp" method="post">
<%
ins_name=request.form("ins_name")
name_f=request.form("name_f")
surname_f=request.form("surname_f")
position=request.form("position")
id_add=request.form("id_add")
road=request.form("road")
tel=request.form("tel")
fax=request.form("fax")
tumbol=request.form("tumbol")
umphur=request.form("umphur")
province=request.form("province")
id_code=request.form("id_code")
email=request.form("email")
id_car=request.form("id_car")
type_present=request.form("type_present")

'stat=request.form("stat")
'pay=request.form("pay")
'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 register2 where  name_f='"&name_f&"'and surname_f='"&surname_f&"'",Conn,1,3
	 if  ors.eof then
		'	sql1="insert into statregis(fname,name,sname,position1,addwork,address,tel,fax,email,pay,mess)  values('"&fname&"','"&name&"','"&sname&"','"&position1&"','"&addwork&"','"&tel&"','"&fax&"','"&email&"','"&stat&"','"&pay&"','"&mess&"')"
		'	 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("ins_name")=ins_name
	 ors.fields("name_f")=name_f
	 ors.fields("surname_f")=surname_f
	 ors.fields("position")=position
	 ors.fields("id_add")=id_add
	 	ors.fields("road")=road
	ors.fields("tel")=tel
	 ors.fields("fax")=fax
	 ors.fields("tumbol")=tumbol
	 ors.fields("umphur")=umphur
	 ors.fields("province")=province
	 ors.fields("id_code")=id_code
	 ors.fields("email")=email
	 ors.fields("id_car")=id_car
	 ors.fields("type_present")=type_present

ors.update
	 response.write sql1
	 	set ors_=server.createobject("adodb.recordset")
		ors_.open "select * from register2 where name_f='"&name_f&"' and surname_f='"&surname_f&"'",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&"','"&counter&"')"
			' set orsdata = Server.CreateObject("adodb.recordset")
			' orsdata.open sqldata,conn,1,3

'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=application.asp>"
	 end if

</body>
</html>

File Manager

Editing: work/celebsri52/add_52.asp.bak