if sætning

Hej Alle

Jeg vil gerne have, at når en bruger udfylder formularen og den indsættes i db'en uden fejl... så skal der står noget med at nu er jeres post tilføjet bla bla..

hvad skal der tilføjes til denne kode ?

<%
Set Sur = Server.CreateObject("ADODB.Connection")
Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/db/database.mdb")

islem = Request.QueryString("islem")

if islem="ekle" then
call ekle
else
end if
%>


<%sub ekle
Set Sur = Server.CreateObject("ADODB.Connection")
Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/db/database.mdb")

Set gir = server. CreateObject("ADODB.Recordset")
kayit = "Select * from site_uye"
gir.Open kayit,sur,1,3

Dim isim_soyad, nickname, pwd, email, yer, meslek

ad = request.form("isim_soyad")
nickname = request.form("nickname")
pwd = request.form("pwd")
email = request.form("email")
yer = request.form("yer")
meslek = request.form("meslek")


if ad="" or nickname="" or pwd="" or email="" or yer="" or meslek ="" then
Response.Write "<center>Lütfen tüm alanlari doldurunuz...</center>"
'Response.End

else
gir.AddNew
gir("isim_soyad") = ad
gir("nickname") = nickname
gir("pwd") = pwd
gir("email") = email
gir("yer") = yer
gir("meslek") = meslek
gir.Update

%>

<%
end if
end sub
%>