<%@ CodePage = 1254 LCID = 1055 %> <% Response.expires = 0 Response.expiresabsolute = Now() - 1 Response.addHeader "pragma", "no-cache" Response.addHeader "cache-control", "private" Response.addHeader "cache-control", "no-cache" Response.addHeader "cache-control", "no-store" Response.CacheControl = "no-cache" %> <% If Not IsLoggedIn Then Response.Redirect "login.asp" %> <% ' Initialize common variables x_id = Null: ox_id = Null: z_id = Null x_ust_yazi = Null: ox_ust_yazi = Null: z_ust_yazi = Null x_resim = Null: ox_resim = Null: z_resim = Null fs_x_resim = 0: fn_x_resim = "": ct_x_resim = "" wd_x_resim = 0: ht_x_resim = 0: a_x_resim = "" x_alt_yazi = Null: ox_alt_yazi = Null: z_alt_yazi = Null x_yan_yazi = Null: ox_yan_yazi = Null: z_yan_yazi = Null x_resimsol = Null: ox_resimsol = Null: z_resimsol = Null x_resim_boy = Null: ox_resim_boy = Null: z_resim_boy = Null x_resim_en = Null: ox_resim_en = Null: z_resim_en = Null %> <% Response.Buffer = True ' Load Key Parameters sKey = "": bSingleDelete = True x_id = Request.QueryString("id") If x_id <> "" Then If sKey <> "" Then sKey = sKey & "," sKey = sKey & x_id Else bSingleDelete = False End If If Not bSingleDelete Then sKey = Request.Form("key_d") End If If sKey = "" Or IsNull(sKey) Then Response.Redirect "personelimizlist.asp" arRecKey = Split(sKey&"", ",") i = 0 Do While i <= UBound(arRecKey) sDbWhere = sDbWhere & "(" ' Remove spaces sRecKey = Trim(arRecKey(i+0)) ' Build the SQL sDbWhere = sDbWhere & "[id]=" & AdjustSql(sRecKey) & " AND " If Right(sDbWhere, 5) = " AND " Then sDbWhere = Left(sDbWhere, Len(sDbWhere)-5) & ") OR " i = i + 1 Loop If Right(sDbWhere, 4) = " OR " Then sDbWhere = Left(sDbWhere, Len(sDbWhere)-4) ' Get action sAction = Request.Form("a_delete") If sAction = "" Or IsNull(sAction) Then sAction = "I" ' Display record End If ' Open connection to the database Set conn = Server.CreateObject("ADODB.Connection") conn.Open xDb_Conn_Str Select Case sAction Case "I": ' Display If LoadRecordCount(sDbWhere) <= 0 Then conn.Close ' Close Connection Set conn = Nothing Response.Clear Response.Redirect "personelimizlist.asp" End If Case "D": ' Delete If DeleteData(sDbWhere) Then Session(ewSessionMessage) = "Başarıyla Silindi" conn.Close ' Close Connection Set conn = Nothing Response.Clear Response.Redirect "personelimizlist.asp" End If End Select %>

Sil Formu TABLO: personelimiz

Listeye Geri Don

<% If Session(ewSessionMessage) <> "" Then %>

<%= Session(ewSessionMessage) %>

<% Session(ewSessionMessage) = "" ' Clear message End If %>

