asp

Contoh dari asp
Gaji.asp

(body)
(form method="post" name="FormGaji" action="Proses.Asp" >
Nama :

Golongan:

(input type="radio" name="gol" value="1">
(% if instr(gol,"1") then response.write("checked")%> 1

(input type="radio" name="gol" value="2">
(% if instr(gol,"2") then response.write("checked")%> 2

(input type="radio" name="gol" value="3">
(% if instr(gol,"3") then response.write("checked")%> 3

Status :

(input type="radio" name="Stat" value="Menikah">
(% if instr(stat,"Menikah") then response.write("checked")%> Menikah

(input type="radio" name="Stat" value="Belum Menikah">
(% if instr(stat,"Belum Menikah") then response.write("checked")%> Belum Menikah

(input type="hidden" value="New" Name="input">
(input type="submit" value="Submit">
(/form>






Proses.asp

(head>
(title>Data Karyawan
(/head>
(body>
(form method="get" name="FormGaji" action="gaji.asp">


<%
Dim GajiBer, potongan, tunjangan
if request.querystring ("gol")="1" and ("Stat")="Menikah" then
potongan=500000
tunjangan=1000000
gaji=2000000
else if request.querystring("gol")="1" and ("Stat")="Belum Menikah" then
potongan=300000
tunjangan=500000
gaji=2000000
else if request.querystring("gol")="2" and ("Stat")="Menikah" then
potongan=1000000
tunjangan=1500000
gaji=4000000
else if request.querystring("gol")="2" and ("Stat")="Belum Menikah" then
potongan=700000
tunjangan=1200000
gaji=4000000
else if request.querystring("gol")="3" and ("Stat")="Menikah" then
potongan=1300000
tunjangan=2000000
gaji=6000000
else
potongan=1000000
tunjangan=1500000
gaji=6000000
end if
end if
end if
end if
end if
gajiber=gaji+tunjangan-potongan
%>

Nama : <% Request.Querystring ("nama")%>

Golongan: <% request.Querystring("Gol")%>

Status : <% request.QueryString("Stat")%>

<%
request.write<"Gaji Bersih = " & gajiber>
%>