JAVASCRIPT
function cari(){
nama = document.semakPelForm.semakNamaPel.value;
resit = document.semakPelForm.semakResitPel.value;
if ( nama =="" || resit =="")
alert(" !!Nama Syarikat dan No.Resit tidak boleh kosong!! ");
else
top.location.href("cariSemakanPelanggan.asp")
}
cariSemakanPelanggan.asp
<%
strODBC = "Driver={MySQL};" & _
"Server=localhost;" & _
"Database=sistemkewangan;" & _
"Uid=root;" & _
"Pwd=;"
%>
<%
nama = request.form("semakNamaPel")
resit = request.form("semakResitPel")
%>
<%
set rst = Server.CreateObject("ADODB.Connection")
rst.open strODBC
sql = "SELECT pelNama, pelDate, pelStat, pelSeb, pelResit, pelPTerima,
pelTerima from b_pelanggan WHERE pelNama = '" & nama & "' AND pelResit =
'" & resit & "'"
Set rsVI = rst.Execute(sql)
if rsVI.eof then
response.write "<script language=JavaScript>"
response.write "alert('Tiada Rekod Anda!!');"
response.write "location.replace('SemakanPelanggan.asp');"
response.write "</script>"
Else
pelNama = rsVI("pelNama")
pelDate = rsVI("pelDate")
pelResit = rsVI("pelResit")
pelPTerima = rsVI("pelPTerima")
pelTerima = rsVI("pelTerima")
end if
%>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<table width="100%" border="1">
<tr>
<td width="18%"><div align="center"><strong><font size="2"
face="Arial, Helvetica, sans-serif">NAMA</font></strong></div></td>
<td width="13%"><div align="center"><strong><font size="2"
face="Arial, Helvetica, sans-serif">NO.RESIT</font></strong></div></td>
<td width="12%"><div align="center"><strong><font size="2"
face="Arial, Helvetica, sans-serif">TARIKH</font></strong></div></td>
<td width="29%"><div align="center"><strong><font size="2"
face="Arial, Helvetica, sans-serif">AMAUN
PERLU DIBAYAR</font></strong></div></td>
<td width="28%"><div align="center"><strong><font size="2"
face="Arial, Helvetica, sans-serif">AMAUN
TELAH DIBAYAR</font></strong></div></td>
</tr>
<%
Do While Not rsVI.EOF
%>
<tr>
<td width="18%" height="23">
<div align="center"><strong><font size="2" face="Arial, Helvetica,
sans-serif"><%=rsVI("pelNama")%></font></strong></div></td>
<td width="13%"><div align="center"><strong><font size="2"
face="Arial, Helvetica,
sans-serif"><%=rsVI("pelResit")%></font></strong></div></td>
<td width="12%"><div align="center"><strong><font size="2"
face="Arial, Helvetica,
sans-serif"><%=rsVI("pelDate")%></font></strong></div></td>
<td width="29%"><div align="center"><strong><font size="2"
face="Arial, Helvetica, sans-serif"><%=rsVI("pelPTerima")%>
</font></strong></div></td>
<td width="28%"><div align="center"><strong><font size="2"
face="Arial, Helvetica, sans-serif"><%=rsVI("pelTerima")%>
</font></strong></div></td>
rsVI.MoveNext
Loop
%>
</table>
<%
Set rsVI = Nothing
Set rst = Nothing
%>
</body>
</html>
Only JavaScript response when i didnt filter anything nut when i filter
in textbox, there was no response at all.HOW?
*** Sent via Developersdex http://www.developersdex.com ***
