<% Function CheckGo(ByVal CheckValue) if CheckValue < 100 Then if CheckValue < 10 Then CheckGo = "00" & CheckValue else CheckGo = "0" & CheckValue end if else CheckGo = CheckValue end if End Function 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 ' SQL2 = "SELECT month_num FROM gaparang_rank order by num desc" 'Set Grs2 = conn.Execute(SQL2) SQL = "SELECT num,question,answer1,answer2,answer3,answer4,answer5,answer6,answer7,answer8,answer9,answer10 FROM poll_2011 where num = " & request("num") Set Grs = conn.Execute(SQL) keynum = Grs("num") %> <% idd = "sc+poll" & Grs("num") question = Grs("question") question = Replace(question, "'", "") question = Replace(question, Chr(34), "") NEWSTITLE = "[핫이슈폴] " & question %>