<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252" %>
<%
' *** Logout the current user.
MM_Logout = CStr(Request.ServerVariables("URL")) & "?MM_Logoutnow=1"
If (CStr(Request("MM_Logoutnow")) = "1") Then
Session.Contents.Remove("MM_Username")
Session.Contents.Remove("sayfa")
Session.Contents.Remove("MM_UserAuthorization")
MM_logoutRedirectPage = "default.asp"
' redirect with URL parameters (remove the "MM_Logoutnow" query param).
if (MM_logoutRedirectPage = "") Then MM_logoutRedirectPage = CStr(Request.ServerVariables("URL"))
If (InStr(1, UC_redirectPage, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
MM_newQS = "?"
For Each Item In Request.QueryString
If (Item <> "MM_Logoutnow") Then
If (Len(MM_newQS) > 1) Then MM_newQS = MM_newQS & "&"
MM_newQS = MM_newQS & Item & "=" & Server.URLencode(Request.QueryString(Item))
End If
Next
if (Len(MM_newQS) > 1) Then MM_logoutRedirectPage = MM_logoutRedirectPage & MM_newQS
End If
Response.Redirect(MM_logoutRedirectPage)
End If
%>
<% if request("0246")="4413293" then session("sayfa")="Y"%>
<% application("url")=request.ServerVariables("http_host") %>
<%
Dim dernek__MMColParam
dernek__MMColParam = "www.atilimder.org.tr"
If (Application("url") <> "") Then
dernek__MMColParam = Application("url")
End If
%>
<%
Dim dernek
Dim dernek_numRows
Set dernek = Server.CreateObject("ADODB.Recordset")
dernek.ActiveConnection = MM_dernex_STRING
dernek.Source = "SELECT * FROM dernex.dernekler WHERE webadresi = '" + Replace(dernek__MMColParam, "'", "''") + "'"
dernek.CursorType = 0
dernek.CursorLocation = 2
dernek.LockType = 1
dernek.Open()
dernek_numRows = 0
%>
<% application("did")=(dernek.Fields.Item("did").Value) %>
<%
Dim kat__MMColParam
kat__MMColParam = "1"
If (Request("MM_EmptyValue") <> "") Then
kat__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim kat__didx
kat__didx = "52"
If (Application("did") <> "") Then
kat__didx = Application("did")
End If
%>
<%
Dim kat
Dim kat_numRows
Set kat = Server.CreateObject("ADODB.Recordset")
kat.ActiveConnection = MM_dernex_STRING
kat.Source = "SELECT sid, kidsi, dernekidsi, baslik, onay, sira FROM dernex.sayfa WHERE kidsi = " + Replace(kat__MMColParam, "'", "''") + " AND dernekidsi = '" + Replace(kat__didx, "'", "''") + "' order by sid ASC"
kat.CursorType = 0
kat.CursorLocation = 2
kat.LockType = 1
kat.Open()
kat_numRows = 0
%>
<%
Dim link
Dim link_cmd
Dim link_numRows
Set link_cmd = Server.CreateObject ("ADODB.Command")
link_cmd.ActiveConnection = MM_dernex_STRING
link_cmd.CommandText = "SELECT * FROM linkler ORDER BY sira ASC"
link_cmd.Prepared = true
Set link = link_cmd.Execute
link_numRows = 0
%>
<%
Dim sayfa__MMColParam
sayfa__MMColParam = "1"
If (Request("MM_EmptyValue") <> "") Then
sayfa__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim sayfa__sidx
sayfa__sidx = "%"
If (request("sid") <> "") Then
sayfa__sidx = request("sid")
End If
%>
<%
Dim sayfa
Dim sayfa_numRows
Set sayfa = Server.CreateObject("ADODB.Recordset")
sayfa.ActiveConnection = MM_dernex_STRING
sayfa.Source = "SELECT * FROM sayfa WHERE kidsi = " + Replace(sayfa__MMColParam, "'", "''") + " AND sid like '" + Replace(sayfa__sidx, "'", "''") + "'"
sayfa.CursorType = 0
sayfa.CursorLocation = 2
sayfa.LockType = 1
sayfa.Open()
sayfa_numRows = 0
%>
<%
Dim resim__MMColParam
resim__MMColParam = "27"
If (Request.QueryString("sid") <> "") Then
resim__MMColParam = Request.QueryString("sid")
End If
%>
<%
Dim resim
Dim resim_numRows
Set resim = Server.CreateObject("ADODB.Recordset")
resim.ActiveConnection = MM_dernex_STRING
resim.Source = "SELECT * FROM resimler WHERE sidsi = " + Replace(resim__MMColParam, "'", "''") + ""
resim.CursorType = 0
resim.CursorLocation = 2
resim.LockType = 1
resim.Open()
resim_numRows = 0
%>
<%
Dim haber__MMColParam
haber__MMColParam = "1"
If (Application("did") <> "") Then
haber__MMColParam = Application("did")
End If
%>
<%
Dim haber
Dim haber_numRows
Set haber = Server.CreateObject("ADODB.Recordset")
haber.ActiveConnection = MM_dernex_STRING
haber.Source = "SELECT * FROM dernex.haberler WHERE dernekidsi = " + Replace(haber__MMColParam, "'", "''") + ""
haber.CursorType = 0
haber.CursorLocation = 2
haber.LockType = 1
haber.Open()
haber_numRows = 0
%>
<%
Dim etk__MMColParam
etk__MMColParam = "%"
If (Request.QueryString("eid") <> "") Then
etk__MMColParam = Request.QueryString("eid")
End If
%>
<%
Dim etk__didx
etk__didx = "%"
If (application("did") <> "") Then
etk__didx = application("did")
End If
%>
<%
Dim etk
Dim etk_numRows
Set etk = Server.CreateObject("ADODB.Recordset")
etk.ActiveConnection = MM_dernex_STRING
etk.Source = "SELECT * FROM dernex.etkinlikler WHERE eidsi like '" + Replace(etk__MMColParam, "'", "''") + "' and dernekidsi like '" + Replace(etk__didx, "'", "''") + "' ORDER BY etid DESC"
etk.CursorType = 0
etk.CursorLocation = 2
etk.LockType = 1
etk.Open()
etk_numRows = 0
%>
<%
Dim user__MMColParam
user__MMColParam = "1"
If (Session("MM_Username") <> "") Then
user__MMColParam = Session("MM_Username")
End If
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
kat_numRows = kat_numRows + Repeat1__numRows
%>
<%
Dim Repeat2__numRows
Dim Repeat2__index
Repeat2__numRows = -1
Repeat2__index = 0
link_numRows = link_numRows + Repeat2__numRows
%>
<%
Dim Repeat4__numRows
Dim Repeat4__index
Repeat4__numRows = 10
Repeat4__index = 0
etk_numRows = etk_numRows + Repeat4__numRows
%>
<%
Dim Repeat3__numRows
Dim Repeat3__index
Repeat3__numRows = 5
Repeat3__index = 0
haber_numRows = haber_numRows + Repeat3__numRows
%>
<%
' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables
Dim haber_total
Dim haber_first
Dim haber_last
' set the record count
haber_total = haber.RecordCount
' set the number of rows displayed on this page
If (haber_numRows < 0) Then
haber_numRows = haber_total
Elseif (haber_numRows = 0) Then
haber_numRows = 1
End If
' set the first and last displayed record
haber_first = 1
haber_last = haber_first + haber_numRows - 1
' if we have the correct record count, check the other stats
If (haber_total <> -1) Then
If (haber_first > haber_total) Then
haber_first = haber_total
End If
If (haber_last > haber_total) Then
haber_last = haber_total
End If
If (haber_numRows > haber_total) Then
haber_numRows = haber_total
End If
End If
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them
If (haber_total = -1) Then
' count the total records by iterating through the recordset
haber_total=0
While (Not haber.EOF)
haber_total = haber_total + 1
haber.MoveNext
Wend
' reset the cursor to the beginning
If (haber.CursorType > 0) Then
haber.MoveFirst
Else
haber.Requery
End If
' set the number of rows displayed on this page
If (haber_numRows < 0 Or haber_numRows > haber_total) Then
haber_numRows = haber_total
End If
' set the first and last displayed record
haber_first = 1
haber_last = haber_first + haber_numRows - 1
If (haber_first > haber_total) Then
haber_first = haber_total
End If
If (haber_last > haber_total) Then
haber_last = haber_total
End If
End If
%>
<%=(dernek.Fields.Item("title").Value)%>
">
">
">
_
_
_
_
