<% Dim sqlBanner1, sqlBanner2, rsBanner sqlBanner1 = "select * from Banners where Show1 in (1, 3)" sqlBanner2 = "select * from Banners where Show2 in (1, 3)" Set rsBanner = conn.Execute(sqlBanner1) If Not rs.EOF Then Response.Write " " & rsBanner("Banner1") & " " rsBanner.Close Set rsBanner = Nothing Set rsBanner = conn.Execute(sqlBanner2) If Not rsBanner.EOF Then If rsBanner("Banner2") <> "" Then Response.Write "" & rsBanner("Banner2") & " " rsBanner.Close Set rsBanner = Nothing %>

<%=Server.HTMLEncode(RS("QTopic"))%>

<% Dim sNote, sPicture sNote = RS("QNote") '--- ค้นหาเครื่องหมายคำสั่ง html และแทนด้วยสัญลักษณ์ ascii --- sNote = Replace(sNote, "<", "<") sNote = Replace(sNote, ">", ">") sNote = Replace(sNote, "<" & "br" & ">", " ") '--- ค้นหาสัญลักษณ์และแทนด้วยรูปภาพ --- sNote = Replace(sNote, "(Y)", "") sNote = Replace(sNote, "(N)", "") sNote = Replace(sNote, "(B)", "") sNote = Replace(sNote, "(D)", "") sNote = Replace(sNote, "(X)", "") sNote = Replace(sNote, "(Z)", "") sNote = Replace(sNote, "(6)", "") sNote = Replace(sNote, ":-[", "") sNote = Replace(sNote, "(})", "") sNote = Replace(sNote, "({)", "") sNote = Replace(sNote, ":-)", "") sNote = Replace(sNote, ":-D", "") sNote = Replace(sNote, ":-O", "") sNote = Replace(sNote, ":-P", "") sNote = Replace(sNote, ";-)", "") sNote = Replace(sNote, ":-(", "") sNote = Replace(sNote, ":-S", "") sNote = Replace(sNote, ":-|", "") sNote = Replace(sNote, ":--(", "") sNote = Replace(sNote, ":-$", "") sNote = Replace(sNote, "(H)", "") sNote = Replace(sNote, ":-@", "") sNote = Replace(sNote, "(A)", "") sNote = Replace(sNote, "(L)", "") sNote = Replace(sNote, "(K)", "") sNote = Replace(sNote, "(G)", "") sNote = Replace(sNote, "(F)", "") sNote = Replace(sNote, "(W)", "") sNote = Replace(sNote, "(P)", "") sNote = Replace(sNote, "(~)", "") sNote = Replace(sNote, "(T)", "") sNote = Replace(sNote, "(@)", "") sNote = Replace(sNote, "(&)", "") sNote = Replace(sNote, "(C)", "") sNote = Replace(sNote, "(I)", "") sNote = Replace(sNote, "(S)", "") sNote = Replace(sNote, "(*)", "") sNote = Replace(sNote, "(8)", "") sNote = Replace(sNote, "(E)", "") sNote = Replace(sNote, "(^)", "") sNote = Replace(sNote, "(O)", "") sNote = Replace(sNote, "(M)", "") '--- พิมพ์ข้อความออกทางเว็บบราวเซอร์ --- Response.Write CreateLink(sNote) sPicture = rs("QPicture") If sPicture <> "" Then Response.Write " " %> ข่าวโดย <%=Server.HTMLEncode(RS("QName"))%> <% If rs("QIP") <> "" Then Response.Write " (" & rs("QIP") & ") " %> เมื่อวันที่ <% =rs("qdate") %>

<% RS.Close Set RS =Server.CreateObject("ADODB.Recordset") RS.open Sql2,Conn,1,3 do while not rs.EOF ans_num = ans_num + 1 %>

<% rs.movenext loop RS.Close Set rs = Nothing Call DisconnectDB() %>

คลิกเพื่อปิดหน้าต่างนี้