Display Recordset MYSQL

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 ""
Else
pelNama = rsVI("pelNama")
pelDate = rsVI("pelDate")
pelResit = rsVI("pelResit")
pelPTerima = rsVI("pelPTerima")
pelTerima = rsVI("pelTerima")
end if

%>