İnşaat İşçilik Hesaplama
<%
islem=request.querystring("islem")
if islem=1 then
birim=request.form("birim")
iscilikorani=request.form("iscilikorani")
toplamm=request.form("toplamm")
primorani=request.form("primorani")
'set vt=server.createobject("adodb.connection")
'vt.open "provider=microsoft.jet.oledb.4.0;data source="&server.mappath("../../../../private/data/isci.mdb")
'set rs=server.createobject("adodb.recordset")
'sqlkod="select * from iscitablo"
'rs.open sqlkod,vt,1,3
'rs.addnew
'rs("birim")=birim
'rs("oran")=iscilikorani
'rs("tmetre")=toplamm
'rs("poran")=primorani
'rs.update
if (birim="") then birim=0 end if
if (iscilikorani="") then iscilikorani=0 end if
if (toplamm="") then toplamm=0 end if
if (primorani="") then primorani=0 end if
Toplammaliyet=birim*toplamm
Netoran=iscilikorani-(iscilikorani*0.25)
SSKMatrahi=(toplammaliyet*netoran)/100
Odenecek=(sskmatrahi*primorani)/1000
end if
function ytl(ucret)
ytl=left(formatcurrency(ucret),len(formatcurrency(ucret))-3)
end function
%>