| ');
document.write(' <% Response.Buffer=True%> <%on error resume next%> <% If Session("Oturum") <> "Acik" AND Request.Form("x") <> "p" AND Request.Cookies("xp_uye")("mevcut")="evet" Then uye_adi = Request.Cookies("xp_uye")("kullanici") sifre = Request.Cookies("xp_uye")("sifre") Call Giris_Yap (uye_adi, sifre) ElseIf Request.Form("x") = "p" AND Session("Oturum") <> "Acik" Then uye_adi = Replace(Request.Form("uyeadi"), "\'", "") sifre = Replace(Request.Form("sifre"), "\'", "") \'uye_adi = Request.Form("uyeadi") \'sifre = Request.Form("sifre") Call Giris_Yap (uye_adi, sifre) End If %> <% If Request.QueryString("ISN") = "354763" Then Response.Write " - E-Mail adresinize gönderilen linke tıklayıp üyeliğinizi aktif hala getirebilirsiniz
- "& uExp &" gün içerisinde aktif olmayan üyelikler silinecektir.
" If Request.QueryString("ISN") = "354986" Then Response.Write "- Üyeliğiniz, adminler onayladıktan sonra aktif olacaktır
" %> <% Sub Giris_Yap (uye_adi, sifre) Set objRs = Server.CreateObject("ADODB.RecordSet") StrSQL = "SELECT * FROM UYELER WHERE U_ADI =\'"& uye_adi &"\' AND U_SIFRE = \'"& sifre &"\'" objRs.Open StrSQL, objConn, 3, 3 If NOT objRs.EOF Then If objRs("ACTIVE") <> "1" Then Response.Write "" & titleAdd & " Sistemi Bu Üyeliği Bloke Etti!" & "" & "
"&_ "Bilgi için: "&siteMail&""& "
" & "
" & "
" Session("Oturum") = "Kapali" Else Set checkIP = objConn.Execute("SELECT * FROM ZIYARETCI WHERE IP = \'" & Request.ServerVariables("REMOTE_ADDR") & "\'") If Not checkIP.EOF Then Set updIP = objConn.Execute("DELETE FROM ZIYARETCI WHERE IP = \'" & Request.ServerVariables("REMOTE_ADDR") & "\'") End If Session("Oturum") = "Acik" Session("Uye_Adi") = objRs("U_ADI") Session("Uye_Ad") = objRs("AD") Session("Uye_Id") = objRs("U_ID") Session("Uye_Sifre") = objRs("U_SIFRE") Session("Uye_Email") = objRs("EMAIL") Response.Cookies("xp_uye")("kullanici") = objRs("U_ADI") Response.Cookies("xp_uye")("sifre") = objRs("U_SIFRE") Response.Cookies("xp_uye")("mevcut") = "evet" Response.Cookies("xp_uye").Expires = Date() + 365 objRs("LOGIN_SAYISI") = objRs("LOGIN_SAYISI") + 1 objRs.Update End If Else Session("Oturum") = "Kapali" End If objRs.Close Set objRs = Nothing End Sub %> <% If Session("Oturum") <> "Acik" Then %> | <% If Not total = 0 Then For I=1 To objTotals.RecordCount basla = InStrRev(objTotals("IP"), ".", -1, 1) ipFull = Mid(objTotals("IP"), 1, basla) For X=1 To Len(objTotals("IP"))-basla ekX = ekX &"x" Next sansur = ipFull & ekX IP = sansur \'IP = objTotals("IP") If Session("Oturum") = "Acik" Then Response.Write "" & IP & "" & ", " Else Response.Write "" & IP & ", " End If objTotals.MoveNext Next End If %><%=total%><% overall = total+uNumber %><%=overall%><%=ReadNum(overall)%><%=nameCopy%><% \'Response.End End If %> | ');
document.write(' |