<%
On Error Resume Next
filename=Server.MapPath ("./") & "\taiikusai.mdb;"
odbcConect="Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & filename
Set db = Server.CreateObject("ADODB.Connection")
db.Open odbcConect
Hiduke = Year(Now()) & "/" & Month(Now()) & "/" & Day(Now())
Jikoku = Hour(Time) & ":" & Minute(Time)
Today = Hiduke & " " & Jikoku
db.Execute "INSERT INTO main (Q1,Q2,Q3,Q4,Q5) VALUES ('"&CHK(Request("Q1"))&"','"&CHK(Request("Q2"))&"','"&CHK(Request("Q3"))&"','"&CHK(Request("Q4"))&"','"&Request("REMOTE_HOST")&"')"
db.Close
Function CHK(bun)
bunsyo = ""
If LenB(bun) > 0 Then
CHK = bun
Else
CHK = "0"
End If
End Function
%>
体育大会職員アンケート
アンケートにご協力ありがとうございました。
（サンプルなので、集計されません。）
ホームにもどる