<% 
' version 6.2549-03-25 
dim connect, connected, rs, sql, tots, i, j, k, l, nextl
session("fsubj") = request.form("fsubj")
session("fact")  = request.form("fact")&request.querystring("fact")
if request.form("fact") = "signin" then do_signin
if request.form("fact") = "signout" then do_signout
%><!--#include file="header.asp"--><%
session("result") = ""
if left(session("fact"),2) = "ar" then do_article_list
if request.form("fact") = "addques" or request.form("addquesnew") = "Add question and answer" or request.form("addquesnew") = "Add question in text" then do_addques
if left(request.form("fact"),5) = "addar" or request.form("addarticlenew") = "Add article"  then do_addarticle
if left(request.form("fact"),5) = "delar" or len(request.form("aid")) > 0  then do_delarticle
if request.form("fact") = "delques" or len(request.form("did")) > 0  then do_delques
if request.form("fact") = "applymember" then do_applymember
if request.form("fact") = "editmem" then do_editmem
if request.form("fact") = "updatemember" then do_updatemember
if request.form("fact") = "delmember" then do_delmember
if (mid(request.form("fact"),1,2) = "do") then do_do
if request.form("fact") = "addmember" then 
  do_addmember
else   
  if request.form("fact") <> "applymember" then
    if (len(request.form) > 0) then connect.close
  end if
  set rs = nothing
  set connect = nothing
end if  
%>
<!--#include file="footer.asp"-->

<%
' =====================================
sub do_signin
  connectdb
  sql = "select * from members where mu = '"& request.form("fu") &"' and mp = '" & request.form("fp") &"'"
  set rs = server.createobject("ADODB.recordset")
  rs.open sql,connect,1,3
  tots = rs.recordcount
  response.write("<center>")
  if tots = 1 then
    session("mu") = request.form("fu")
    session("intime") = now
    session("result") = "ยินดีต้อนรับ :: "& request.form("fu")
    if session("mu") <> "guest" then
      sql = "update members set mlast = '"& now &"' where mu = '"& request.form("fu")&"'" 
      connect.execute(sql)
      sql = "insert into signin(intime,mu,usequiz,usearticle) values ('" & session("intime")
      sql = sql & "','"& request.form("fu") &"',0,0)"
      connect.execute(sql)	
    end if
    session("result") = "<br><br><center><font size=6 color=red>ยินดีต้อนรับสู่ E-learning<br>การศึกษายุคโลกไร้พรมแดน .. เพื่อคนยุค IT</font><br><br><a href=default.asp>คลิ๊กที่นี่</a> :: เพื่อกลับไปหน้าแรกอีกครั้ง<br>โปรดอย่าลืมว่า ถ้าจะเลิกการทำงานให้ signout จากตัวเลือกด้านซ้ายมือ .. ทุกครั้ง<br>มิเช่นนั้น อาจมีผู้ไม่ประสงค์ดี แอบอ้างเป็นตัวท่านมาใช้บริการก็ได้</center>"	
  else
    session("result") = "รหัสของท่านไม่ถูกต้อง"
  end if
end sub
' =====================================

sub do_signout
  connectdb
  session("mu") = ""
  session("signintime") =""
  session("result") = "<br><br><center><font size=6 color=red>SignOut complete ..<br>ขอบคุณที่ใช้บริการ E-learning<br>การศึกษายุคโลกไร้พรมแดน .. เพื่อคนยุค IT</font><br><br><a href=default.asp>คลิ๊กที่นี่</a> :: เพื่อกลับไปหน้าแรกอีกครั้ง<br><br>"
end sub
' =====================================

