' VB Script Document
function cProj()
	tDate = Date()	
	if newProj.t2.value = "" Then
		alert("Please Enter Project Title")
		newProj.t2.focus
		exit function
	elseif newProj.t3.value = "" Then
		alert("Please Enter Project Description")
		newProj.t3.focus
		exit function
	elseif newProj.t5.value="0" Then
		alert("Please Select Number of Days")
		newProj.t5.focus
		exit function
	elseif newProj.t6.value = "0" Then
		alert("Please Select Budget")
		newProj.t6.focus
		exit function
	elseif newProj.t9.value = "" Then
		alert("Please Select Specification")
		newProj.t9.focus
		exit function
	else
		newProj.submit	
	end if	
end function
'--------------------
	sub window_onload()
	end sub
	Sub GetDate(objMe)
		strThisElement = objMe.getattribute("IndexVal")
		retVal = window.showModalDialog ("include/calendar/calDraw1.asp?Locale=Set",,"dialogWidth:248px;dialogHeight:225px;status: no;unadorned: yes;help: no;scroll:no")
		If retVal <> "" Then
			document.all(strThisElement).value = retVal
		End If		
	End Sub
	'------------Checking COntact Us form
	function cCheck()	
	if frmContact.t1.value = "" Then
		alert("Please Enter First Name")
		frmContact.t1.focus
		exit function
	elseif frmContact.t2.value = "" Then
		alert("Please Enter Last Name")
		frmContact.t2.focus
		exit function
	elseif frmContact.t3.value = "" Then
		alert("Please Enter Email")
		frmContact.t3.focus
		exit function
	elseif not((instr(frmContact.t3.value,"@") > 0) and (instr(frmContact.t3.value,".")>0) and (len(frmContact.t3.value)>5)) then
	alert("Please Enter valid email address")
	frmContact.t3.focus
	exit function
	elseif frmContact.t5.value = "" Then
		alert("Please Enter Subject")
		frmContact.t5.focus
		exit function
	elseif frmContact.t6.value = "" Then
		alert("Please Enter Message")
		frmContact.t6.focus
		exit function
	else
		frmContact.submit	
	end if	
end function
	'------------End Checking Contact us form
function cbid()
	if newBid.t3.value = "" Then
		alert("please Enter Description")
		newBid.t3.focus
		exit function
	elseif not isNumeric(newBid.t5.value) Then
		alert("Please Enter Valid Cost")
		newBid.t5.focus
		exit function
	elseif not isNumeric(newBid.t6.value) Then
		alert("Please Enter Valid Number of Days")
		newBid.t6.focus
		exit function
	else
		newBid.submit
	end if
end function

function PromptMsg()
	dim ans
	ans = msgBox("Are you sure! you are selected right provider",1,"Confirmation")
	IF ans = 1 Then
		frmProve.submit
	End IF
end function