ถ้าเขาเขียนโค๊ด asp แล้วจะแทรก code ของ php หรือ asp.net ได้ป่าวคับ...อยากแทรกข่าว rss ให้มีภาพแสดง

<%
function rssfeed(xml, newscount)
	rssfile = xml
	strhtml = ""
	set objXML = server.createobject("MSXML2.FreeThreadedDOMDocument")
	objXML.async = False
	objXML.setproperty "ServerHTTPRequest", True
	objXML.load(rssfile)
	if objXML.parseerror.errorcode <> 0 Then
		strhtml = strhtml & " " & vbCrLf
		strhtml = strhtml & "<strong>Error:</strong> " & objXML.parseerror.reason
		strhtml = strhtml & "<strong>Line:</strong>  " & objXML.parseerror.line & vbcrlf
		strhtml = strhtml & "<strong>Text:</strong>  " _
		& server.htmlencode(objXML.parseerror.srcText) & vbcrlf
		strhtml = strhtml & " " & vbCrLf
	end if
	set objitemlist = objXML.getelementsBytagName("item")
	set objXML = nothing
	irss=-1
	for each objitem in objitemlist
		irss=irss+1
		' 0=title, 1-link,  2=description, 3=pubdate
		if irss < newscount then
			strhtml = strhtml & "<span class=""textnewsfeedbull"">&bull;</span> "
			strhtml = strhtml & "<span class=""textnewsfeedtitle"">"
			strhtml = strhtml & "<a href=""" & objitem.childnodes(1).text & """ target=""_blank"">"
			strhtml = strhtml & objitem.childnodes(0).text
			strhtml = strhtml & "</a></span><br />" & vbcrlf
			strhtml = strhtml & "<span class=""textnewsday"">"
			strhtml = strhtml & objitem.childnodes(3).text
			strhtml = strhtml & "</span><br />" & vbcrlf
			strhtml = strhtml & "<span class=""textnewsfeed"">"
			strhtml = strhtml & replace(objitem.childnodes(2).text, "<br>", "<br />")
			strhtml = strhtml & "</span><br />" & vbcrlf
			strhtml = strhtml & "<img src=""images/blank.gif"" border=""0"" width=""1"" height=""5"" alt="""" style=""display:block;"" />" & vbcrlf
		end if
	next
	set objitemlist = nothing
	rssfeed = strhtml
end function
%>

<%
rssfeed("http://www.domain.com/feed.xml", 5)
%>

<%
Set objXML = Server.CreateObject("Microsoft.XMLHTTP")
				objXML.Open "GET", webaddr & firstfolder & "thumb_maker/thumbavatar.php?src=" & Server.MapPath(strImageName) & "&w=" & avatarwidth & "&h=" & avatarheight & "&siap=" & Server.MapPath(strThumbName), True
				objXML.Send
				Set objXML=Nothing
%>