<%@Language="VBScript"%> <% Option Explicit Response.Expires = 0 %> <% dim Conn dim Rs dim qs set Conn = server.CreateObject("adodb.connection") Conn.Open connStr set Rs = server.CreateObject("adodb.recordset") %>

您有話想對醫護人員說嗎?　　您有祝福想傳達給親友嗎? 從現在起　　只要您參與連署　　我們將您的祝福　　以卡片寄送給您最關心的人~   參與連署   我想對________說（請勾選下列單位，可複選） <% qs = "select [hospitalId],[hospitalName] from [hospital]" qs = qs & " order by [hospitalId]" Rs.Open qs,Conn,1,1 if not Rs.EOF then while not Rs.EOF %> "> <%=Trim("" & Rs("hospitalName"))%> <% Rs.MoveNext if Rs.EOF then %> <% else end if %> <% wend else end if Rs.Close %> 我想說（100字以內，請註明收信人大名及單位，以便寄送）： 我的姓名： 我的E-mail： 連署日期：中華民國 <%=Year(Now())-1911%> 年 <%=Month(Now())%> 月 <%=Day(Now())%> 日

<% set Rs = nothing Conn.Close set Conn = nothing %>