File Manager

<%
 Set Conn = Server.CreateObject("ADODB.Connection")	
	Conn.Provider="Microsoft.Jet.OLEDB.4.0"
	'Set Conn=Server.Createobject("ADODB.Connection")
'Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("stat.mdb"),"" , ""

conn.Open	Server.MapPath("qa3.mdb")
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> ��С��������Ф��͹ء�����èѴ��û�Ъ�� "��չ��Թ�����ò�Ԫҡ��"</TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
</HEAD>

<BODY>
<%
sex=request.form("sex")
status1=request.form("status1")
age1=request.form("age1")
'status33=request.form("status33")
'txt131=request.form("txt131")
'txt132=request.form("txt132")
'txt133=request.form("txt133")
s31=request.form("s31")
s32=request.form("s32")
s33=request.form("s33")
s34=request.form("s34")
s35=request.form("s35")
s36=request.form("s36")
commit1=request.form("commit1")
commit2=request.form("commit2")
commit3=request.form("commit3")
commit4=request.form("commit4")
commit5=request.form("commit5")
commit6=request.form("commit6")
commit7=request.form("commit7")
commit8=request.form("commit8")
commit9=request.form("commit9")
commit10=request.form("commit10")
commit11=request.form("commit11")
commit12=request.form("commit12")
comments3=request.form("comments3")
'response.write status1
'response.write " status11="
'response.write status11
'response.write " status22="
'response.write status22
'response.write " status33="
'response.write status33
'response.write " txt131="
'response.write txt131
'response.write " txt132="
'response.write txt132
'response.write " txt133="
'response.write txt133
'response.write " s31="
'response.write s31
'response.write " s32="
'response.write s32
'response.write " s33="
'response.write s33
'response.write " s34="
'response.write s34
'response.write " s35="
'response.write s35
'response.write " s36="
'response.write s36
'response.write " comment="
'response.write comments3

'response.write " "

if sex <>"" then
sex=0
end if
'response.write "status2="&status2
if age1<>"" then
age1=0
end if
if status1<>"" then
status1=0
end if
'response.write "other_ins"&other_ins
response.write "<center>�͢ͺ��Фس����������������</center>"
'response.write " status1="&status1

'sqldata="insert into qn(other_ins,status2,status1,comment3,s31,s32,s33,s34,s35,s36,) values('"&other_ins&"','"&_
 'status2&"','"&status1&"','"&_
 'comment3&"', '"&s31&"', '"&s32&"', '"&s33&"', '"&s34&"', '"&s35&"', '"&s36&"')"
sqldata="insert into qn(sex,age1,status1,comment3,s31,s32,s33,s34,s35,s36,commit1,commit2,commit3,commit4,commit5,commit6,commit7,commit8,commit9,commit10,commit11,commit12) values('"&sex&"','"&age1&"','"&status1&"','"&_
 comments3&"', '"&s31&"', '"&s32&"', '"&s33&"', '"&s34&"', '"&s35&"', '"&s36&"', '"&commit1&"', '"&commit2&"', '"&commit3&"', '"&commit4&"', '"&commit5&"', '"&commit6&"', '"&commit7&"', '"&commit8&"', '"&commit9&"', '"&commit10&"', '"&commit11&"', '"&commit12&"')"
 set orsdata = Server.CreateObject("adodb.recordset")
 orsdata.open sqldata,conn,1,3
'response.write sqldata
response.write "<meta http-equiv='refresh' content ='5;url=http://bsris.swu.ac.th/swuqn/index.html'>"

</BODY>
</HTML>

File Manager

Editing: swuqn/add_qn3.asp.bak