<head><title> Buku Tamu </title>
<!–by Universitas Respati –>
<!– Agus Briyan TI – Malam –>

<script language=”vbscript”>
sub btnsubmit_onclick
dim objform
set objform = Document.frmtamu
if objform.txtnama.value = “” or objform.txtemail.value = “” then
msgbox “Maaf Anda belum mengisi nama anda” & chr(13) & “dan atau alamat email anda dengan benar, Silahkan coba lagi”
End if
end sub

<font face =”calibri” size=9 color=blue> BUKU TAMU </font>

<form Name=”frmtamu” action=”thankyou.asp” method=”post”>
<table align=center>
Nama : <input type=text Name=txtnama> <br>
Email : <input type=text Name=txtemail> <br>
Komentar :
<Textarea Name=txtcoment rows =10 cols=30> </textarea>
<Input type=Button Value=Submit name=btnsubmit>
<Input type=reset>


Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s