<% Response.Expires = 0 Response.ExpiresAbsolute = Now() - 1 Response.AddHeader "pragma", "no-cache" Response.AddHeader "cache-control", "private, no-cache, no-store, must-revalidate" %> <% ' Initialize common variables x_GaleriaID = Null: ox_GaleriaID = Null: z_GaleriaID = Null x_GaleriaCat = Null: ox_GaleriaCat = Null: z_GaleriaCat = Null x_GaleriaCaminho = Null: ox_GaleriaCaminho = Null: z_GaleriaCaminho = Null x_GaleriaImagem = Null: ox_GaleriaImagem = Null: z_GaleriaImagem = Null x_GaleriaNome = Null: ox_GaleriaNome = Null: z_GaleriaNome = Null x_GaleriaTitulo = Null: ox_GaleriaTitulo = Null: z_GaleriaTitulo = Null x_GaleriaDesc = Null: ox_GaleriaDesc = Null: z_GaleriaDesc = Null x_GaleriaPaginaID = Null: ox_GaleriaPaginaID = Null: z_GaleriaPaginaID = Null x_GaleriaPreview = Null: ox_GaleriaPreview = Null: z_GaleriaPreview = Null x_usuarioID = Null: ox_usuarioID = Null: z_usuarioID = Null x_GaleriaAtivo = Null: ox_GaleriaAtivo = Null: z_GaleriaAtivo = Null x_GaleriaData = Null: ox_GaleriaData = Null: z_GaleriaData = Null x_GaleriaAno = Null: ox_GaleriaAno = Null: z_GaleriaAno = Null %> <% Response.Buffer = True ' Load key from QueryString x_GaleriaID = Request.QueryString("GaleriaID") ' Get action sAction = Request.Form("a_edit") If sAction = "" Or IsNull(sAction) Then sAction = "I" ' Display with input box Else ' Get fields from form x_GaleriaID = Request.Form("x_GaleriaID") x_GaleriaCat = Request.Form("x_GaleriaCat") x_GaleriaCaminho = Request.Form("x_GaleriaCaminho") x_GaleriaImagem = Request.Form("x_GaleriaImagem") x_GaleriaNome = Request.Form("x_GaleriaNome") x_GaleriaTitulo = Request.Form("x_GaleriaTitulo") x_GaleriaDesc = Request.Form("x_GaleriaDesc") x_GaleriaPaginaID = Request.Form("x_GaleriaPaginaID") x_GaleriaPreview = Request.Form("x_GaleriaPreview") x_usuarioID = Request.Form("x_usuarioID") x_GaleriaAtivo = Request.Form("x_GaleriaAtivo") x_GaleriaData = Request.Form("x_GaleriaData") x_GaleriaAno = Request.Form("x_GaleriaAno") End If ' Check if valid key If x_GaleriaID = "" Or IsNull(x_GaleriaID) Then Response.Redirect "galeria_listagem.asp" ' Open connection to the database Set conn = Server.CreateObject("ADODB.Connection") conn.Open xDb_Conn_Str Select Case sAction Case "I": ' Get a record to display If Not LoadData() Then ' Load Record based on key Session(ewSessionMessage) = "Nao foram encontrados registros" conn.Close ' Close Connection Set conn = Nothing Response.Clear Response.Redirect "galeria_listagem.asp" End If Case "U": ' Update If EditData() Then ' Update Record based on key Session(ewSessionMessage) = "Registro Atualizado com sucesso" conn.Close ' Close Connection Set conn = Nothing Response.Clear Response.Redirect "galeria_listagem.asp" End If End Select %>
Incluir Galeria
Diretórios de Imagens
Listagem
<% If Session(ewSessionMessage) <> "" Then %>

<%= Session(ewSessionMessage) %>

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

Código: <% Response.Write x_GaleriaID %>

 

Titulo *

Descrição *

Ativo

<%= RenderControl(1, 0, 2, 1) %> checked<% End If %> value="1"> <%= "Sim" %> <%= RenderControl(1, 0, 2, 2) %> <%= RenderControl(1, 1, 2, 1) %> checked<% End If %> value="2"> <%= "Não" %> <%= RenderControl(1, 1, 2, 2) %>

Data *

 Escolha uma data

Pasta das Imagens

" size="30" maxlength="50">

" placeholder="Imagem da Capa">