sub do_addarticle
  connectarticle
  dim keepsubj  
  if request.form("addarticlenew") = "Add article" then
    if (len(request.form("faurl")) + len(request.form("fatitle")) + len(request.form("fadetail")) + len(session("mu"))) < 30000 then
      sql = "insert into article(mu,adate,aurl,atitle,adetail) values ('" & session("mu")
      sql = sql & "','"& now &"','"& request.form("faurl") &"','"& request.form("fatitle") &"','"& request.form("fadetail") &"')"
      connect.execute(sql)
      response.write("<br><center><font size=6 color=red>บทความถูกจัดเก็บเรียบร้อย</font><br>"& request.form("fatitle") &"</center>")
    else
      response.write("<br><center><font size=6 color=red>บทความของท่านมีขนาดใหญ่เกินไป<br>ระบบรองรับไม่ได้ .. ให้กลับไปลดขนาดก่อน</font><br></center>")
    end if
	keepsubj = request.form("fsubj")
  else 
    keepsubj = right(request.form("fact"),len(request.form("fact"))-3) 
  end if
%>
<center><form name=addarticle action=menu.asp method=post>
<input type=hidden name=fsubj value=<%= keepsubj %>>
<table bgcolor=#dddddd>
<tr><td align=right>เว็บที่อ้างอิงข้อมูลนี้ ::</td><td><input name=faurl size=60></td></tr>
<tr><td align=right>ชื่อเรื่อง ::</td><td><input name=fatitle size=60></td></tr>
<tr><td align=right valign=top>เนื้อหา ::<br><input type=submit name=addarticlenew value="Add article"></td><td>
<textarea wrap=off name=fadetail rows=20 cols=70>
</textarea>
</td></tr>
</table>
</form>
<%
end sub
' =====================================

sub do_delarticle  
  connectarticle
  if len(request.form("aid")) > 0 then
    sql = "delete from article where mu ='"& session("mu") &"' and aid="& request.form("aid")
    connect.execute(sql)
    response.write("บทความ ถูกลบเรียบร้อย")
	keepsubj = request.form("fsubj")
  else 
    keepsubj = right(request.form("fact"),len(request.form("fact"))-3) 	
  end if
  response.write("<form action=menu.asp method=post>")
  sql = "select * from article where mu ='"& session("mu") &"'"
  set rs = server.createobject("ADODB.recordset")
  rs.open sql,connect,1,3
  tots = rs.recordcount
  i = 1
  response.write("<form action=menu.asp method=post><ul>")
  response.write("<input type=hidden name=fsubj value="& keepsubj &">")  
  do while not rs.eof
    response.write("<br><input type=radio name=aid value="& rs("aid") &">"& i &" : ")
    response.write(rs("aid") &". <a href=showarticle.asp?aid="& rs("aid") &">"&rs("atitle")&"</a>")
    rs.movenext   
    i = i + 1
  loop  
  response.write("<br><input type=submit value="&request.form("fact")&" name=fact></form>")
end sub
' =====================================

sub do_article_list
  connectarticle
  dim page, recpage, maxpage, orderby, q
  if (len(request.form("fselectmu")) > 0 and request.form("fselectmu")<> "9999999" )then
    q = q & "mu ='" & request.form("fselectmu") &"' "
    if len(request.querystring("q")) > 0 then
      q = q & "and "
    end if  
  end if
  if len(request.querystring("q")) > 0 then
    q = q & "atitle like '%" & request.querystring("q") &"%' or adetail like '%"& request.querystring("q") &"%' "
  end if	
  if len(q) > 0 then
    q = "where " & q
  end if	
  sql = "select * from article "& q &" order by adate desc"
  orderby = "จัดเรียงตาม เวลา"  
  if request.querystring("orderby") = "atitle" then
    sql = "select * from article "& q &" order by atitle"
    orderby = "จัดเรียงตาม หัวเรื่อง"
  end if
  set rs = server.createobject("ADODB.recordset")
  rs.open sql,connect,1,3
  tots = rs.recordcount
  i = 1
  if len(request.querystring("page")) = 0 then
    page = 1
  else
    page = request.querystring("page")
  end if
  recpage = 50
  maxpage = round(tots / 50)
  if maxpage < tots / 50 then
    maxpage = maxpage + 1
  end if
  response.write("<form action=menu.asp method=get><input type=hidden name=fact value="&session("fact")&">")  
  response.write("<font size=6 color=blue>แสดงรายชื่อบทความ</font> ["& tots &" บทความ] " & orderby)
  response.write("<br>บริการสืบค้นในบทความ : <input name=q size=12 value='"& request.querystring("q") &"'><input type=submit value=Search>")
  response.write("<br>เลือกหน้า :  [ ")
  for j = 1 to maxpage
    if j = page then
      response.write(j &" ")
    else
      response.write("<a href=menu.asp?fact="&session("fact")&"&page=" & j &">"& j &"</a>,")
    end if
  next
  response.write("]</form>")
  do while not rs.eof
    if i <= (page * recpage) and i >= (page * recpage - recpage + 1) then
      response.write("<img src=l.gif>"&i&". " &rs("adate")&" <a href=showarticle.asp?aid=")
      response.write(rs("aid") & "&fsubj=" & session("fact") & ">" &rs("atitle")&"</a> ("& len(rs("adetail")) &") <a href=showmem.asp?mu="&rs("mu")&">#</a><br>")
    end if
    rs.movenext   
    i = i + 1
  loop  
  response.write("<hr color=black>เลือกหน้า :  [ ")
  for j = 1 to maxpage
    if j = page then
      response.write(j &" ")
    else
      response.write("<a href=menu.asp?fact="&session("fact")&"&page=" & j &">"& j &"</a> .")
    end if
  next
  response.write("]<br>")  
