<% if request.form("confirm") = "OK" then set connNews = server.createobject("ADODB.Connection") connNews.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("/cgi-bin/member01.mdb") sql = "INSERT into member ( name, email, webname, address, describ ) SELECT " sql = sql & " '" & request.form("name") & "' as name, " sql = sql & " '" & request.form("email") & "' as email, " sql = sql & " '" & request.form("webname") & "' as webname, " sql = sql & " '" & request.form("address") & "' as address, " sql = sql & " '" & request.form("describ") & "' as describ; " set rsArticles = connNews.Execute(sql) connNews.close set connNews = nothing response.write("") response.write("Add new member (Complete)
") else response.write("") response.write("เพิ่มข้อมูลสมาชิกใหม่ (ถามย้ำ)
") response.write("
") response.write("ชื่อสมาชิก : " & request.form("name") ) response.write("
") response.write("E-Mail : " & request.form("email") ) response.write("
") response.write("ชื่อเว็บ : " & request.form("webname") ) response.write("
") response.write("ที่อยู่เว็บ : " & request.form("address") ) response.write("
") response.write("คำอธิบายเว็บ :
" & request.form("describ") ) response.write("
") response.write("") response.write("") response.write("
") end if %> Display last 10 members
Back to [ Add, Delete, Edit ]