sub sendurl_onclick
	submitform
end sub
   
  sub submitform
	dim urltitle,urllink,urlfewwords
	urltitle = document.forms ("send").item ("urltitle").value
	urllink= document.forms ("send").item ("urllink").value
	urlfewwords=document.forms ("send").item ("urlfewwords").value
	urlcat_id=document.forms ("send").item ("urlcat_id").value
    country=document.forms ("send").item ("country").value 
	 
 
 
	if trim(urltitle) ="" then window.alert"اسم الموقع قصير "  : exit sub 
	if trim(urlfewwords) ="" then window.alert"وصف الموقع قصير "  : exit sub 
	if trim(urllink) = "" then window.alert"رابط الموقع خطأ "  : exit sub 
    	if len(urllink) < 16 then window.alert (" رابط الموقع خطأ"  & urllink )    : exit sub 
    if len(urlfewwords) > 250 then  window.alert("وصف الموقع كبير جدا " ) : exit sub 
	 if  trim(urlcat_id) ="" then window.alert" يجب اختيار تصنيف مناسب للموقع"  : exit sub 
       if trim(country) = "NOP" then window.alert" يجب اختيار بلد صاحب الموقع"  : exit sub     


	send.submit
end sub
Function bval(ByRef xstr )
bval = val(xstr) 
end function 
function textCounter(field, countfield, maxlimit)  
alert "dsfsdF" 
if  field.value.length > maxlimit then 
field.value = field.value.substring(0, maxlimit) 
else 
countfield.value = maxlimit - field.value.length 
end if
End function