Set MyConn = Server.CreateObject("ADODB.Connection")
MyConn.Open strConn
MyConn.Execute(strSQL)
MyConn.Close
Set MyConn = Nothing
response.Redirect("comments.asp?id="&bID)
%>
<%
End Sub
%>
<%
Sub getEmoticons()
eCount = 0
IISfolder = server.MapPath("emoticons/")
Set fso = Server.CreateObject("Scripting.FileSystemObject") <<<<<< line 292 ครับ
Set folder = fso.GetFolder(IISfolder)
Set Files = folder.Files
For Each File in Files
strEmoticon = File.name
if strEmoticon <> "Thumbs.db" Then
response.Write("<a href=""javascript:AddHTML('["&replace(strEmoticon,".gif","")&"]')""><img src=emoticons/"&strEmoticon&" border=0 alt="&replace(strEmoticon,".gif","")&"></a>")
eCount = eCount + 1
If eCount = 15 Then
response.Write("<br>")
eCount = 0
else
response.Write(" ")
end If
End if
Next