<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="../Connections/Loja.asp" -->
<%
Dim MM_editCmd
Dim MM_editRedirectUrl
Dim MM_editAction
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If

' boolean to abort record edit
Dim MM_abortEdit
MM_abortEdit = false
%>
<%
' IIf implementation
Function MM_IIf(condition, ifTrue, ifFalse)
  If condition = "" Then
    MM_IIf = ifFalse
  Else
    MM_IIf = ifTrue
  End If
End Function
%>
<%
If (CStr(Request("MM_insert")) = "form1") Then
  If (Not MM_abortEdit) Then
    ' execute the insert

    Set MM_editCmd = Server.CreateObject ("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_Loja_STRING
    MM_editCmd.CommandText = "INSERT INTO letreiro (LetreiroNoticia) VALUES (?)" 
    MM_editCmd.Prepared = true
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 203, 1, 536870910, Request.Form("noticia")) ' adLongVarWChar
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close
  End If
End If
%>
<%
If (CStr(Request("MM_update")) = "form2") Then
  If (Not MM_abortEdit) Then
    ' execute the update
    Set MM_editCmd = Server.CreateObject ("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_Loja_STRING
    MM_editCmd.CommandText = "UPDATE letreiro SET LetreiroNoticia = ? WHERE LetreiroID = ?" 
    MM_editCmd.Prepared = true
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 203, 1, 536870910, Request.Form("noticia")) ' adLongVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 5, 1, -1, MM_IIF(Request.Form("MM_recordId"), Request.Form("MM_recordId"), null)) ' adDouble
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close

    ' append the query string to the redirect URL

    MM_editRedirectUrl = "letreiro.asp"
    If (Request.QueryString <> "") Then
      If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then
        MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
      Else
        MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
      End If
    End If
    Response.Redirect(MM_editRedirectUrl)
  End If
End If
%>
<%
' *** Delete Record: construct a sql delete statement and execute it

If (CStr(Request("MM_delete")) = "form3" And CStr(Request("MM_recordId")) <> "") Then

  If (Not MM_abortEdit) Then
    ' execute the delete
    Set MM_editCmd = Server.CreateObject ("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_Loja_STRING
    MM_editCmd.CommandText = "DELETE FROM letreiro WHERE letreiroID = ?"
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 5, 1, -1, Request.Form("MM_recordId")) ' adDouble
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close

    ' append the query string to the redirect URL
    MM_editRedirectUrl = "letreiro.asp"
    If (Request.QueryString <> "") Then
      If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then
        MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
      Else
        MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
      End If
    End If
    Response.Redirect(MM_editRedirectUrl)
  End If

End If
%>
<%
Dim Recordset1
Dim Recordset1_cmd
Dim Recordset1_numRows

Set Recordset1_cmd = Server.CreateObject ("ADODB.Command")
Recordset1_cmd.ActiveConnection = MM_Loja_STRING
Recordset1_cmd.CommandText = "SELECT * FROM letreiro" 
Recordset1_cmd.Prepared = true

Set Recordset1 = Recordset1_cmd.Execute
Recordset1_numRows = 0
%>
<%
Dim Recordset2__MMColParam
Recordset2__MMColParam = "-1"
If (Request.QueryString("id") <> "") Then 
  Recordset2__MMColParam = Request.QueryString("id")
End If
%>
<%
Dim Recordset2
Dim Recordset2_cmd
Dim Recordset2_numRows

Set Recordset2_cmd = Server.CreateObject ("ADODB.Command")
Recordset2_cmd.ActiveConnection = MM_Loja_STRING
Recordset2_cmd.CommandText = "SELECT * FROM letreiro WHERE LetreiroID = ?" 
Recordset2_cmd.Prepared = true
Recordset2_cmd.Parameters.Append Recordset2_cmd.CreateParameter("param1", 5, 1, -1, Recordset2__MMColParam) ' adDouble

Set Recordset2 = Recordset2_cmd.Execute
Recordset2_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Untitled Document</title>
<link href="admestilo.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style1 {
	color: #FFFFFF;
	font-weight: bold;
}
-->
</style>
<script language="javascript" type="text/javascript" src="scripts/scripts.js"></script>
</head>

<body>
<% If Recordset2.EOF And Recordset2.BOF Then %>
<form method="POST" action="<%=MM_editAction%>" name="form1" onSubmit="MM_validateForm('noticia','','R');return document.MM_returnValue;">
  <table align="center">
    <tr valign="baseline">
      <td align="right" nowrap class="letrasMenu"><strong>Noticia:</strong></td>
      <td><input name="noticia" type="text" class="letrasMenu" value="" size="100" maxlength="100">
      </td>
    </tr>
    <tr valign="baseline">
      <td nowrap align="right"><input type="hidden" name="MM_insert" value="form1"></td>
      <td><input type="submit" value="Salvar"><br>
      </td>
    </tr>
  </table>
</form>
<% End If ' end Recordset2.EOF And Recordset2.BOF %>
<% If Not Recordset2.EOF Or Not Recordset2.BOF Then %>
<form action="<%=MM_editAction%>" method="POST" name="form2" id="form2">
  <table align="center">
    <tr valign="baseline">
      <td align="right" nowrap class="letrasMenu"><strong>Noticia:</strong></td>
      <td><input name="noticia" type="text" class="letrasMenu" value="<%=(Recordset2.Fields.Item("LetreiroNoticia").Value)%>" size="100" maxlength="100">
      </td>
    </tr>
    <tr valign="baseline">
      <td nowrap align="right"><input type="hidden" name="MM_update" value="form2">
          <input type="hidden" name="MM_recordId" value="<%= Recordset2.Fields.Item("LetreiroID").Value %>"></td>
      <td><input type="submit" value="Salvar"><br>
      </td>
    </tr>
  </table>
</form>
<% End If ' end Not Recordset2.EOF Or NOT Recordset2.BOF %>
<table width="550" border="0" align="center" cellspacing="0" class="bordapreta">
  <tr class="letrasMenu" background="img/fundotit.gif">
    <td width="104" background="img/fundotit.gif"><div align="center"><span class="style1">ID</span></div></td>
    <td width="341"><span class="style1">Noticia</span></td>
    <td width="45" background="img/fundotit.gif"><div align="center" class="style1">Editar</div></td>
    <td width="52" height="30" background="img/fundotit.gif"><div align="center" class="style1">Excluir</div></td>
  </tr>
  <% While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) %>
  <tr class="letrasMenu">
    <td><div align="center"><%=(Recordset1.Fields.Item("LetreiroID").Value)%></div></td>
    <td><%=(Recordset1.Fields.Item("LetreiroNoticia").Value)%></td>
    <td><div align="center"><a href="letreiro.asp?id=<%=(Recordset1.Fields.Item("LetreiroID").Value)%>"><img src="img/editar.gif" width="16" height="16" border="0"></a></div></td>
    <td>      <form name="form3" method="POST" action="<%=MM_editAction%>" onSubmit="return confirm('Deseja excluir esse registro???');">
        <div align="center">
          <input name="imageField" type="image" src="img/apagar.gif" width="16" height="16" border="0">
<input type="hidden" name="MM_delete" value="form3">
        <input type="hidden" name="MM_recordId" value="<%= Recordset1.Fields.Item("LetreiroID").Value %>">
    </div>
    
</form></td>
  </tr>
  <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  Recordset1.MoveNext()
Wend
%>
</table>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<%
Recordset2.Close()
Set Recordset2 = Nothing
%>