==Gabungan ASP dan SQL Server==
<html>
<head>
<title>seleksi aplikan berdasarkan jurusan</title>
</head>
<body>
<p>seleksi data aplikan berdasarkan jurusan</p>
<form method="post" action="lapor5.asp">
<table border="0"cellpadding="0"cellspacing="0" style="border-collapse:collapse" bordercolor="#111111" width="60%">
<tr>
<td width="29%">jurusan</td>
<td width="71%"><select size="1" name="kode">
<option value="p001">business administration</option>
<option value="p002">sekretaris</option>
<option value="p003">komputer akutansi</option>
<option value="p004">informatika komputer</option>
<option value="p005">tour travel bussiness</option>
<option value="p006">office management</option>
</select></td>
</tr>
</table>
<p><input type="submit" value="submit" name="B1">
<input type="reset" value="reset" name="B2"></p>
</form>
<p> </p>
</body>
</html>
===Folder k2===
<html>
<head>
<title>menampilkan data tertentu</title>
</head>
<body>
<%
dim cn,rs,rsj
set cn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
set rsj=Server.CreateObject("ADODB.Recordset")
konek="DRIVER={SQL SERVER};SERVER=USER-PC;UID=sa;"
konek=konek & "PWD=admin;DATABASE=profesi"
cn.Open konek
Mysql="select * from dbo_aplikan Where kode='"
Mysql=Mysql & request.form("kode")&"'"
Mysql1="select * from dbo_jurusan Where kode='"
Mysql1=Mysql1 & request.form("kode")&"'"
rs.Open mysql,cn
rsj.Open mysql1,cn
if rs.eof or bof then
response.write "tidak ada data untuk jurusan" & rsj("jurusan")
response.end
end if
%>
<p><font size="4">daftar aplikan<br>
jurusan <%=rsj("jurusan")%></font></p>
<table border="1" cellpadding="0" cellspacing="0"
style="border-collapse: collapse" bordercolor="#111111"
width="61%">
<tr>
<td width="8%"><font size="2"> No.</font></td>
<td width="41%">
<p align=center"><font size="2"> Nama aplikan</font></td>
<td width="26%"><font size="2"> tempat lahir</font></td>
<td width="25%"><font size="2"> tanggal lahir</font></td>
</tr>
<%
n=0
do while not rs.eof
n=n+1
%>
<tr>
<td width="8%"> <%=n%></td>
<td width="41%"> <%=rs("Namaaplikan")%></td>
<td width="26%"> <%=rs("tempatlahir")%></td>
<td width="25%"> <%=rs("tanggallahir")%></td>
</tr>
<%
rs.movenext
loop
rs.close
rsj.close
cn.close
set rs=nothing
set rsj=nothing
set cn=nothing
%>
</table>
</body>
</html>
Tidak ada komentar:
Posting Komentar