<% id = request.QueryString("id") sort = Request("sort") rec = int(Request("rec"))-1 bPage = Request("bPage") if sort="B" then sortStr = "order by voteCount desc" elseif sort="A" then sortStr = "order by seq_id desc" else sortStr = "order by NEWID()" end if if bPage="" then bPage=1 if id<>"" then SQL = "select *,(select count(*) from mamma2009_vote where mamma2009_vote.share_id = mamma2009_share.seq_id) as voteCount from mamma2009_share "& sortStr ' where seq_id="& id rs.CursorLocation = 3 rs.Open SQL, conn, 1,1 If not rs.EOF then total = rs.recordcount if sort="" then do until rs.EOF if int(rs("seq_id"))=int(id) then rec = RS.AbsolutePosition-1 ' response.write rec end if rs.movenext loop end if rs.movefirst rs.Move rec thisRec = RS.AbsolutePosition-1 name = trim(rs("name")) blog = trim(rs("blog")) signup_type = trim(rs("signup_type")) pic_photo = trim(rs("pic_photo")) pic_s1 = trim(rs("pic_s1")) txt_s1 = trim(rs("txt_s1")) pic_s2 = trim(rs("pic_s2")) txt_s2 = trim(rs("txt_s2")) pic_s3 = trim(rs("pic_s3")) txt_s3 = trim(rs("txt_s3")) share_type = trim(rs("share_type")) share_txt = trim(rs("share_txt")) if share_txt<>"" then share_txt = replace(share_txt, vbCrLf, "
") voteCount = trim(rs("voteCount")) if pic_s1="" or isNull(pic_s1) then pic_s1 = pic_photo if pic_s2="" or isNull(pic_s2) then pic_s2 = pic_photo if pic_s3="" or isNull(pic_s3) then pic_s3 = pic_photo if left(blog,4) <>"http" then blog_link = "http://"& blog else blog_link = blog end if End If else Response.Write "" end if %>
投票辦法: 投票時間自98年9月14日到98年9月27日止,每人每天限投1票,若發現不當灌票之
情形,主辦單位有權將移除不當票數或取消該參賽者資格。敬請大家多多配合喔!
<%=txt_s1%>
<%=txt_s2%>
<%=txt_s3%>~
我是 <%=name%>
目前票數<%=voteCount%>
<% select case signup_type case "1" response.write "目前懷孕中且是第一胎" case "2" response.write "目前懷孕中且是第二胎或以上" case "3" response.write "產後六個月內" case else response.write "" end select %>
<% If share_type="" or IsNull(share_type) then share_type=0 For i=1 to 5 if (i> int(share_type) ) then response.write "" else response.write "" end if Next %>
使用滿意度:
<% If share_type="" or IsNull(share_type) or share_type=0 then Else %> <% End If %>
 
<%=share_txt %>
<% if thisRec>0 then rs.movefirst rs.Move thisRec-1 prevID = trim(rs("seq_id")) %> <% End if %> <% if thisRec <% End if %>
<% rs.close %>