<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")
konek="DRIVER={SQL SERVER};SERVER=USER-PC;UID=sa;"
konek=konek & "PWD=admin;DATABASE=profesi"
cn.Open konek
rs.Open "dbo_jurusan",cn
%>
<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">
<%
do while not rs.eof
%>
<option value="<%=rs("kode")%>"><%=rs("jurusan")%></option>
<%
rs.movenext
loop
rs.close
cn.close
set rs=nothing
set cn=nothing
%>
</select></td>
</tr>
</table>
<p><input type="submit" value="submit" name="B1">
<input type="reset" value="reset" name="B2"></p>
</table>
</body>
</html>
Tidak ada komentar:
Posting Komentar