Make your own free website on Tripod.com
<% Select case Request("valstatus") case "1" status = "Lajang/Single sedang mencari" case "2" status = "Lajang/Single tidak sedang mencari" case "3" status = "Belum Menikah tapi sudah Tunangan" case "4" status = "Sudah Menikah" case "5" status = "Duda/Janda sedang mencari" case "6" status = "Duda/Janda tidak sedang mencari" case "7" status = "Menikah, Dalam Proses Cerai" end select %>
"> ">
Formulir Konfirmasi
Periksa kembali isian formulir anda, bila ada kesalahan, tekan tombol kembali !

Nama : <%=Request("nama")%>
alamat : <%=Request("alamat")%>
status : <%=status%>

<% end sub '+++++++++++++++++Masukkan ke database, informasi dari pendaftar++++++++++++++++++++ Sub AddRecord() %>
Nama : <% Response.write Request("nama") %>
alamat :<% Response.write Request("alamat") %>
status :<% Response.write Request("status") %>
<% MyQuery = "INSERT INTO data (nama, alamat, status) " _ & "VALUES ('" & Request("nama") & "','" _ & Request("alamat") & "','"_ & Request("status") & "')" response.write MyQuery Set MyRst = Conn2.Execute(MyQuery) %>

Hello <%=request("nama")%>,

Anda telah terdaftar dalam database kami

Klik disini untuk melihat data <% end sub '++++++++++++++++++++++++++++Selesai +++++++++++++++++++++++++++++-++ '|Tutorial oleh Kukuh TW (kukuhtw@cbn.net.id,kukuhtw@geocities.com | '|MMIS - Angk.12 Binus | '|Prog. Inspired by Awiyanto Ajisasongko (wyantz@lintasarta.co.id) | '|Karya Asta Ultramedia Programming Team | '|www.ultramedia.co.id | '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ %>