<%= Session(ewSessionMessage) %>
<% Session(ewSessionMessage) = "" ' Clear message End If %> <% 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 AddData ' - Add Data ' - Variables used: field variables Function AddData() On Error Resume Next Dim rs, sSql, sFilter Dim rsnew Dim bCheckKey, sSqlChk, sWhereChk sFilter = ewSqlKeyWhere ' Check for duplicate key bCheckKey = True If x_GaleriaID = "" Or IsNull(x_GaleriaID) Then bCheckKey = False Else sFilter = Replace(sFilter, "@GaleriaID", AdjustSql(x_GaleriaID)) ' Replace key value End If If Not IsNumeric(x_GaleriaID) Then bCheckKey = False End If If bCheckKey Then sSqlChk = ewBuildSql(ewSqlSelect, ewSqlWhere, ewSqlGroupBy, ewSqlHaving, ewSqlOrderBy, sFilter, "") Set rsChk = conn.Execute(sSqlChk) If Err.Number <> 0 Then Session(ewSessionMessage) = Err.Description rsChk.Close Set rsChk = Nothing AddData = False Exit Function ElseIf Not rsChk.Eof Then Session(ewSessionMessage) = "Valor da chave primaria duplicado" rsChk.Close Set rsChk = Nothing AddData = False Exit Function End If rsChk.Close Set rsChk = Nothing End If ' If x_GaleriaNome = "" Or IsNull(x_GaleriaNome) Then ' Check field with unique index ' ' ' Ignore ' Else ' sFilter = "(`GaleriaNome` = '" & AdjustSql(x_GaleriaNome) & "')" ' sSqlChk = ewBuildSql(ewSqlSelect, ewSqlWhere, ewSqlGroupBy, ewSqlHaving, ewSqlOrderBy, sFilter, "") ' Set rsChk = conn.Execute(sSqlChk) ' If Err.Number <> 0 Then ' Session(ewSessionMessage) = Err.Description ' rsChk.Close ' Set rsChk = Nothing ' AddData = False ' Exit Function ' ElseIf Not rsChk.Eof Then ' Session(ewSessionMessage) = "Valor da chave primaria ou de indice duplicado -- `GaleriaNome`, valor = " & x_GaleriaNome ' rsChk.Close ' Set rsChk = Nothing ' AddData = False ' Exit Function ' End If ' rsChk.Close ' Set rsChk = Nothing ' End If If x_GaleriaTitulo = "" Or IsNull(x_GaleriaTitulo) Then ' Check field with unique index ' Ignore Else sFilter = "(`GaleriaTitulo` = '" & AdjustSql(x_GaleriaTitulo) & "')" sSqlChk = ewBuildSql(ewSqlSelect, ewSqlWhere, ewSqlGroupBy, ewSqlHaving, ewSqlOrderBy, sFilter, "") Set rsChk = conn.Execute(sSqlChk) If Err.Number <> 0 Then Session(ewSessionMessage) = Err.Description rsChk.Close Set rsChk = Nothing AddData = False Exit Function ElseIf Not rsChk.Eof Then Session(ewSessionMessage) = "Titulo duplicado: Ja existe uma galeria com este nome!" rsChk.Close Set rsChk = Nothing AddData = False Exit Function End If rsChk.Close Set rsChk = Nothing End If ' Add New Record sFilter = "(0 = 1)" 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 AddData = False Exit Function End If rs.AddNew ' Field GaleriaCat ' sTmp = x_GaleriaCat ' If Not IsNumeric(sTmp) Then ' sTmp = Null ' Else ' sTmp = CLng(sTmp) ' End If ' rs("GaleriaCat") = sTmp ' Field GaleriaCat sTmp = Trim(x_GaleriaCat) If Trim(sTmp) = "" Then sTmp = Null 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 = Session("swSistemas_status_UserID") 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 recordset inserting event If Recordset_Inserting(rs) Then ' Clone new rs object Set rsnew = CloneRs(rs) rs.Update If Err.Number <> 0 Then Session(ewSessionMessage) = Err.Description AddData = False Else AddData = True End If Else rs.CancelUpdate AddData = False End If rs.Close Set rs = Nothing ' Call recordset inserted event If AddData Then Call Recordset_Inserted(rsnew) End If rsnew.Close Set rsnew = Nothing End Function '------------------------------------------------------------------------------- ' Recordset inserting event Function Recordset_Inserting(rsnew) On Error Resume Next ' Please enter your customized codes here Recordset_Inserting = True End Function '------------------------------------------------------------------------------- ' Recordset inserted event Sub Recordset_Inserted(rsnew) On Error Resume Next Dim table table = "sw_galeria" ' Get key value Dim sKey sKey = "" If sKey <> "" Then sKey = sKey & "," sKey = sKey & rsnew.Fields("GaleriaID") x_GaleriaID = rsnew.Fields("GaleriaID") End Sub %>