<%
If Request.Form("Action") = "SendData" Then
If security(Trim(Request.Form("AdiSoyadi"))) = "" Then
Response.Write "
Lütfen Adınızı Soyadınızı Yazınız
"
Response.Write ""
Response.End
End If
If security(Trim(Request.Form("Telefon"))) = "" Then
Response.Write "
Lütfen Telefon Numarasını Yazınız
"
Response.Write ""
Response.End
End If
If security(Trim(Request.Form("Meslek"))) = "" Then
Response.Write "
Lütfen Mesleğinizi Yazınız
"
Response.Write ""
Response.End
End If
Set ObjAdd = CreateObject("ADODB.Recordset")
ObjAdd.Open "TelefonRehber", tacer, 1,3
ObjAdd.AddNew
ObjAdd("AdiSoyadi") = security(Trim(Request("AdiSoyadi")))
ObjAdd("Telefon") = security(Trim(Request("Telefon")))
ObjAdd("meslek") = security(Trim(Request("meslek")))
ObjAdd("Tarih") = now()
ObjAdd.Update
ObjAdd.Close()
Set ObjAdd = Nothing
Response.Write "
Rehber Kaydınız başarıyla Gönderilmiştir.
"
Response.Write ""
Response.End
End If
%>
KÖY TELEFON REHBERİ
<%if request("ver")="" then
Set rehber=tacer.execute("Select * from TelefonRehber")
%>
Düğün Organizayon Rehberi
<%
if rehber.eof then
%>
<%else
do while not rehber.eof%> <%rehber.movenext:Loop
rehber.close:Set rehber=nothing
end if
%>
<%end if%>
<%if request("ver")="kayitform" then %>
<%
if session("uye_id")="" then
With Response
.Write""
End With
end if
%>
<%end if%>
<%if request("ver")="aramasonuc" then%>
<%
if request.Form("ara")="" then
Response.write "aranacak kelimeyi yazmamışsınız "%>