Home

<html>
<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”
else
objform.submit
End if
end sub
</script>
</head>

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

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

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