%
Subjc = request.querystring("Subj")
PropertyID = request.querystring("projID")
'--------------------
Dim ProID
Dim AdoCon
Dim RsProject
Dim SQLProj
Dim RsPrc
Dim SQLPrc
'--------Get The Project Name---------------------------------
ProID = request.querystring("projID")
%>