<% q_no = request.form("q_no") if q_no <> "" then set conn = Server.CreateObject("ADODB.Connection") conn.open "hanmonten", "hanmonten", "4229" sql = "select * from han_qna where q_no=" & q_no set rs = Server.CreateObject("ADODB.RecordSet") rs.open sql, conn, 3 title = rs("title") contents = rs("contents") contents = ">>" & contents contents = replace(contents, chr(13) & chr(10), chr(13) & chr(10) & ">>") end if %> Welcome to Hanmonten
観光案内
申込み書作成
観光 Q&A
"> "> "> ">
投稿者
Email
Password
タイトル
内容


Copyright (C) 2001 DIGITAL HEART CO.,LTD. All Rights Reserved.
Designed by CLUB INTERNET