Thomas IPT: Membuat Buku Tamu

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">

</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 "Ada kesalahan isi form: " & chr(13) & kesalahan
Else
    frmInput.submit
End if
End Sub

Thomas IPT

Membuat Buku Tamu

No comments:

Post a Comment