end sub
' =====================================

sub do_addques
  connectsubj
  if request.form("fsubj") = "qzosthaiall" then
    response.write("<center><font color=red>ท่านไม่มีสิทธิ์เพิ่มข้อสอบ ไปในชุดที่ต้องการได้<br>ให้ตรวจสอบชุดข้อสอบ หรือ account ของท่าน")  
    response.write("<br>ขณะนี้เรา Lock ไม่ให้ guest หรือมีการปรับปรุงในฐานข้อมูลของ thaiall</font></center>")  
  else
    if (len(request.form("ques")) + len(request.form("c1")) + len(request.form("c2")) + len(request.form("c3"))+ len(request.form("c4"))+ len(request.form("ans"))) < 2000 then
    if request.form("addquesnew") = "Add question and answer" then	
      sql = "insert into ques(ques,c1,c2,c3,c4,ans,mu) values ('" & request.form("ques")
      sql = sql & "','"& request.form("c1") &"','"& request.form("c2") &"','"& request.form("c3") &"','"& request.form("c4") &"','"& request.form("ans") &"','"& session("mu") & "')"
      connect.execute(sql)
      response.write("<br><font color=red>ข้อสอบใหม่ ถูกจัดเก็บเรียบร้อย</font> " & request.form("ques") & " : "& request.form("ans"))
    end if
    if request.form("addquesnew") = "Add question in text" then
      k = split(request.form("fulltext"),chr(13)&chr(10),-1,1)
      if asc(k(5)) > 48 and asc(k(5)) < 53 and (len(k(0)) + len(k(1)) + len(k(2)) + len(k(3)) + len(k(4)) + len(k(5))) < 2000 then	  
        sql = "insert into ques(ques,c1,c2,c3,c4,ans,mu) values ('" & k(0)
        sql = sql & "','"& k(1) &"','"& k(2) &"','"& k(3) &"','"& k(4) &"','"& k(5) &"','"& session("mu") & "')"
        connect.execute(sql)
        response.write("<br><font color=red>ข้อสอบใหม่ ถูกจัดเก็บเรียบร้อย</font> " & k(0) & " : "& k(5))
      else
        response.write("เฉลยต้องเป็น 1 ถึง 4 และชิดซ้ายอักษรเดียวในบรรทัดที่ 6<br>และคำถามหรือตัวเลือก ต้องไม่ยาวเกินไป")      
      end if      
    end if
    else
    response.write("ระบบรองรับโจทย์ หรือตัวเลือกยาว ๆ ไม่ได้")
    end if
  end if
