| <%
set bag = Server.CreateObject("adodb.connection")
bag.open = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("db.mdb")
%>
<%
kadi=Request.Form("kadi")
sifre=Request.Form("sifre")
sifre2=Request.Form("sifre2")
mail=Request.Form("mail")
adres=Request.Form("adres")
sehir=Request.Form("sehir")
ulke=Request.Form("ulke")
%>
<%
if sifre="" or sifre2="" or sifre<>sifre2 then
%>
<%
response.end
end if
%>
<%
if instr(mail,"@") = 0 then
%>
<%
response.end
end if
%>
<%
if adres="" then
%>
<%
response.end
end if
%>
<%
if sehir="" then
%>
<%
response.end
end if
%>
<%
if ulke="" then
%>
<%
response.end
end if
%>
<%
set mahir = Server.CreateObject("ADODB.Recordset")
mahir.open "SELECT * FROM uye WHERE kadi = '"&session("kadi")&"'",bag,1,3
if not mahir.eof then
%>
<%
mahir("sifre")=sifre
mahir("mail")=mail
mahir("adres")=adres
mahir("sehir")=sehir
mahir("ulke")=ulke
mahir.update
response.redirect "default.asp"
else
response.redirect "default.asp"
end if
%> |
|
 |
|
