<%'
'
' VB4CGI ADOkans2.asp アクセスログを残すプログラム(SQL)
' VB4CGI.INCが必要
' HTMLフォームから受け取った感想をデーターベースに格納する。
' 実行ディレクトリにkansou.mdbが必要(接続時にODBCの設定をしているのでODBCの設定はいらない)
' フィールドを増やせばアンケートなどにも使えます。
'
' 原作者 古口正巳 [koguchi@sf.airnet.ne.jp]1998.07 V 0.9
'
' このプログラムはコード改変可能なフリーフェアであり、いかなる条件でも正しく動作する事を保証してません。
' 各自のリスクで実行して下さい。このプログラムを利用していかなるトラブルが発生しても関知しません。
'
' 実行形式プログラムのある同じPathにkansou.mdbを置いて下さい。
'このプログラムでは入力フォームは入りません。直接ADOkans2.aspを実行してみて下さい。
'Option Explicit
Dim sName
Dim sAddress
Dim sKansou
'フォームからのデーターを受け取る
sName = GetCgiValue("name")
sAddress = GetCgiValue("address")
sKansou = GetCgiValue("kansou")
'sendheader "TEST"
'send sname & saddress & skansou
'sendfooter
If Trim(sName) <> "" or Trim(sAddress) <> "" or Trim(sKansou) <> "" Then
cgi_main
Response.end
End If
'Response.end
%>
CGI4VB 感想入力ホーム(ADO ASP)
感想をお寄せください(ADO ASP)
このページを見ての感想・意見をお寄せ下さい。