%>
<form action=menu.asp method=post>
<input type=hidden name=fsubj value=<%=request.form("fsubj") %>>
<center><table bgcolor=#dddddd>
<tr><td valign=top bgcolor=#ddffff>คำถาม<br>
ตัวเลือกที่ 1<br>
ตัวเลือกที่ 2<br>
ตัวเลือกที่ 3<br>
ตัวเลือกที่ 4<br>
คำตอบ [1,2,3,4]
</td><td valign=top bgcolor=#ddffff>
<table><td valign=top>
<textarea wrap=off name=fulltext cols=50 rows=7>
</textarea></td><td valign=top><pre><b>เช่น</b>
10+10=?
18
19
20
21
3
</td></table>
<input type=submit name=addquesnew value="Add question in text"></td></tr>
<tr><td align=right>คำถาม ::</td><td><input name=ques size=60></td></tr>
<tr><td align=right>ตัวเลือกที่ 1 ::</td><td><input name=c1 size=60></td></tr>
<tr><td align=right>ตัวเลือกที่ 2 ::</td><td><input name=c2 size=60></td></tr>
<tr><td align=right>ตัวเลือกที่ 3 ::</td><td><input name=c3 size=60></td></tr>
<tr><td align=right>ตัวเลือกที่ 4 ::</td><td><input name=c4 size=60></td></tr>
<tr><td align=right>เฉลย :: </td><td>
<select name=ans>
<option value=1 selected>1
<option value=2>2
<option value=3>3
<option value=4>4
</select><input type=submit name=addquesnew value="Add question and answer"></td></tr>
</table>
</form>
<%
end sub
' =====================================

sub do_delques
  connectsubj
  response.write("<form action=menu.asp method=post>")
  if request.form("fsubj") = "qzosthaiall" then
    response.write("<center><font color=red>ท่านไม่มีสิทธิ์ลบข้อสอบ ในชุดที่ต้องการได้<br>ให้ตรวจสอบชุดข้อสอบ หรือ account ของท่าน")  
    response.write("<br>ขณะนี้เรา Lock ไม่ให้ guest หรือมีการปรับปรุงในฐานข้อมูลของ thaiall</font></center>")  
  else
    response.write("<input type=submit value=delques name=fact>")
    if len(request.form("qid")) > 0 then
    sql = "delete from ques where mu ='"& session("mu") &"' and qid="& request.form("qid")
    connect.execute(sql)
    response.write("ข้อสอบถูกลบเรียบร้อย")
    end if
  end if
  sql = "select * from ques where mu ='"& session("mu") &"' order by qid"
  set rs = server.createobject("ADODB.recordset")
  rs.open sql,connect,1,3
  tots = rs.recordcount
  i = 1
  response.write("<input type=hidden name=fsubj value="& request.form("fsubj") &">")   
  do while not rs.eof 
    response.write("<br><input type=radio name=qid value="& rs("qid") &">")
    response.write(rs("qid") &". "&rs("ques")&" - "&rs("c1")&" - "&rs("c2")&" - "&rs("c3")&" - "&rs("c4")&" - "&rs("ans")&" [ <font color=blue>"& i &"</font> ]")
    rs.movenext   
    i = i + 1
  loop  
  response.write("</form>")
end sub
' =====================================

sub do_applymember
%>
<form action=menu.asp method=post>
<table bgcolor=#dddddd width=100%>
<tr><td colspan=2><font color=blue size=6><b>สมัครสมาชิก</b></font></td><td></td></tr>
<tr bgcolor=#808080><td align=right>รหัสสมาชิก :: </td><td><input name=fmu value=<%= request.form("fu") %>></td></tr>
<tr><td align=right>รหัสผ่าน :: </td><td><input type=password name=fmp size=40></td></tr>
<tr bgcolor=#808080><td align=right>รหัสผ่าน(อีกครั้ง) :: </td><td><input type=password name=fmpn size=40></td></tr>
<tr><td align=right>ชื่อ-สกุล  :: </td><td><input name=fmname size=40></td></tr>
<tr bgcolor=#808080><td align=right>จังหวัด :: </td><td><input name=fmprovince size=40></td></tr>
<tr><td align=right>E-mail :: </td><td><input name=fmemail size=40></td></tr>
<tr bgcolor=#808080><td align=right>Homepage :: </td><td><input name=fmurl size=40 value=http:// ></td></tr>
<tr><td align=right>Photo link :: </td><td><input name=fmimg size=40 value=http:// ></td></tr>
<tr><td align=right></td><td>เช่น http://www.thai.net/thaiall/me/picme.jpg</td></tr>
<tr bgcolor=#808080><td align=right valign=top>รายละเอียดสมาชิก :: </td><td><textarea wrap=off name=fmdetail wrap=on rows=8 cols=50>
เป้าหมายชีวิต :
เกรดเฉลี่ย :
อาชีพที่ใฝ่ฝัน :
เบอร์โทร :
ความชำนาญพิเศษ :
อื่น ๆ ...
</textarea></td></tr>
<tr><td align=right></td><td><input type=submit name=fact value=addmember></td></tr>
</form>
</table>
<%
end sub
' =====================================