Enviar
Selecionar
<% 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 If Not IsNumeric(x_GaleriaID) Then LoadData = False Exit Function End If sFilter = Replace(sFilter, "@GaleriaID", AdjustSql(x_GaleriaID)) ' 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_GaleriaID = rs("GaleriaID") x_GaleriaCat = rs("GaleriaCat") x_GaleriaCaminho = rs("GaleriaCaminho") x_GaleriaImagem = rs("GaleriaImagem") x_GaleriaNome = rs("GaleriaNome") x_GaleriaTitulo = rs("GaleriaTitulo") x_GaleriaDesc = rs("GaleriaDesc") x_GaleriaPaginaID = rs("GaleriaPaginaID") x_GaleriaPreview = rs("GaleriaPreview") 'x_usuarioID = rs("usuarioID") x_GaleriaAtivo = rs("GaleriaAtivo") x_GaleriaData = rs("GaleriaData") x_GaleriaAno = rs("GaleriaAno") End If rs.Close Set rs = Nothing End Function %> <% '------------------------------------------------------------------------------- ' Function EditData ' - Edit Data based on Key Value ' - Variables used: field variables Function EditData() On Error Resume Next Dim rs, sSql, sFilter Dim rsold, rsnew sFilter = ewSqlKeyWhere If Not IsNumeric(x_GaleriaID) Then EditData = False Exit Function End If sFilter = Replace(sFilter, "@GaleriaID", AdjustSql(x_GaleriaID)) ' Replace key value 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 EditData = False Exit Function End If ' clone old rs object Set rsold = CloneRs(rs) If rs.Eof Then EditData = False ' Update Failed Else ' Field GaleriaCat sTmp = Trim(x_GaleriaCat) If Trim(sTmp) = "" Then sTmp = Null rs("GaleriaCat") = sTmp ' sTmp = x_GaleriaCat ' If Not IsNumeric(sTmp) Then ' sTmp = Null ' Else ' sTmp = CLng(sTmp) ' End If ' rs("GaleriaCat") = sTmp ' Field GaleriaCaminho sTmp = Trim(x_GaleriaCaminho) If Trim(sTmp) = "" Then sTmp = Null rs("GaleriaCaminho") = sTmp ' Field GaleriaImagem sTmp = Trim(x_GaleriaImagem) If Trim(sTmp) = "" Then sTmp = Null rs("GaleriaImagem") = sTmp ' Field GaleriaNome ' sTmp = Trim(x_GaleriaNome) ' If Trim(sTmp) = "" Then sTmp = Null ' rs("GaleriaNome") = sTmp ' Field GaleriaTitulo sTmp = Trim(x_GaleriaTitulo) If Trim(sTmp) = "" Then sTmp = Null rs("GaleriaTitulo") = sTmp ' Field GaleriaDesc sTmp = Trim(x_GaleriaDesc) If Trim(sTmp) = "" Then sTmp = Null rs("GaleriaDesc") = sTmp ' Field GaleriaPaginaID ' sTmp = x_GaleriaPaginaID ' If Not IsNumeric(sTmp) Then ' sTmp = Null ' Else ' sTmp = CLng(sTmp) ' End If ' rs("GaleriaPaginaID") = sTmp ' ' ' Field GaleriaPreview ' sTmp = x_GaleriaPreview ' If Not IsNumeric(sTmp) Then ' sTmp = Null ' Else ' sTmp = CLng(sTmp) ' End If ' rs("GaleriaPreview") = sTmp ' Field usuarioID ' sTmp = x_usuarioID ' If Not IsNumeric(sTmp) Then ' sTmp = Null ' Else ' sTmp = CLng(sTmp) ' End If ' rs("usuarioID") = sTmp ' Field GaleriaAtivo sTmp = x_GaleriaAtivo If Not IsNumeric(sTmp) Then sTmp = Null Else sTmp = CLng(sTmp) End If rs("GaleriaAtivo") = sTmp ' Field GaleriaData sTmp = EW_UnFormatDateTime(x_GaleriaData,7) If IsDate(sTmp) Then rs("GaleriaData") = CDate(sTmp) Else rs("GaleriaData") = Null End If ' Field GaleriaAno sTmp = Trim(x_GaleriaAno) If Trim(sTmp) = "" Then sTmp = Null rs("GaleriaAno") = sTmp ' Call updating event If Recordset_Updating(rsold, rs) Then ' clone new rs object Set rsnew = CloneRs(rs) rs.Update If Err.Number <> 0 Then Session(ewSessionMessage) = Err.Description EditData = False Else EditData = True End If Else rs.CancelUpdate EditData = False End If End If ' Call updated event If EditData Then Call Recordset_Updated(rsold, rsnew) End If rs.Close Set rs = Nothing rsold.Close Set rsold = Nothing rsnew.Close Set rsnew = Nothing End Function '------------------------------------------------------------------------------- ' Recordset updating event Function Recordset_Updating(rsold, rsnew) On Error Resume Next ' Please enter your customized codes here Recordset_Updating = True End Function '------------------------------------------------------------------------------- ' Recordset updated event Sub Recordset_Updated(rsold, rsnew) On Error Resume Next Dim table table = "galeria" End Sub %>