<%
    sub ShowOneItem(rs)
        tab="<table border=0 width=""100%"">"
        tab=tab& "<tr><td bgcolor=#00d0d0>姓名:"&rs("姓名") &"</td>"
        tab=tab& "<tr><td>性別:"&rs("性別") &"</td>"
        tab=tab& "<tr><td >地址:"&rs("地址") &"</td>"
        tab=tab& "<tr><td >郵編:"&rs("郵編") &"</td>"
        tab=tab& "<tr><td >傳真:"&rs("傳真") &"</td>"
        tab=tab& "<tr><td >電子郵件:<A HREF="&"mailto:" & rs("電郵")&">"
        tab=tab&rs("電郵")&"</td>"
        tab=tab& "<tr><td >主題:"&rs("主題") &"</td>"
        tab=tab& "<tr><td  colspan=2>留言時間:"&rs("時間") &"</td>"
        memo=replace(rs("內容"),chr(13),"<br>")
        tab=tab& "<tr><td colspan=2 ><pre><font size=+1>留言："
        tab=tab& memo&"</font></pre></tr></td>"
        tab=tab&"</table><hr>"
        Response.write  tab
   end sub
%>