sub do_editmem
  connectdb
  sql = "select * from members where mu = '"& session("mu") &"'"
  set rs = server.createobject("ADODB.recordset")
  rs.open sql,connect,1,3
  tots = rs.recordcount
  if tots = 1 then
%>
<form action=menu.asp method=post>
<table bgcolor=#dddddd width=100%>
<tr><td align=right><b>แก้ไขข้อมูลสมาชิก</b></td><td></td></tr>
<tr><td align=right>รหัสสมาชิก :: </td><td><b><%= rs("mu") %></b></td></tr>
<tr><td align=right>รหัสผ่าน :: </td><td><input type=password name=fmp value="<%= rs("mp") %>"></td></tr>
<tr><td align=right>รหัสผ่าน(อีกครั้ง) :: </td><td><input type=password name=fmpn value="<%= rs("mp") %>"></td></tr>
<tr><td align=right>ชื่อ-สกุล  :: </td><td><input name=fmname value="<%= rs("mname") %>"></td></tr>
<tr><td align=right>จังหวัด :: </td><td><input name=fmprovince value="<%= rs("mprovince") %>"></td></tr>
<tr><td align=right>E-mail :: </td><td><input name=fmemail value="<%= rs("memail") %>"></td></tr>
<tr><td align=right>Homepage :: </td><td><input name=fmurl size=40 value="<%= rs("murl") %>"></td></tr>
<tr><td align=right>Photo link :: </td><td><input name=fmimg size=40 value="<%= rs("mimg") %>"><br>เช่น http://www.thai.net/thaiall/me/picme.jpg</td></tr>
<tr><td align=right valign=top>รายละเอียดสมาชิก :: </td><td><textarea wrap=off name=fmdetail wrap=on rows=8 cols=50>
<%= rs("mdetail") %>
</textarea></td></tr>
<tr><td align=right></td><td><input type=submit name=fact value=updatemember></td></tr>
</form>
</table>
<%
  end if
end sub
' =====================================

sub do_updatemember
  connectdb
  if request.form("fmp") = request.form("fmpn") and (len(request.form("fmu")) + len(request.form("fmp")) + len(request.form("fmname")) + len(request.form("fmprovince")) + len(request.form("fmemail")) + len(request.form("fmurl")) + len(request.form("fmimg")) + len(request.form("fmdetail"))) < 2000 then
  session("result") = "ยินดีต้อนรับ :: "& request.form("fmu")
  sql = "update members set mp = '"& request.form("fmp") &"', mname = '"& request.form("fmname") &"', mprovince = '"& request.form("fmprovince") &"', memail = '"& request.form("fmemail") &"', murl = '"& request.form("fmurl") &"', mimg = '"& request.form("fmimg") &"', mdetail = '"& request.form("fmdetail") &"' where mu = '"& session("mu")&"'" 
  connect.execute(sql)	
  response.write ("<br><br><center><font size=6 color=red>แก้ไขข้อมูลเรียบร้อย</font><br><br><a href=default.asp>คลิ๊กที่นี่</a> :: เพื่อกลับไปหน้าแรกอีกครั้ง</center>")
  else
  response.write ("<br><br><center><font size=6 color=red>แก้ไขข้อมูล ไม่เรียบร้อย<br>ท่านพิมพ์รหัสผ่าน 2 ครั้งไม่เหมือนกัน</font><br><br><a href=default.asp>คลิ๊กที่นี่</a> :: เพื่อกลับไปหน้าแรกอีกครั้ง</center>")
  end if
