sub getVideos ()
	
		dim videoHeaderArray, videoIDArray, objFSO
		
		Set videoHeaderArray = document.getElementById("videoHeaderArray")
		Set videoIDArray = document.getElementById("videoIDArray")
		Set videoPcxArray = document.getElementById("videoPcxArray")		
		
		
		if videoIDArray.value = "" then
		
			Set oXML = CreateObject("Msxml2.XMLHTTP")
				
			randomize timer
			
			fg = int(rnd * 100000)
						
			oXML.Open "GET", "xmlProcess.asp?action=getVideos&fg=" & fg & "", False 
			oXML.setRequestHeader "Content-Type", "application/form" 
			oXML.Send 
			
			xmlString = Cstr(oXML.responseText) 
			Set oXML = nothing 
			
			dim objXML
			set objXML = CreateObject("Microsoft.XMLDOM")
			objXML.async = false
			objXML.LoadXML xmlString
			
			dim currentVideoPage
			set currentVideoPage = document.getElementById("currentVideoPage")
			
			recordCount = objXML.getElementsByTagName("id").Length
			
			startPoint = int(document.getElementById("vp").value + 1)
			endPoint = startPoint + 2
			
			t = 1
			
						
			for i=startPoint to endPoint
			
				comment = setText(objXML.getElementsByTagName("Header")(i-1).firstChild.nodeValue)
				
				if len(comment) > 30 then
				
					comment = left(comment, 30) & "..."
					
				end if		
	
				document.getElementById("_videoHeader_" & t).innerHTML = "<strong>" & tmpObjectArray & comment & "</strong>"
				
				document.getElementById("_videoContainer_" & t).style.backgroundImage = "url(videos/images/" & left(objXML.getElementsByTagName("file_path")(i-1).firstChild.nodeValue,11) & ".jpg)"
				
				url = "Isvic_TV.asp?" & createStringURL(objXML.getElementsByTagName("Header")(i-1).firstChild.nodeValue, objXML.getElementsByTagName("id")(i-1).firstChild.nodeValue)
				
				document.getElementById("_pngContaiiner_" & t).innerHTML = "<a href='" & url & "'><img src='videos/images/staticPlayButton120x90.png' width='120' height='90' border='0'></a>"
				

				
				t = t + 1
				
			next
			
			for k=0 to recordCount - 1
			
				videoIDArray.value = videoIDArray.value & objXML.getElementsByTagName("id")(k).firstChild.nodeValue & ","
				videoHeaderArray.value = videoHeaderArray.value & setText(objXML.getElementsByTagName("Header")(k).firstChild.nodeValue) & ","
				videoPcxArray.value = videoPcxArray.value & left(objXML.getElementsByTagName("file_path")(k).firstChild.nodeValue,11) & ","
			
			next

			videoIDArray.value = left(videoIDArray.value, len(videoIDArray.value)-1)
			videoHeaderArray.value = left(videoHeaderArray.value, len(videoHeaderArray.value)-1)
			videoPcxArray.value = left(videoPcxArray.value, len(videoPcxArray.value)-1)
			
		else
		
			startPoint = int(document.getElementById("vp").value + 1)
			endPoint = startPoint + 2
			
			xArray = split(videoHeaderArray.value,",")
			yArray = split(videoIDArray.value,",")
			ZArray = split(videoPcxArray.value,",")
			
			
			t = 1
			
			for i=startPoint to endPoint
			
				comment = xArray(i-1)
				
				comment = replace(comment,"%5F","'")
				comment = replace(comment,"%6F",chr(34))	
				
				if len(comment) > 30 then
				
					comment = left(comment, 30) & "..."
					
				end if		
	
				document.getElementById("_videoHeader_" & t).innerHTML = "<strong>" & tmpObjectArray & comment & "</strong>"
				
				document.getElementById("_videoContainer_" & t).style.backgroundImage = "url(videos/images/" & ZArray(i-1) & ".jpg)"
				
				url = "Isvic_TV.asp?" & createStringURL(xArray(i-1), yArray(i-1))
				
				document.getElementById("_pngContaiiner_" & t).innerHTML = "<a href='" & url & "'><img src='videos/images/staticPlayButton120x90.png' width='120' height='90' border='0'></a>"
				
				t = t + 1
				
			next			
		
		end if

	end sub
	
	sub moveVideos (direction)
	
		if direction = -1 then
		
			if document.getElementById("vp").value <> "0" then
			
				document.getElementById("vp").value = document.getElementById("vp").value - 3
				
			end if
			
		end if
		
		if direction = 1 then
		
			if document.getElementById("vp").value <> "6" then
			
				document.getElementById("vp").value = document.getElementById("vp").value + 3
				
			end if
			
		end if
		
		getVideos()		
	
	
	end sub
	
	
	function createStringURL (header, id)
	
		headerx = header
		
		'on error resume next
		
		headerx = replace(header, "%6F", chr(34))
		headerx = replace(headerx, "%5F", "'")	
		
		'	

		headerx = replace(headerx,"İ", "i")
		headerx = replace(headerx," ", "+")
		headerx = replace(headerx,",", "-")
		headerx = replace(headerx,"’", "-")
		headerx = replace(headerx,"/", "-")
		headerx = replace(headerx,"(", "-")
		headerx = replace(headerx,")", "-")
		headerx = replace(headerx,"?", "-")
		headerx = replace(headerx,":", "-")
		headerx = replace(headerx,"=", "-")
		headerx = replace(headerx,"'", "-")
		headerx = replace(headerx,"’", "-")
		headerx = replace(headerx,".", "-")
		headerx = replace(headerx,"´", "-")
		headerx = replace(headerx,"`", "-")
		headerx = replace(headerx,"`", "-")
		headerx = replace(headerx,chr(34), "-")
		headerx = replace(headerx,"‘", "-")
		headerx = replace(headerx,"’", "-")
		
		
		headerxx = headerx
		
		for i=1 to len(id)
		
			a = left(id, i)
			b = right(a, 1)
			
			d = d & asc(b) & ","
		
		next
		
		d = left(d, len(d)-1)
		
		createStringURL = "t=" & headerxx & "&x=" & d
		

	end function
	
	
	sub saveComment(idx)
		
		document.getElementById("processMessage").innerHTML = "Bekleyin..."
		
		if document.getElementById("namex").value = "" or document.getElementById("commentx").value = "" then
			
			i = MsgBox("Mahlas ve yorumunuzu yazmayi unutmayin...",vbOKOnly+vbDefButton2+vbInformation, "Isvic.com")
			document.getElementById("processMessage").innerHTML = ""			
						
		else
		
			Set oXML = CreateObject("Msxml2.XMLHTTP")
				
			randomize timer
			
			fg = int(rnd * 100000)
			
			body = document.getElementById("commentx").value
			
			body = replace(body,"'","%5F")
			body = replace(body,"‘","%5F")
			body = replace(body,"’","%5F")
			body = replace(body,"´","%5F")
			body = replace(body,"`","%5F")			
			body = replace(body,"”","%6F")	
			body = replace(body,"“","%6F")	
			body = replace(body,chr(34),"%6F")	
			body = replace(body,"</a>","_7F")	
			body = replace(body,"+","_8F")
			body = replace(body,"&","_9F")
			
			body = Replace(body, vbCrLf, "<br>", 1, -1, 1)
		    body = Replace(body, Chr(13), "<br>", 1, -1, 1)					
						
			oXML.Open "GET", "xmlProcess.asp?action=saveComment&namex=" & document.getElementById("namex").value & "&commentx=" & body & "&fk_entry_id=" & idx & "&fg=" & fg & "", False 
			oXML.setRequestHeader "Content-Type", "application/form" 
			oXML.Send 
			
			xmlString = Cstr(oXML.responseText) 
			Set oXML = nothing 
			
			dim objXML
			set objXML = CreateObject("Microsoft.XMLDOM")
			objXML.async = false
			objXML.LoadXML xmlString
					
			if objXML.getElementsByTagName("field1")(0).firstChild.nodeValue = "OK" then
			
			document.getElementById("processMessage").innerHTML = "Yorumunuz kaydedildi..."
			document.getElementById("commentx").value = ""
			
			else
			
				document.getElementById("processMessage").innerHTML = "Bir hata oldu: " & objXML.getElementsByTagName("field1")(0).firstChild.nodeValue
			
			end if
			
		end if
	
	
	
	end sub
	
	
	sub searchEntry ()
		
		if document.getElementById("strSearch").value = "" or document.getElementById("strSearch").value = "Kelimeyi girin..." then
			
			i2 = MsgBox("Bulmak istediginiz kelimeyi girin...",vbOKOnly+vbDefButton2+vbInformation, "Isvic.com")
						
		else
			
			document.getElementById("blackbox").style.display = ""
			document.getElementById("blackbox2").style.display = ""
			setTimeout "startSearch()",1000 
			
		end if	
	
	
	end sub
	
	sub startSearch()
			
			dim objx
			
			on error resume next
			
			set objx = document.getElementById("tab_container_0")
			set objx2 = document.getElementById("content_container_0")
			objx.style.display = "" 
			document.getElementById("tab_container_" & document.getElementById("currentTabID").value).style.display = "none" 
		
			Set oXML = CreateObject("Msxml2.XMLHTTP")
				
			randomize timer
			
			fg = int(rnd * 100000)
			
			t = document.getElementById("strSearch").value
			
			t = replace(t,"'","%5F")
			t = replace(t,"‘","%5F")
			t = replace(t,"’","%5F")
			t = replace(t,"´","%5F")
			t = replace(t,"`","%5F")			
			t = replace(t,"”","%6F")	
			t = replace(t,"“","%6F")	
			t = replace(t,chr(34),"%6F")	
			t = replace(t,"</a>","_7F")	
			t = replace(t,"+","_8F")
			t = replace(t,"&","_9F")	
			
			if t = "Tum basliklar" then
			
				t = "a"		
			
			end if
		
			
			oXML.Open "GET", "xmlProcess.asp?action=startSearch&strSearch=" & t & "&fg=" & fg & "", False 
			oXML.setRequestHeader "Content-Type", "application/form" 
			oXML.Send 
			
			xmlString = Cstr(oXML.responseText) 
			Set oXML = nothing 
			
			dim objXML
			set objXML = CreateObject("Microsoft.XMLDOM")
			objXML.async = false
			objXML.LoadXML xmlString


			if objXML.getElementsByTagName("Header")(0).firstChild.nodeValue <> "cancel" then
			
			recordCount = objXML.getElementsByTagName("id").Length
			
			
						 
			xs = "<table width='302' border='0' cellpadding='0' cellspacing='0'>"
			
				  xs = xs & "<tr>"
				  xs = xs & "<td width='20'>&nbsp;</td>"
				  xs = xs & "<td width='282' class='Dark12GreyDefault'><strong>" & recordCount &" baslik bulundu</strong></td>"	
				  xs = xs & "</tr>"		
			
			for j=0 to recordCount
				
				headerx = replace(objXML.getElementsByTagName("Header")(j).firstChild.nodeValue, "%5F", "'")
				headerx = replace(headerx, "%6F", chr(34))
				headerx = replace(headerx, "%5F", "'")
				
				headerxx = replace(objXML.getElementsByTagName("Header")(j).firstChild.nodeValue, "%5F", "'")
				headerxx = replace(headerxx, "%6F", chr(34))
				headerxx = replace(headerxx, "%5F", "'")				
				
				if len(headerx) > 37 then
				  headerx = left(headerx, 37) & "..."
				end if	
				
				

				xs = xs & "<tr>"
				xs = xs & "<td width='20'>&nbsp;</td>"
				
				if objXML.getElementsByTagName("commentCount")(j).firstChild.nodeValue <> "0" then	
							
					xs = xs & "<td width='282' class='Dark12GreyDefault'><a href='Isvic_Sozluk.asp?" & createStringURL(objXML.getElementsByTagName("Header")(j).firstChild.nodeValue, objXML.getElementsByTagName("id")(j).firstChild.nodeValue) & "' title='" & setText(headerxx) & "'><li>" & setText(headerx) & " (" & objXML.getElementsByTagName("commentCount")(j).firstChild.nodeValue & ")" & "</li></a></td>"
					
				else
				
					xs = xs & "<td width='282' class='Dark12GreyDefault'><a href='Isvic_Sozluk.asp?" & createStringURL(objXML.getElementsByTagName("Header")(j).firstChild.nodeValue, objXML.getElementsByTagName("id")(j).firstChild.nodeValue) & "' title='" & setText(headerxx) & "'><li>" & setText(headerx) & "</li></a></td>"
				
				end if
				xs = xs & "</tr>"  	
			
			next
			
			
			xs = xs & "</table>"
			
			objx2.innerHTML = ""
			objx2.innerHTML = xs
			
			document.getElementById("blackbox").style.display = "none"	
			document.getElementById("blackbox2").style.display = "none"

			else
			
			xs = "<table width='302' border='0' cellpadding='0' cellspacing='0'>"
			
				  xs = xs & "<tr>"
				  xs = xs & "<td width='20'>&nbsp;</td>"
				  xs = xs & "<td width='282' class='Dark12GreyDefault'>Aranilan kelime bulunamadi...</strong></td>"	
				  xs = xs & "</tr>"	
				  xs = xs & "</table>"	
				  
				  objx2.innerHTML = xs	
				  
				  document.getElementById("blackbox").style.display = "none"
				  document.getElementById("blackbox2").style.display = "none"
			
			end if	
	end sub

			
	sub saveEntry()
	
		if document.getElementById("Header").value = "" or document.getElementById("Body").value = "" then
		
			i = MsgBox("Baslik ve icerik olmadan kayit yapilamaz.",vbOKOnly+vbDefButton2+vbInformation, "Isvic.com")
			
		else
	
			'Set oXML = CreateObject("Msxml2.XMLHTTP")
				
			randomize timer
			
			fg = int(rnd * 100000)
			
			header = document.getElementById("Header").value
			
			header = replace(header,"'","%5F")
			header = replace(header,chr(34),"%6F")
			
			body = document.getElementById("Body").value
			
			body = replace(body,"'","%5F")
			body = replace(body,"‘","%5F")
			body = replace(body,"’","%5F")
			body = replace(body,"´","%5F")
			body = replace(body,"`","%5F")			
			body = replace(body,"”","%6F")	
			body = replace(body,"“","%6F")	
			body = replace(body,chr(34),"%6F")	
			body = replace(body,"</a>","_7F")	
			body = replace(body,"+","_8F")
			body = replace(body,"&","_9F")
			
			body = Replace(body, vbCrLf, "<br>", 1, -1, 1)
		    body = Replace(body, Chr(13), "<br>", 1, -1, 1)		
			
			document.getElementById("Body").value = body
			
			frmProcess1.action ="xmlProcess.asp?action=saveEntry&fg=" & fg & ""	
			frmProcess1.submit

			'oXML.Open "GET", "xmlProcess.asp?action=saveEntry&Header=" & header & "&Body=" & body & "&fg=" & fg & "", False 
			'oXML.setRequestHeader "Content-Type", "application/form" 
		
			'oXML.Send 	
			
			'xmlString = Cstr(oXML.responseText) 
			'Set oXML = nothing 
			
			'dim objXML
			'set objXML = CreateObject("Microsoft.XMLDOM")
			'objXML.async = false
			'objXML.LoadXML xmlString			
			

			'if objXML.getElementsByTagName("field1")(0).firstChild.nodeValue = "OK" then
			
			'i = MsgBox("Baslik girildi. Onay bekliyor...",vbOKOnly+vbDefButton2+vbInformation, "Isvic.com")
			'document.getElementById("Header").value = ""
			'document.getElementById("Body").value = ""
			
			'else
			
			'	i = MsgBox("Bir hata oldu: " & vbcrlf &  objXML.getElementsByTagName("field1")(0).firstChild.nodeValue,vbOKOnly+vbDefButton2+vbInformation, "Isvic.com")
			
			'end if	
			
		end if		
	
	end sub
	
	function setText (str)
		
		'on error resume next
		
		setTextx = replace(str,"%5F","'")
		setTextx = replace(setTextx,"’","'")
		setTextx = replace(setTextx,"´","'")
		setTextx = replace(setTextx,"`","'")
		setTextx = replace(setTextx,"%6F",chr(34))	
		setTextx = replace(setTextx,"_7F","</a>")	
		setTextx = replace(setTextx,"_8F","+")	
		setTextx = replace(setTextx,"_9F","&")	
		setTextx = replace(setTextx,"‘","'")	
		
		setText = setTextx	
	
	end function	
	
	
	function showEntryRecord (idx)
	
		closeDisplayBox()
	
		dim asx, deb
		
		set asx = document.getElementById("entryRecord_" & idx)
		set deb = document.getElementById("displayEntryBox")
		set debbg = document.getElementById("displayEntryBox_bg")
		set hc = document.getElementById("headerContainer")	
			
		on error resume next
		if document.getElementById("idxContainer").value <> "" then
			
			document.getElementById("rowEntry_" & document.getElementById("idxContainer").value).style.backgroundColor = "#59626c"	
			
			if err then
			
				document.getElementById("rowComment_" & document.getElementById("idxContainer").value).style.backgroundColor = "#59626c"
				
			end if

		end if
		
		document.getElementById("rowEntry_" & idx).style.backgroundColor = "#d5018e"	

		randomize timer
		
		fg = int(rnd * 100000)	
		
		Set oXML = CreateObject("Msxml2.XMLHTTP")	
		
		oXML.Open "GET", "xmlProcess.asp?action=getEntryRecord&id=" & idx & "&fg=" & fg & "", False 
		oXML.setRequestHeader "Content-Type", "application/form" 
		oXML.Send 
		
		xmlString = Cstr(oXML.responseText) 
		Set oXML = nothing 
		
		dim objXML
		set objXML = CreateObject("Microsoft.XMLDOM")
		objXML.async = false
		objXML.LoadXML xmlString	

		deb.style.display = ""
		debbg.style.display = ""
		
		b = setText(objXML.getElementsByTagName("Body")(0).firstChild.nodeValue)
		
		b = replace(b,"%H5","<")
		b = replace(b,"%H6",">")
		
		b = replace(b,"%5F","'")
		b = replace(b,"’","'")
		b = replace(b,"%6F",chr(34))	
		b = replace(b,"_7F","</a>")	
		b = replace(b,"_8F","+")	
		b = replace(b,"_9F","&")
		b = replace(b,"<br>",vbcrlf)		
		
		strTxt = "<strong>" & setText(objXML.getElementsByTagName("Header")(0).firstChild.nodeValue) & "</strong>"
		strTxt = strTxt & "<br>--------------------------------------------------------------------------------------------------<br><br>"
		strTxt = strTxt & b

		document.getElementById("eBody").value =  b
		'hc.innerHTML = strTxt
		
		document.getElementById("idxContainer").value = objXML.getElementsByTagName("id")(0).firstChild.nodeValue
		
		currentTop =  replace(asx.style.top, "px", "")

		'newTop = int(currentTop + 45) & "px"
		newTop = "30px"
		newLeft = "575px"
		
		deb.style.top = newTop
		deb.style.left = newLeft
					
	end function
	
	function closeDisplayBox()
		
		on error resume next
		
		document.getElementById("displayEntryBox").style.display="none"
		document.getElementById("displayEntryBox_bg").style.display="none"
		document.getElementById("displayCommentBox").style.display="none"
		
		document.getElementById("rowComment_" & document.getElementById("idxContainer").value).style.backgroundColor = "#59626c"
		document.getElementById("rowEntry_" & document.getElementById("idxContainer").value).style.backgroundColor = "#59626c"

		document.getElementById("idxContainer").value = ""
	
	end function
	
	
	function recordProcess (typex)

		randomize timer
		
		fg = int(rnd * 100000)	
		
		
		frmAllow.action = "xmlProcess.asp?action=" & typex & "&id=" & document.getElementById("idxContainer").value & "&fg=" & fg & ""
		frmAllow.submit
		
		'Set oXML = CreateObject("Msxml2.XMLHTTP")	
		
		'oXML.Open "GET", "xmlProcess.asp?action=" & typex & "&id=" & document.getElementById("idxContainer").innerHTML & "&fg=" & fg & "", False 
		'oXML.setRequestHeader "Content-Type", "application/form" 
		'oXML.Send 
		
		'xmlString = Cstr(oXML.responseText) 
		'Set oXML = nothing 
		
		'dim objXML
		'set objXML = CreateObject("Microsoft.XMLDOM")
		'objXML.async = false
		'objXML.LoadXML xmlString	
			
		'if setText(objXML.getElementsByTagName("resultsx")(0).firstChild.nodeValue) = "ok" then
		
			'i = MsgBox("Isleminiz basariyla gerceklestirildi...",vbOKOnly+vbDefButton2+vbInformation, "Isvic.com")
			'closeDisplayBox()
			
		'else
		
			'i = MsgBox("Isteginiz yapilirken bir hata olustu. Lutfen daha sonra tekrar deneyin..." & vbcrlf & objXML.getElementsByTagName("resultsx")(0).firstChild.nodeValue,vbOKOnly+vbDefButton2+vbInformation, "Isvic.com")
			'closeDisplayBox()			
		
		'end if	

	
	end function
	
	
	function showCommentRecord (idx)
		
		closeDisplayBox()
		
		dim asx, deb
		
		set asx = document.getElementById("commentRecord_" & idx)
		set deb = document.getElementById("displayCommentBox")
		set debbg = document.getElementById("displayEntryBox_bg")
		set hc = document.getElementById("bodyContainer")	
		
		on error resume next
		if document.getElementById("idxContainer").value <> "" then
			
			document.getElementById("rowComment_" & document.getElementById("idxContainer").value).style.backgroundColor = "#59626c"	
			
			if err then
			
				document.getElementById("rowEntry_" & document.getElementById("idxContainer").value).style.backgroundColor = "#59626c"
				
			end if

		end if
		
		document.getElementById("rowComment_" & idx).style.backgroundColor = "#d5018e"			
		
		randomize timer
		
		fg = int(rnd * 100000)	
		
		Set oXML = CreateObject("Msxml2.XMLHTTP")	

		oXML.Open "GET", "xmlProcess.asp?action=getCommentRecord&id=" & idx & "&fg=" & fg & "", False 
		oXML.setRequestHeader "Content-Type", "application/form" 
		oXML.Send 
		
		xmlString = Cstr(oXML.responseText) 
		Set oXML = nothing 
		
		dim objXML
		set objXML = CreateObject("Microsoft.XMLDOM")
		objXML.async = false
		objXML.LoadXML xmlString	

		deb.style.display = ""
		debbg.style.display = ""
		
		b = setText(objXML.getElementsByTagName("Body")(0).firstChild.nodeValue)
		
		b = replace(b,"%H5","<")
		b = replace(b,"%H6",">")
		
		b = replace(b,"%5F","'")
		b = replace(b,"’","'")
		b = replace(b,"%6F",chr(34))	
		b = replace(b,"_7F","</a>")	
		b = replace(b,"_8F","+")	
		b = replace(b,"_9F","&")		
		
		strTxt = "Baslik: <strong>" & setText(objXML.getElementsByTagName("entryHeader")(0).firstChild.nodeValue) & "</strong>"
		strTxt = strTxt & "<br>--------------------------------------------------------------------------------------------------<br><br>"
		strTxt = strTxt & b
		
		'hc.innerHTML = strTxt
		document.getElementById("cBody").value =  b
		
		
		document.getElementById("idxContainer").value = objXML.getElementsByTagName("id")(0).firstChild.nodeValue
		
		currentTop =  replace(asx.style.top, "px", "")
		
		newTop = "30px"
		newLeft = "575px"
		
		deb.style.top = newTop
		deb.style.left = newLeft
			
	end function
	
	
	function getAllEntries ()

		document.getElementById("strSearch").value = "Tum basliklar"
		call searchEntry()
	
	end function
	
	sub saveUser(id)
	
		document.form1.action="xmlProcess.asp?action=saveUser&fg=" & fg
		document.form1.submit
	
		'if document.getElementById("pass").value <> "" then
	
			'randomize timer
			
			'fg = int(rnd * 100000)	
			
			'Set oXML = CreateObject("Msxml2.XMLHTTP")	
			
			'oXML.Open "GET", "xmlProcess.asp?action=saveUser&pass=" & document.getElementById("pass").value & "&email=" & document.getElementById("email").value & "&fg=" & fg & "", False 
			'oXML.setRequestHeader "Content-Type", "application/form" 
			'oXML.Send 
			
			'xmlString = Cstr(oXML.responseText) 
			'Set oXML = nothing 
			
			'dim objXML
			'set objXML = CreateObject("Microsoft.XMLDOM")
			'objXML.async = false
			'objXML.LoadXML xmlString
	
			'if objXML.getElementsByTagName("resultx")(0).firstChild.nodeValue = "ok" then	
			
				'i = MsgBox("Degisiklikler basariyla yapildi...",vbOKOnly+vbDefButton2+vbInformation, "Isvic.com")
				
			'else
			
				'i = MsgBox("Hata olustu:" & vbcrlf & objXML.getElementsByTagName("resultx")(0).firstChild.nodeValue,vbOKOnly+vbDefButton2+vbInformation, "Isvic.com")
				
			'end if
			
		'else
		
			'i = MsgBox("Sifreniz bos olamaz...",vbOKOnly+vbDefButton2+vbInformation, "Isvic.com")
		
		'end if

	
	end sub
	
	function changeSortType (typex)
	
		set sortType = document.getElementById("sortType")
		sortType.value = typex
		
		getAllEntries()
	
	end function
	
	function changeSortedPage (pagex)
		
		set currentPage = document.getElementById("currentPage")	
		currentPage.value = (pagex)
		
		getAllEntries()
	
	end function	
	
	
	
	sub getAllEntries()

		t = "a"
		
		randomize timer
		
		fg = int(rnd * 100000)	
		
		Set oXML = CreateObject("Msxml2.XMLHTTP")			
		
		set sortType = document.getElementById("sortType")
		set currentPage = document.getElementById("currentPage")	
		set counterx = document.getElementById("countxx")
		
		if currentPage.value > 0 then
			startPoint = (currentPage.value * 50)
		else
			startPoint = 0
		end if
		endPoint = (startPoint + 50)

		if counterx.value <> "" then
		
			if cint(endPoint) > cint(counterx.value) then
			
				endPoint = counterx.value
				
			end if		
			
		end if	

		
		ep = endPoint - startPoint

		oXML.Open "GET", "xmlProcess.asp?action=listEntries&startPoint=" & startPoint & "&endPoint=" & endPoint &"&strSearch=" & t & "&fg=" & fg & "&sortType=" & sortType.value & "", False 
		oXML.setRequestHeader "Content-Type", "application/form" 
		oXML.Send 
		
		xmlString = Cstr(oXML.responseText) 
		Set oXML = nothing 
		
		dim objXML
		set objXML = CreateObject("Microsoft.XMLDOM")
		objXML.async = false
		objXML.LoadXML xmlString
		
		if counterx.value = "" then
			counterx.value = objXML.getElementsByTagName("countx")(0).firstChild.nodeValue
		end if
	
		dim objx
					 
		xs = "<table width='302' border='0' cellpadding='0' cellspacing='0'>"
		
			  xs = xs & "<tr>"
			  xs = xs & "<td width='20'>&nbsp;</td>"
			  xs = xs & "<td width='282' class='Dark12GreyDefault'><strong>" & counterx.value &" baslik bulundu</strong></td>"	
			  xs = xs & "</tr>"		
		
		for j=0 to ep - 1
			
			headerx = replace(objXML.getElementsByTagName("Header")(j).firstChild.nodeValue, "%5F", "'")
			headerx = replace(headerx, "%6F", chr(34))
			headerx = replace(headerx, "%5f", "'")
			
			headerxx = replace(objXML.getElementsByTagName("Header")(j).firstChild.nodeValue, "%5F", "'")
			headerxx = replace(headerxx, "%6F", chr(34))
			headerxx = replace(headerxx, "%5f", "'")				
			
			if len(headerx) > 31 then
			  headerx = left(headerx, 31) & "..."
			end if	
			
			

			xs = xs & "<tr>"
			xs = xs & "<td width='20'>&nbsp;</td>"
			
			if objXML.getElementsByTagName("commentCount")(j).firstChild.nodeValue <> "0" then
			
				if sortType.value = "1" then
				
					xs = xs & "<td width='282' class='Dark12GreyDefault'><a href='Isvic_Sozluk.asp?" & createStringURL(setText(objXML.getElementsByTagName("Header")(j).firstChild.nodeValue), objXML.getElementsByTagName("id")(j).firstChild.nodeValue) & "' title='" & setText(headerxx) & "'>" & (j+1) + (currentPage.value * 50) & ") " & setText(headerx) & " (" & objXML.getElementsByTagName("commentCount")(j).firstChild.nodeValue & ")" & "</a></td>"
					
				else				
	
					xs = xs & "<td width='282' class='Dark12GreyDefault'><a href='Isvic_Sozluk.asp?" & createStringURL(setText(objXML.getElementsByTagName("Header")(j).firstChild.nodeValue), objXML.getElementsByTagName("id")(j).firstChild.nodeValue) & "' title='" & setText(headerxx) & "'><li>" & setText(headerx) & " (" & objXML.getElementsByTagName("commentCount")(j).firstChild.nodeValue & ")" & "</li></a></td>"
				end if
				
			else
			
				if sortType.value = "1" then
				
					xs = xs & "<td width='282' class='Dark12GreyDefault'><a href='Isvic_Sozluk.asp?" & createStringURL(setText(objXML.getElementsByTagName("Header")(j).firstChild.nodeValue), objXML.getElementsByTagName("id")(j).firstChild.nodeValue) & "' title='" & setText(headerxx) & "'>" & (j+1) + (currentPage.value * 50) & ") " & setText(headerx) & "</a></td>"
				
				else				
			
					xs = xs & "<td width='282' class='Dark12GreyDefault'><a href='Isvic_Sozluk.asp?" & createStringURL(setText(objXML.getElementsByTagName("Header")(j).firstChild.nodeValue), objXML.getElementsByTagName("id")(j).firstChild.nodeValue) & "' title='" & setText(headerxx) & "'><li>" & setText(headerx) & "</li></a></td>"
				
				end if
				
			end if
			xs = xs & "</tr>"  	
		
		next	
		
		xs = xs & "</table>"
		
		document.getElementById("content_container_3").innerHTML = xs		
	
	end sub
	
	function deleteThisEntry (idx, action)
	
		i = MsgBox("Bu basligi yayindan kaldirmak istiyor musunuz?",vbYesNo+vbDefButton2+vbQuestion, "Isvic.com")

		if i = 6 then
			
			randomize timer
			
			fg = int(rnd * 100000)	
			
			Set oXML = CreateObject("Msxml2.XMLHTTP")	
			
			oXML.Open "GET", "xmlProcess.asp?action=removeRecord&rtype=" & action & "&id=" & idx & "&fg=" & fg & "", False 
			oXML.setRequestHeader "Content-Type", "application/form" 
			oXML.Send 
			
			xmlString = Cstr(oXML.responseText) 
			Set oXML = nothing 
			
			dim objXML
			set objXML = CreateObject("Microsoft.XMLDOM")
			objXML.async = false
			objXML.LoadXML xmlString	
			
			if objXML.getElementsByTagName("resultx")(0).firstChild.nodeValue = "ok" then	
			
				i = MsgBox("Bu baslik veya yorum yayindan kaldirildi. Sayfayi yenilediginizde bu baslik veya yorum gitmis olacak...",vbOKOnly+vbDefButton2+vbInformation, "Isvic.com")
				
			else
			
				i = MsgBox("Hata olustu:" & vbcrlf & objXML.getElementsByTagName("resultx")(0).firstChild.nodeValue,vbOKOnly+vbDefButton2+vbInformation, "Isvic.com")
				
			end if					
		
		end if
	
	end function