Membuat Buku Tamu
Membuat
buku tamu bukanlah hal yang sulit.
Yang kita pelajari dalam Bab ini
adalah:
1. Membuat formulir isian buku tamu
2. Menulis isian ke
daabase/basis data MS-Access
3. Menampilkan Daftar tamu
1.
Membuat formulir isian buku tamu
Pada bab VII. WEB dinamic
sebenarnya kita sudah membuat form isian yang sekaligus di validasi pada waktu
hendak mengirimkan data ke Server.
Dibawah inilah kode HTML untuk
membuat form buku tamu:
<HTML>
<HEAD>
<BODY>
<H1><FONT face="Courier New">Isi
Buku Tamu</FONT> </H1>
<FONT face="Courier
New">
<FORM
name="frmInput" metodhe="post"
action=
"TulisDataKeDB.asp"><BR>
Nama <input name="txtNama">
<BR>
Email <input name="txtEmail">
<BR>
<BR>
Komentar:
<BR><TEXTAREA name=txtKomentar rows=10
cols=60></TEXTAREA>
<br>
<input type="button" value="OK"
name="btnSubmit">
<input type="reset" value="Batal"
name="btnReset">
<BR>
</form>
</FONT>
<script
LANGUAGE="VBScript">
<!--
Sub btnSubmit_OnClick
dim kesalahan
dim objForm
if frmInput.txtNama.value = ""
then
kesalahan=chr(13) &
"Nama harus di isi"
end if
if instr(frmInput.txtEmail.value,"@")=0
then
kesalahan=kesalahan &
chr(13) & "Alamat email harus memiliki tanda @"
end if
If frmInput.txtKomentar.value=""
then
kesalahan=kesalahan & chr(13) & "Tolong Isi
Komentar..."
end if
if kesalahan <> ""
then
Alert
"
Else
frmInput.submit
End if
End Sub
sub btnReset_OnClick
frmInput.txtNama.value = ""
frmInput.txtEmail.value = ""
frmInput.txtKomentar.value = ""
end sub
-->
</script>
</BODY>
</HTML>
Bila dibuka dengan
Browser (cth: Internet explorer), maka hasilnya
terlihat seperti di bawah
ini:
Selanjutnya
jika anda tidak mengisi apa-apa dalam kotan teks isian, lalu anda meng-klik
tombol
ok, maka akan muncul layar seperti di bawah ini:
coba perhatikan
kotak teks/text box yang mucul dengan peringatan.
Ini dihasilkan dari
kode di bawah ini:
<script
LANGUAGE="VBScript">
<!--
Sub btnSubmit_OnClick
dim kesalahan
dim objForm
if frmInput.txtNama.value = ""
then
kesalahan=chr(13) &
"Nama harus di isi"
end if
if instr(frmInput.txtEmail.value,"@")=0
then
kesalahan=kesalahan &
chr(13) & "Alamat email harus memiliki tanda @"
end if
If frmInput.txtKomentar.value=""
then
kesalahan=kesalahan & chr(13) & "Tolong Isi
Komentar..."
end if
if kesalahan <> ""
then
Alert
"
Else
frmInput.submit
End if
End Sub
Kembali
Lanjut
Daftar
Isi