<% if request("I")="kontrol" then Set rs = Server.CreateObject("ADODB.Recordset") sor= "Select * from tbl_firma where durum=4 and telefon1='" & guvenlik(request("kadi")) & "' and sifre='" & guvenlik(request("sifre")) & "' and pasif=0" rs.Open sor,baglan,1,3 if rs.eof then '-------------- PLASİYER GİRİŞİ Mİ ? ------------------- Set rs = Server.CreateObject("ADODB.Recordset") sor= "Select * from tbl_firmayetkili where telefon='" & guvenlik(request("kadi")) & "' and sifre='" & guvenlik(request("sifre")) & "'" rs.Open sor,baglan,1,3 if rs.eof then '-------------- FİRMA GİRİŞİ Mİ ? ---------------------- Set rs = Server.CreateObject("ADODB.Recordset") sor= "Select * from tbl_firma where durum<>4 and (telefon1='" & guvenlik(request("kadi")) & "' or kod='" & guvenlik(request("kadi")) & "') and sifre='" & guvenlik(request("sifre")) & "' and pasif=0" rs.Open sor,baglan,1,3 if rs.eof then %> <% else session("kadi")=rs("firmaad") session("adsoyad")=rs("firmaad") session("firmaID")=rs("id") session("userID")=rs("id") session("yetki")=0 session("giris")="Evet" session("Tur")=0 response.Redirect("default.asp") end if '------------------------------------------------------- %> <% else Set rscc = Server.CreateObject("ADODB.Recordset") sor= "Select * from tbl_firma where id="& rs("firmaID") rscc.Open sor,baglan,1,3 session("kadi")=rs("adsoyad") session("adsoyad")=rs("adsoyad") session("firmaad")=rscc("firmaad") session("firmaID")=rs("firmaID") session("userID")=rs("id") session("yetki")=0 session("giris")="Evet" session("Tur")=request("kim") response.Redirect("default.asp") end if '------------------------------------------------------- %> <% else if rs("tel1")="1" then session("kadi")=rs("firmaad") session("adsoyad")=rs("firmaad") session("firmaID")=rs("servisfirmaID") session("firmaad")=rs("firmaad") session("userID")=rs("id") session("yetki")=1 session("giris")="Evet" session("Tur")=4 response.Redirect("default.asp") elseif rs("tel1")="3" then session("kadi")=rs("firmaad") session("adsoyad")=rs("firmaad") session("firmaad")=rs("firmaad") session("firmaID")=rs("servisfirmaID") session("userID")=rs("id") session("yetki")=1 session("giris")="Evet" session("Tur")=5 response.Redirect("default.asp") else session("kadi")=rs("firmaad") session("firmaad")=rscc("firmaad") session("adsoyad")=rs("firmaad") session("firmaID")=rs("servisfirmaID") session("userID")=rs("id") session("yetki")=2 session("giris")="Evet" session("Tur")=1 response.Redirect("default.asp") end if end if end if intLowerBound = 1000000 'seçilecek sayının alt sınırı intUpperBound = 9999999 'seçilecek sayının üst sınırı Randomize() intRangeSize = intUpperBound - intLowerBound + 1 sngRandomValue = intRangeSize * Rnd() sngRandomValue = sngRandomValue + intLowerBound intRandomInteger = Int(sngRandomValue) gk=intRandomInteger if Request("I")="firmaekle" then Set rs = Server.CreateObject("ADODB.Recordset") sor = "Select * from tbl_servisfirma limit 1" rs.Open sor,baglan,1,3 rs.addnew rs("firmaad") =Request.Form("firmaad") rs("firmatur") =Request.Form("firmatur") rs("il") =Request.Form("il") rs("ilce") =Request.Form("ilce") rs("tarih") =date rs("durum") =1 rs("telefon") =Request.Form("telefon1") rs("adres") =Request.Form("adres") rs("eposta") =Request.Form("eposta") rs("servisfirmaID") =session("firmaID") rs.update rs.close : set rs=nothing Set rs = Server.CreateObject("ADODB.Recordset") sor = "Select * from tbl_servisfirma where telefon='"& Request.Form("telefon1") &"' order by id desc limit 1" rs.Open sor,baglan,1,3 FirmaID=rs("id") Set rsIcerikccxx = Server.CreateObject("ADODB.Recordset") sorIcerik = "select id from tbl_firma order by id desc limit 1" rsIcerikccxx.Open sorIcerik,baglan,1,3 Son=Cdbl(rsIcerikccxx("id")) + 1 Kod="25-" if Len(Son)<5 then for i=1 to 5-Len(Son) Kod=Kod&"0" next else Kod=Kod end if Kod=Kod&Son Set rsz = Server.CreateObject("ADODB.Recordset") sorz = "Select * from tbl_firma limit 1" rsz.Open sorz,baglan,1,3 rsz.addnew rsz("firmaad") =Request.Form("teknisyen") rsz("logo") ="resimler/resimyok.png" rsz("il") =Request.Form("il") rsz("ilce") =Request.Form("ilce") rsz("durum") =4 rsz("adres") =Request.Form("adres") rsz("telefon1") =Request.Form("telefon1") rsz("telefon2") =Request.Form("telefon1") rsz("eposta") =Request.Form("eposta") rsz("kadi") =Request.Form("telefon1") rsz("sifre") =Request.Form("sifre") rsz("servisfirmaID") =FirmaID rsz("caritur") ="YÖNETİCİ" rsz("isyeritur") ="TEKNİSYEN" rsz("kod") =Kod rsz("tel1") =1 rsz("pasif") =0 rsz.update '----------------------------- LOG TUT ----------------------------------' response.Redirect("default.asp?I=Firmalar&Islem=Liste") end if %>

GİRİŞ

<% if request("I")="" then %>
Şifremi Unuttum
Üye Değilseniz , servis talebi oluşturmak veya
teknik servisimiz olmak için lütfen KAYIT OLUN
<% else %>
<% end if %>