きもののページ

最終更新日：2001年12月01日

<% 'DBへの更新日登録処理 'Ur= Request.Cookies("Cooka")("aa") 'ＳＱＬサーバへ接続 ' Set Conn = Server.CreateObject("ADODB.Connection") ' Conn.Open "kimono_dsn", "kimono", "onomik" '更新日をDBにINSERT '排他制御 ' Conn.BeginTrans ' n_date= FormatDateTime(now,2) ' Set RS = Conn.Execute("UPDATE kimono SET n_date = '" & n_date & "' Where usr='" & Ur & ";" ) ' If Err.Number <> 0 Then ' Conn.RollbackTrans ' Conn.Close ' Call existMsg() ' Response.End ' End If 'コミット ' Conn.CommitTrans ' Conn.Close %> <% 'Sub errorMsg() ' Response.Write "サーバがダウン中です。しばらくしてから再度登録を行ってください。" & '"
" ' Response.Write "再度登録を行っても異常が発生する場合は、システム管理者に連絡してくだ'さい。" & "
" ' Response.Write "

戻る" 'End Sub %> <% 'カウンター処理 Rows = 6 'Filename = "D:¥kimono¥count.dat" Filename = Server.MapPath("count.dat") On Error Resume Next Set FileObject = Server.CreateObject("Scripting.FileSystemObject") Set InStream = FileObject.OpenTextFile(Filename,1,False,False) If Err.Number > 0 then Count = 0 Else Count = InStream.ReadLine Set InStream = Nothing InStream.Close End If Count = Count + 1 Set OutStream = FileObject.CreateTextFile(Filename,True,False) OutStream.WriteLine Count OutStream.Close Set OutStream = Nothing Buff = Right(String(Rows,"0") & Count,Rows) For i = 1 To Rows Response.Write( "" ) Next %>

会員登録 会員登録フォームです（工事中）。	小売店検索 小売店を地域・購入用途別に検索。割引クーポンの発行、イベント案内（工事中）。
染と織 地域別辞典 各地の地上産産業の案内、歴史の紹介、作家の案内等々。	着付け教室・先生紹介 財団資格教師の案内、着物教室の案内、教育用品の案内など（工事中）。
リンク 関連ＨＰへのリンク集（工事中）。	Ｑ＆Ａ 多く寄せられる質問に答えています（工事中）。
ご意見、ご感想などありましたらこちらまでお寄せ下さい。 e-mail address tamichan@kimono.or.jp