<%
sehir=guvenlik(Request("sehir"))
if sehir="" or sehir="0" then
sehir=1
else
sehir=guvenlik(Request("sehir"))
end if
if Request("gonder")<>"" and Request("sifre")<>"" and Request("eposta")<>"" then
function guvenlik(genel )
genel = Replace (genel ,"<","",1,-1,1 )
genel = Replace (genel ,"=","",1,-1,1 )
genel = Replace (genel ,"$","",1,-1,1 )
genel = Replace (genel ,">","",1,-1,1 )
genel = Replace (genel ,"%","",1,-1,1 )
genel = Replace (genel ,"'","",1,-1,1 )
guvenlik=genel
end function
kullaniciadi=guvenlik(Trim(Request("kullaniciadi")))
sifre=guvenlik(Trim(Request("sifre")))
eposta=guvenlik(Request("eposta"))
epostatekrar=guvenlik(Request("epostatekrar"))
bilgieposta=guvenlik(Request("bilgieposta"))
sifretekrar=guvenlik(Trim(Request("sifretekrar")))
guvenliksorusu=guvenlik(Trim(Request("guvenliksorusu")))
cevap=guvenlik(Trim(Request("cevap")))
adi=guvenlik(Request("adi"))
soyadi=guvenlik(Request("soyadi"))
sirketadi=guvenlik(Request("sirketadi"))
adres=guvenlik(Request("adres"))
vergidaresi=guvenlik(Request("vergidaresi"))
vergino=guvenlik(Request("vergino"))
tcno=guvenlik(Request("tcno"))
postakodu=guvenlik(Trim(Request("postakodu")))
ulkeadi=guvenlik(Request("ulkeadi"))
telefon=guvenlik(Request("telefon"))
fax=guvenlik(Request("fax"))
Sql="Select * From ONLINE_UYE_MYUCS where PASSWORD='"&sifre&"' and EMAIL='"&eposta&"'"
set rs=conn.execute(Sql)
Sql1="Select * From ONLINE_UYE_MYUCS where EMAIL='"&eposta&"'"
set rs1=conn.execute(Sql1)
Sql2="Select * From ONLINE_UYE_MYUCS where PASSWORD='"&sifre&"'"
set rs2=conn.execute(Sql2)
if not rs.eof Then
%>
<%
end if
if not rs1.eof Then
%>
<%
end if
Function dbDate(dt)
dbDate = year(dt) & right("0" & month(dt), 2) &_
right("0" & day(dt),2) & " " & formatdatetime(dt,4)
End Function
if rs.eof then
Sqlm="Select UYE_KODU from ONLINE_UYE_MYUCS"
set rsm=Conn.execute(sqlm)
if rsm.eof then
sayacno=1
else
Sqlm="Select max(UYE_KODU)+1 from ONLINE_UYE_MYUCS rowlock"
set rsm=Conn.execute(sqlm)
sayacno=rsm(0)
end if
abonekodu="000"
sqlr="insert into ONLINE_UYE_MYUCS (UYE_KODU,ADI,SOYADI,FIRMA_UNVANI,ADRES,SEHIR_KODU,TEL,FAX,EMAIL,TARIH,PASSWORD,POSTA_KODU,ABONE_NO,EMAIL1,VERGI_DAIRESI,VERGI_NO,TCNO) values ("&sayacno&",'"&adi&"','"&soyadi&"','"&sirketadi&"','"&adres&"',"&sehir&",'"&telefon&"','"&fax&"','"&eposta&"','"&dbDate(date)&"','"&sifre&"','"&postakodu&"','"&abonekodu&"','"&bilgieposta&"','"&vergidaresi&"','"&vergino&"','"&tcno&"')"
Set rsr=Conn.execute(sqlr)
%>
<%
end if
end if
%>