<%
if request.form() <> "" then
pname = request.form("pname")
schoolname = request.form("schoolname")
noofpeople= request.form("noofpeople")
phone= request.form("phone")
email= request.form("email")
set conn=Server.CreateObject("ADODB.Connection")
' conn.Provider="Microsoft.Jet.OLEDB.4.0;"
' conn.Open "http://www.littleflowerschool.edu.hk/webapply/db1.mdb"
' conn.Open "db1"
' sql = "insert into apply values('"&pname&"','"&schoolname&"',"&noofpeople&",'"&phone&"','"&email&"')"
' response.write sql
' set rs= Server.CreateObject("ADODB.recordset")
' rs.Open sql, conn
'
set fs = CreateObject("Scripting.FileSystemObject")
set textfile =fs.OpenTextFile("http://www.littleflowerschool.edu.hk/webapply/apply.htm", 8, True)
textfile.write "| "&pname&" | "&schoolname&" | "&noofpeople&" | "&phone&" | "&email&" |
"
textfile.Close
set textfile = nothing
set fs=nothing
response.redirect "http://www.littleflowerschool.edu.hk/webapply/ok.htm"
end if
%>
小一選校簡報會出席網上登記
以上資料只作本校記錄之用，絕不外洩。
請各家長自行下載及列印入場券，並於當日攜帶出示，
每張入場券可供最多兩位出席。