dim URL
'if instr(1,UCASE(location.href),"ASP",1)<>0 or instr(1,UCASE(location.href),"ASPX",1)<>0 or instr(1,UCASE(location.href),"PHP",1)<>0 then
'	URL=replace(location.href,"aspx","URL")
'	URL=replace(URL,"asp","URL")
'	URL=replace(URL,"php","URL")
'	URL=replace(URL,"jsp","URL")
'	URL=replace(URL,"/URL.","/www.")
'elseif instr(1,UCASE(location.href),"JSP",1)<>0 then
'	URL=replace(location.href,"jsp","URL")
'	URL=replace(URL,"php.","www.")
'else
'	URL=location.href&"index.URL"
'end if


	URL=replace(location.href,".aspx",".URL")
	URL=replace(URL,".asp",".URL")
	URL=replace(URL,".php",".URL")
	URL=replace(URL,".jsp",".URL")


document.write "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a title='تور بېكىتىمىزنى asp دا يېزىلغان كود بىلەن كۆرۈڭ' class='M' href="
document.write replace(URL,"URL","asp")
document.write ">ASP</a>"'<a class='M' href="
'document.write replace(URL,"URL","aspx")
'document.write ">ASPX</a>
document.write "<a title='تور بېكىتىمىزنى php دا يېزىلغان كود بىلەن كۆرۈڭ'  class='M' href="
document.write replace(URL,"URL","php")
document.write ">PHP</a>"
document.write "<a  title='تور بېكىتىمىزنى jsp دا يېزىلغان كود بىلەن كۆرۈڭ' class='M' href="

	document.write replace(replace(replace(URL,"URL","jsp"),"//n","//php.n"),"www.","php.")

document.write ">JSP</a>"