<% nRecCount = 0 i = 0 Do While i <= UBound(arRecKey) nRecCount = nRecCount + 1 ' Set row color sItemRowClass = " class=""ewTableRow""" ' Display alternate color for rows If nRecCount Mod 2 <> 0 Then sItemRowClass = " class=""ewTableAltRow""" End If sRecKey = Trim(arRecKey(i+0)) x_id = sRecKey If LoadData() Then %> > <% End If i = i + 1 Loop %>
Resim Üstünde Yazı Resim Resim Altında Yazı Yazı Resim Nerde Olsun? Resim Genişlik Resim Yükseklik
<%= Replace(x_ust_yazi&"", vbLf, "
") %> 		<% If Not IsNull(x_resim) Then %> <% End If %> <%= Replace(x_alt_yazi&"", vbLf, "
") %> 		<%= Replace(x_yan_yazi&"", vbLf, "
") %> 		<% If x_resimsol = True Then sTmp = "Sol" Else sTmp = "Sağ" End If ox_resimsol = x_resimsol ' Backup Original Value x_resimsol = sTmp %> <% Response.Write x_resimsol %> <% x_resimsol = ox_resimsol ' Restore Original Value %> <% Response.Write x_resim_boy %> <% Response.Write x_resim_en %>

<% conn.Close ' Close Connection Set conn = Nothing %> <% '------------------------------------------------------------------------------- ' Function LoadData ' - Load Data based on Key Value ' - Variables setup: field variables Function LoadData() Dim rs, sSql, sFilter sFilter = ewSqlKeyWhere sFilter = Replace(sFilter, "@id", AdjustSql(x_id)) ' Replace key value sSql = ewBuildSql(ewSqlSelect, ewSqlWhere, ewSqlGroupBy, ewSqlHaving, ewSqlOrderBy, sFilter, "") Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sSql, conn If rs.Eof Then LoadData = False Else LoadData = True rs.MoveFirst ' Get the field contents x_id = rs("id") x_ust_yazi = rs("ust_yazi") x_resim = rs("resim") x_alt_yazi = rs("alt_yazi") x_yan_yazi = rs("yan_yazi") x_resimsol = rs("resimsol") x_resim_boy = rs("resim_boy") x_resim_en = rs("resim_en") End If rs.Close Set rs = Nothing End Function %> <% '------------------------------------------------------------------------------- ' Function LoadRecordCount ' - Load Record Count based on input sql criteria sqlKey Function LoadRecordCount(sqlKey) On Error Resume Next Dim rs, sSql, sFilter sFilter = sqlKey sSql = ewBuildSql(ewSqlSelect, ewSqlWhere, ewSqlGroupBy, ewSqlHaving, ewSqlOrderBy, sFilter, "") Set rs = Server.CreateObject("ADODB.Recordset") rs.CursorLocation = 3 rs.Open sSql, conn, 1, 2 LoadRecordCount = rs.RecordCount rs.Close Set rs = Nothing If Err.Number <> 0 Then Session(ewSessionMessage) = Err.Description End If End Function %> <% '------------------------------------------------------------------------------- ' Function DeleteData ' - Delete Records based on input sql criteria sqlKey Function DeleteData(sqlKey) On Error Resume Next Dim rs, sSql, sFilter sFilter = sqlKey sSql = ewBuildSql(ewSqlSelect, ewSqlWhere, ewSqlGroupBy, ewSqlHaving, ewSqlOrderBy, sFilter, "") Set rs = Server.CreateObject("ADODB.Recordset") rs.CursorLocation = 3 rs.Open sSql, conn, 1, 2 If Err.Number <> 0 Then Session(ewSessionMessage) = Err.Description rs.Close Set rs = Nothing DeleteData = False Exit Function End If ' Clone old rs object Dim rsold Set rsold = rs.Clone(1) rsold.Requery ' Call recordset deleting event DeleteData = Recordset_Deleting(rs) If DeleteData Then Do While Not rs.Eof ewDeleteFile ewUploadPathEx(True, EW_UploadDestPath) & rs("resim") rs.Delete If Err.Number <> 0 Then Session(ewSessionMessage) = Err.Description DeleteData = False Exit Do End If rs.MoveNext Loop End If rs.Close Set rs = Nothing ' Call recordset deleted event If DeleteData Then Call Recordset_Deleted(rsold) End If rsold.Close Set rsold = Nothing End Function '------------------------------------------------------------------------------- ' Recordset deleting event Function Recordset_Deleting(rsold) On Error Resume Next ' Please enter your customized codes here Recordset_Deleting = True End Function '------------------------------------------------------------------------------- ' Recordset deleted event Sub Recordset_Deleted(rsold) On Error Resume Next End Sub %>