<% Response.Buffer=True %> <% action= request.querystring("action") if action="uyekayit" then uyekayit () else form () end if %> <% sub uyekayit ad =request.form ("ad") cinsiyet =request.form ("cinsiyet") mail =request.form ("mail") yas =request.form ("yas") ulke =request.form ("ulke") Set kayit = Server.CreateObject("ADODB.RecordSet") SQL = "Select * from uyeler " kayit.open SQL,bagdata,1,3 kayit.addnew kayit("name")=ad kayit("mail")=mail kayit("age")=yas kayit("country")=ulke kayit("gender")=cinsiyet kayit.update kayit.close set kayit=nothing response.redirect "maincizgi.htm" end sub %> Rhdergi <%sub form%>

İsim / Name :

a
E-mail: a
Cinsiyet:
erkek / male
hatun / female
Yaş / Age:
Ülke / Country: a
 

 
<%end sub%>