Function Dig(ByVal i, ByVal d)
	i = Trim(i & "")
	while len(i) < d
		i = "0" & i
	wend
	Dig = i
End Function


Sub GetMsg(dalid, mevzu, bitti)
	Dim objXMLDoc, root, node, rec, sDal
    Set objXMLDoc = CreateObject("Msxml.DOMDocument")
    objXMLDoc.async = false
    objXMLDoc.load "xmlmsg.asp?dalid=" & dalid & "&mevzu=" & mevzu
    sDal = ""
    if objXMLDoc.xml <> "" then sDal = objXMLDoc.documentElement.Text
    divHikaye.style.display = "block"
    if bitti = 1 then 
        divForm.style.display = "none"
	    spanBitti.innerHTML = "<br>Biz MVT olarak, bu dalın hikayeyi bitirmesine karar verdik. İsterseniz, vördde görüp işleyebilirsiniz.<br><br>"
    else
        divForm.style.display = "block"
        spanBitti.innerHTML = ""
    end if
	spanmsg.innerHTML = sDal
	frmDal.formpid.value = dalid
End Sub


Sub GetData(dalid, mevzu, tarih, nik)

    Dim li, img, objXMLDoc, root, node, rec, acik, st
    Dim iDalID, sYil, sAy, sGun, sYazan, sKonu, iBebeCnt, iBitti

	acik = False
	Set img = Nothing
	Set li = document.getElementById("li" & dalid)
	if not li is Nothing then
		acik = (li.acik = 1)
		if li.orjin = "" then li.orjin = li.innerHTML
		Set img = document.getElementById("img" & dalid)
	end if

    Set objXMLDoc = CreateObject("Msxml.DOMDocument")
    objXMLDoc.async = false
    st = "xmldata.asp?dalid=" & dalid & "&mevzu=" & mevzu
    if Trim(tarih) <> "" then st = st & "&tarih=" & tarih 
    if Trim(nik) <> "" then st = st & "&Nik=" & nik
    objXMLDoc.load st 

	if acik then
		s = li.orjin
		li.acik = 0
    elseif objXMLDoc.xml = "" then
	    if not li is Nothing then
			s = li.orjin
		else
			s = ""
		end if
    else
		s = ""
		Set root = objXMLDoc.documentElement
		For Each node In root.childNodes
            iBebeCnt = 0
			Set rec = node.firstChild
			while not rec is Nothing
				select case rec.nodeName
				case "id"
					iDalID = Clng(rec.text)
				case "bebecnt"
					iBebeCnt = Clng(rec.text)
				case "yil"
					sYil = Dig(rec.text,4)
				case "ay"
					sAy = Dig(rec.text,2)
				case "gun"
					sGun = Dig(rec.text,2)
				case "yazan"
					sYazan = rec.text
				case "bitti"
					iBitti = Cint(rec.text)
				case "konu"
					sKonu = rec.text
				end select
				Set rec = rec.nextSibling
			wend
			if  iBitti = 1 then
    			s = s & "<li acik=0 orjin='' style='margin-left:-25px;list-style-type:none' id=li" & iDalID & "><span onmouseout=""status=''"" onmouseover="" status='Dal " & iDalID & "'""><img id=img" & iDalID & " src='images/bitti.gif'>" & sGun & "/" & sAy & "/" & sYil & " " & sYazan & " - <a href='javascript:GetMsg(" & iDalID & ", """ & mevzu & """, " & iBitti & ")'>" & sKonu & "</a></span></li>" & vbCrLf
			elseif iBebeCnt = 0 then
    			s = s & "<li acik=0 orjin='' style='margin-left:-25px;list-style-type:none' id=li" & iDalID & "><span onmouseout=""status=''"" onmouseover="" status='Dal " & iDalID & "'""><img id=img" & iDalID & " src='images/dot.gif'>" & sGun & "/" & sAy & "/" & sYil & " " & sYazan & " - <a href='javascript:GetMsg(" & iDalID & ", """ & mevzu & """, " & iBitti & ")'>" & sKonu & "</a></span></li>" & vbCrLf
    	    else
		        s = s & "<li acik=0 orjin='' style='margin-left:-25px;list-style-type:none' id=li" & iDalID & "><span onmouseout=""status=''"" onmouseover="" status='Dal " & iDalID & "'""><img id=img" & iDalID & " style='cursor:hand' src='images/plus.gif' onclick='vbscript:GetData " & iDalID & ", """ & mevzu & """, """", """ & nik & """'> " & sGun & "/" & sAy & "/" & sYil & " " & sYazan & " - <a href='javascript:GetMsg(" & iDalID & ", """ & mevzu & """, " & iBitti & ")'>" & sKonu & "</a></span></li>" & vbCrLf
			end if
		Next
		if not li is nothing and s <> "" then
			s = li.orjin & "<ul>" & s & "</ul>"
			li.acik = 1
		end if
	end if

	if li is nothing then
		rootul.innerHTML = s
	else
		li.innerHTML = s
		if li.acik = 1 then
			Set img = document.getElementById("img" & dalid)
			img.src = "images/minus.gif"
		end if
	end if

End Sub