end sub
' =====================================

sub do_delmember
  connectdb
if len(request.form("fu")) > 2 and len(request.form("fp")) > 2 and request.form("fu") <> "guest" then
  sql = "select * from members where mu = '"& request.form("fu") &"' and mp  = '" & request.form("fp") & "'"
  set rs = server.createobject("ADODB.recordset")
  rs.open sql,connect,1,3
  tots = rs.recordcount
  if tots = 1 then
  sql = "delete from members where mu = '" & request.form("fu") & "'"  
  connect.execute(sql)
  response.write("<br>ลบสมาชิกใหม่ :: สำเร็จเรียบร้อย")  
  else
  response.write("<br>ลบสมาชิกใหม่ไม่สำเร็จ :: เนื่องจากหารหัสนี้ไม่พบ")  
  end if
else
  response.write("กรอกข้อมูลไม่ถูกต้อง ให้กลับไปตรวจสอบ แล้วดำเนิกการใหม่ :: สถานภาพสมาชิก ยังไม่หายไป")
end if
end sub
' =====================================

sub do_addmember
  connectdb
if len(request.form("fmu")) < 12 and len(request.form("fmu")) > 2 and len(request.form("fmp")) > 2 and len(request.form("fmname")) > 2 and len(request.form("fmprovince")) > 2 and len(request.form("fmemail")) > 2 and request.form("fmp") = request.form("fmpn") then
  sql = "select * from members where mu = '"& request.form("fmu") &"'"
  set rs = server.createobject("ADODB.recordset")
  rs.open sql,connect,1,3
  tots = rs.recordcount
  if tots = 0 then
  sql = "insert into members(mu,mp,mname,mprovince,memail,mapply,murl,mimg,mlast) values ('" & request.form("fmu")
  sql = sql & "','"& request.form("fmp") &"','"& request.form("fmname") &"','"& request.form("fmprovince") &"','"& request.form("fmemail") &"','"& Now &"','"& request.form("fmurl") &"','"& request.form("fmimg") &"','"& Now &"')"
  connect.execute(sql)
  response.write("<br>เพิ่มสมาชิกใหม่ :: สำเร็จเรียบร้อย")  
  else
  response.write("<br>เพิ่มสมาชิกใหม่ไม่สำเร็จ :: เนื่องจากรหัสผู้ใช้นี่มีอยู่แล้ว")  
  end if
else
  response.write("<center><br><font size=6>กรอกข้อมูลไม่ถูกต้อง<br>ให้กลับไปตรวจสอบ แล้วดำเนินการใหม่<br><br><font color=red>สถานภาพสมาชิก ยังไม่สมบูรณ์</font><br>กดปุ่มด้านล่างนี้อีกครั้ง")
  response.write("<form action=menu.asp method=post><input type=submit name=fact value=applymember></form></center>")
end if
end sub
' =====================================

