<%
set fso = Server.CreateObject("Scripting.FileSystemObject")
set f = fso.OpenTextFile("C:\cons5.dat")
strconnect = f.Readline
set conn=Server.CreateObject("ADODB.Connection")
conn.Open strconnect
SQL = "SELECT num,question,answer1,answer2,answer3,answer4,answer_vote1,answer_vote2,answer_vote3,answer_vote4,answer9,answer10 FROM poll_2011 where num = " & request("num")
Set Grs = conn.Execute(SQL)
keynum = Grs("num")
totalCnt = Grs("answer_vote1") + Grs("answer_vote2") + Grs("answer_vote3") + Grs("answer_vote4")
wid1 = 0
wid2 = 0
wid3 = 0
wid4 = 0
IF totalCnt > 0 AND Grs("answer_vote1") > 0 Then
wid1 = round((Grs("answer_vote1") / totalCnt * 100))
End IF
IF totalCnt > 0 AND Grs("answer_vote2") > 0 Then
wid2 = round((Grs("answer_vote2") / totalCnt * 100))
End IF
IF totalCnt > 0 AND Grs("answer_vote3") > 0 Then
wid3 = round((Grs("answer_vote3") / totalCnt * 100))
End IF
IF totalCnt > 0 AND Grs("answer_vote4") > 0 Then
wid4 = round((Grs("answer_vote4") / totalCnt * 100))
End IF
%>
<%=Grs("question")%>
<%
includ_file = "/news/html/main/poll_top" & keynum & ".htm"
Server.Execute(includ_file)
%>
°á°úº¸±â
<%=wid2%>%
|
|
2. <%=Grs("answer2")%>(<%=Grs("answer_vote2")%>Ç¥)
|
<%=wid3%>%
|
|
3. <%=Grs("answer3")%>(<%=Grs("answer_vote3")%>Ç¥)
|
<%=wid4%>%
|
|
4. <%=Grs("answer4")%>(<%=Grs("answer_vote4")%>Ç¥)
|
<%
idd = "sc+poll" & Grs("num")
question = Grs("question")
question = Replace(question, "'", "")
question = Replace(question, Chr(34), "")
NEWSTITLE = "[ÇÖÀ̽´Æú] " & question
%>