sub do_do
  connectsubj
  if request.form("fselectmu") = "9999999" then
  sql = "select * from ques"
  else 
  sql = "select * from ques where mu='" & request.form("fselectmu") & "'"
  end if
  set rs = server.createobject("ADODB.recordset")
  rs.open sql,connect,1,3
  tots = rs.recordcount
  numamt = cint(mid(request.form("fact"),3,2))
  nummax = tots
  nummin = 1
  if numamt > (nummax - nummin + 1) or numamt = 0 or numamt > 999 then 
    response.write( "<br><br><font color=red size=4><center>มีปัญหาที่จำนวนข้อสอบ โปรดกลับไปตรวจสอบ<br>บางที รหัสชุดข้อสอบที่ใช้ อาจไม่มีในฐานข้อมูล<br>ควรแก้รหัสสุ่มเป็น 9999999<br>บางทีจำนวนข้อสอบในฐานข้อมูลอาจมีไม่พอสุ่มขึ้นมาก็ได้</center></font>")
  else
    randomize   
    dim arr(999)
    i = 1
    do while i <= numamt
      x = int(nummin  + (rnd * ( nummax - nummin + 1)))
      found = 0
      for j = 1 to i - 1
        if arr(j) = x then found = 1
      next
      if found = 0 then
        arr(i) = x
        i = i + 1
      end if
    loop
  i = 1
  k = 1
  response.write("<form action=checkans.asp method=post><ul>")    
  response.write("<input type=hidden name=fsubj value="& request.form("fsubj") &">")    
  response.write("<input type=hidden name=tot value="& cint(mid(request.form("fact"),3,2)) &">")    
  do while not rs.eof  
    for j = 1 to cint(mid(request.form("fact"),3,2))
    if arr(j) = i then
      response.write(k &". "& rs("ques"))
      response.write(" <a href=showmem.asp?mu="& rs("mu") &">#</a>")
      response.write("<ul>")
      response.write("<input type=hidden name=num"&k&" value='"& i &"'>")
      response.write("<input type=hidden name=ques"&i&" value='"& rs("ques") &"'>")
      response.write("<input type=hidden name=ans1x" &i&" value='"& rs("c1") &"'>")	
      response.write("<input type=hidden name=ans2x" &i&" value='"& rs("c2") &"'>")	
      response.write("<input type=hidden name=ans3x" &i&" value='"& rs("c3") &"'>")	
      response.write("<input type=hidden name=ans4x" &i&" value='"& rs("c4") &"'>")	
      response.write("<input type=hidden name=qid"&i&" value="& rs("qid") &">")
      response.write("<input type=radio name=q" &i&" value=1>"& rs("c1") &"<br>")
      response.write("<input type=radio name=q" &i&" value=2>"& rs("c2") &"<br>")
      response.write("<input type=radio name=q" &i&" value=3>"& rs("c3") &"<br>")
      response.write("<input type=radio name=q" &i&" value=4>"& rs("c4") &"<br>")
      response.write("<input type=hidden name=a"&i&" value="& rs("ans") * rs("qid") * 13 &"></ul><hr color=blue>")		
      k = k + 1
    end if
    next
    i = i + 1
    rs.movenext 
  loop
  response.write("<input type=submit value=ส่งผลการสอนไปตรวจให้คะแนน></ul></form>")
  end if
end sub
' =====================================

sub connectdb
  ' dim connect, rs, sql, tots, i, j, k, l, nextl
  set connect = server.createobject("ADODB.Connection")
  if Request.ServerVariables("HTTP_HOST") = "www27.brinkster.com" then
    connect.open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\thaiprovince\db\members.mdb"))
  else   
    if mid(Request.ServerVariables("URL"),1,10) = "/openworld" then
      connect.open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &_
      Server.MapPath("\openworld\members.mdb"))
    else     
      connect.open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("members.mdb"))
    end if
  end if  
end sub
' =====================================

sub connectsubj
  dim selecttb
  selecttb = request.form("fsubj")
  set connect = server.createobject("ADODB.Connection")
  if Request.ServerVariables("HTTP_HOST") = "www27.brinkster.com" then
    connect.open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\thaiprovince\db\"& selecttb &".mdb"))
  else   
    if mid(Request.ServerVariables("URL"),1,10) = "/openworld" then
      connect.open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &_
      Server.MapPath("\openworld\"& selecttb & ".mdb"))
    else     
      connect.open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(selecttb & ".mdb")) 
    end if
  end if
end sub
' =====================================

sub connectarticle
  dim selecttb
  if left(request.form("fact"),5) = "addar" or left(request.form("fact"),5) = "delar" then
    selecttb = right(request.form("fact"),len(request.form("fact"))-3)
  else	
    if left(session("fact"),2) <> "ar" then
      selecttb = request.form("fsubj")
    else
      selecttb = session("fact")
    end if
  end if
  set connect = server.createobject("ADODB.Connection")
  if Request.ServerVariables("HTTP_HOST") = "www27.brinkster.com" then
    connect.open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\thaiprovince\db\"&selecttb&".mdb"))
  else   
    if mid(Request.ServerVariables("URL"),1,10) = "/openworld" then
      connect.open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &_
      Server.MapPath("\openworld\"& selecttb & ".mdb"))
    else     
      connect.open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(selecttb&".mdb"))
    end if
  end if
end sub
' =====================================
%>