Ir para conteúdo
Fórum Script Brasil

regis12

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    5

  • Registro em

  • Última visita

Sobre regis12

regis12's Achievements

0

Reputação

  1. regis12
    Bom, cara, não sei se isso ajuda, mas, você pode fazer um formulário em flash.
  2. regis12

    Atualizar Dados, Update

    uma questão postou regis12 ASP

    Este é um include do meu código ASP, paginado, onde gostaria que ao clicar no link Status/Exibição, fosse chamada uma outra página onde mostraria os dados daquele cliente para efetuar as modificações desejadas e após, chamar a página com a instrução update, com as modificações efetudas com sucesso. Infelizmente, não consigo fazê-la. Quem puder me ajudar, desde já agradeço. Espero ter sido claro na explicação. Obrigado. <% ACTION = Request.Querystring("ACTION") %> <% PAGE = CInt(Request.Querystring("PAGE")) %> <% RCOUNT = CInt(Request.Querystring("RCOUNT")) %> <% If RCOUNT = "" Then %> <% RCOUNT = "0" %> <% End If %> <% Dim CmdShowEntries Dim MySQL '** Get initial recordset Session("ConnGuestBook_ConnectionString") = "DBQ=" & Server.Mappath("..\banco.mdb") & ";DefaultDir=" & Server.Mappath("..\novosite") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;" Session("ConnGuestBook_ConnectionTimeout") = 15 Session("ConnGuestBook_CommandTimeout") = 30 Session("ConnGuestBook_RuntimeUserName") = "admin" Session("ConnGuestBook_RuntimePassword") = "" Set CmdShowEntries = Server.CreateObject("ADODB.Recordset") MySQL = "SELECT * FROM Mensagem" CmdShowEntries.Open MySQL,Session("ConnGuestBook_ConnectionString"), 3 %> <% HOWMANY = 5 %> <% '** Determine Page Size CmdShowEntries.PageSize = HOWMANY %> <% If ACTION = "FORWARD" Then %> <% PAGE = PAGE + 1 %> <% RCOUNT = RCOUNT + HOWMANY %> <% For DACOUNT = 1 To RCOUNT %> <% CmdShowEntries.MoveNext %> <% Next %> <% End If %> <% If ACTION = "BACK" Then %> <% PAGE = PAGE - 1 %> <% RCOUNT = RCOUNT - HOWMANY %> <% If RCOUNT <> 0 Then %> <% For DACOUNT = 1 To RCOUNT %> <% CmdShowEntries.MoveNext %> <% Next %> <% End If %> <% End If %> <% If RCOUNT = "0" Then %> <% PAGE = 1 %> <body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <p align="center"><font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif"> <strong>Total de Assinaturas: <% If CmdShowEntries.RecordCount > 1 or CmdShowEntries.RecordCount = 0 Then %> <% =CmdShowEntries.RecordCount %> <% Else %> <% =CmdShowEntries.RecordCount %> Total de Assinaturas: <% End If %> <br> <% If CmdShowEntries.RecordCount <> 0 And HOWMANY < CmdShowEntries.RecordCount Then %> &Uacute;ltimas <% = HOWMANY %> Assinaturas <% End If %> <br> </strong> </font></p> <div align="center"> <div align="center"> <% End If %> <% If CmdShowEntries.RecordCount = 0 Then %> </div> <% Response.End %> <% End If %> </div> <hr align="center" width="440" color="#FF0000"> <div align="center"> <table width="40%" align="center" cellpadding="0" cellspacing="0"> <% y = 0 %> <% while NOT CmdShowEntries.EOF %> <tr> <td><table width="430" cellspacing="0" cellpadding="0"> <tr> <td width="43"><font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Data:</strong></font></td> <td width="82"><div align="center"><font size="2" color="#FF0000" face="Verdana, Arial, Helvetica, sans-serif"><%=CmdShowEntries("Data")%> </font></div></td> <td width="40"><strong><font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif">Hora:</font></strong></td> <td width="73"><div align="center"><font size="2" color="#FF0000" face="Verdana, Arial, Helvetica, sans-serif"><%=CmdShowEntries("Hora")%></font></div></td> <td width="142"><strong><font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif">C&oacute;digo do Cliente:</font></strong></td> <td width="48"><div align="center"><font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=CmdShowEntries("CodMensagem")%></font></div></td> </tr> </table></td> </tr> <tr> <td><table width="430" cellspacing="0" cellpadding="0"> <tr> <td width="50"><font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Ip n&ordm;:</strong></font></td> <td width="379"><font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif"> <%=CmdShowEntries("Ip")%></font></td> </tr> </table></td> </tr> <tr> <td><table width="430" cellspacing="0" cellpadding="0"> <tr> <td width="49"><strong><font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif">Nome:</font></strong></td> <td width="379"><font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=CmdShowEntries("Nome")%></font></td> </tr> </table></td> </tr> <tr> <td><table width="430" cellspacing="0" cellpadding="0"> <tr> <td width="49"><strong><font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif">Login:</font></strong></td> <td width="380"><font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif"> <%=CmdShowEntries("Login")%></font></td> </tr> </table></td> </tr> <tr> <td><table width="430" cellspacing="0" cellpadding="0"> <tr> <td width="39"><strong><font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif">DDD:</font></strong></td> <td width="36"><div align="center"><font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif">(<%=CmdShowEntries("DDD")%>)</font></div></td> <td width="69"><strong><font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif">Telefone:</font></strong></td> <td width="284"><font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=CmdShowEntries("Telefone")%></font></td> </tr> </table></td> </tr> <tr> <td><table width="430" cellspacing="0" cellpadding="0"> <tr> <td width="47"><strong><font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif">Email:</font></strong></td> <td width="373"><font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif"> <%=CmdShowEntries("Email")%></font></td> </tr> </table></td> </tr> <tr> <td><table width="430" cellspacing="0" cellpadding="0"> <tr> <td width="47"><strong><font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif">T&iacute;tulo:</font></strong></td> <td width="361"><font color="#0000FF" size="2" face="Verdana, Arial, Helvetica, sans-serif"> <%=CmdShowEntries("Titulo")%></font></td> </tr> </table></td> </tr> <tr> <td><table width="430" cellspacing="0" cellpadding="0"> <tr> <td width="47"><strong><font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif">Autor:</font></strong></td> <td width="363"><font color="#0000FF" size="2" face="Verdana, Arial, Helvetica, sans-serif"> <%=CmdShowEntries("Autor")%></font></td> </tr> </table></td> </tr> <tr> <td><table width="430" cellspacing="0" cellpadding="0"> <tr> <td width="88" valign="top"><p><strong><font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif">Mensagem:</font></strong></p> <table width="75%" align="center" cellpadding="0" cellspacing="0"> <tr> <td><div align="center"><strong><font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif">Código</font></strong>:</div></td> </tr> <tr> <td><div align="center"><font color="#0000FF" size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=CmdShowEntries("CodMensagem")%></font></div></td> </tr> <tr> <td><div align="center"><strong><font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif">Status</font></strong>:</div></td> </tr> <tr> <td><div align="center"><font color="#0000FF" size="2" face="Verdana, Arial, Helvetica, sans-serif"><a href="altera_exibir_sua_mensagem.asp?CodMensagem1=<%=CmdShowEntries.Fields("CodMensagem")%>"><%=CmdShowEntries.Fields("Exibicao")%></a></font></div></td> </tr> </table> <div align="center"></div> <p><strong><font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif"></font></strong></p></td> <td width="340" valign="top"><div align="justify"><font color="#0000FF" size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=CmdShowEntries("Mensagem")%></font></div></td> </tr> </table></td> </tr> <tr> <td height="21" colspan="2"> <hr align="center" color="#FF0000" width="400"><br> </td> </tr> <% CmdShowEntries.MoveNext %> <% y = y + 1 %> <% if y = HOWMANY then %> <% while NOT CmdShowEntries.EOF %> <% CmdShowEntries.MoveNext %> <% wend %> <% end if %> <% wend %> <br> </table> <div align="center"><br> <table width="400" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td width="200"> <% If RCOUNT > 0 Then %> <form method="PUT" action="exibir_deixe_sua_mensagem_outro_jeito.asp"> <input type="hidden" name="ACTION" value="BACK"> <input type="hidden" name="RCOUNT" value="<% =RCOUNT %>"> <input type="hidden" name="PAGE" value="<% =PAGE %>"> <p align="left"><font face="Arial"> <input name="submit" type="submit" value="Página Anterior"> </font></p> </form> <% End If %> </td> <td width="200"> <% If PAGE = CmdShowEntries.PageCount Then %> <% Else %> <form method="PUT" action="exibir_deixe_sua_mensagem_outro_jeito.asp"> <input type="hidden" name="ACTION" value="FORWARD"> <input type="hidden" name="RCOUNT" value="<% =RCOUNT %>"> <input type="hidden" name="PAGE" value="<% =PAGE %>"> <p align="right"><font face="Arial"> <input name="submit" type="submit" value="Próxima Página"> </font></p> </form> <% End If %> </td> </tr> </table> </div> </div>
  3. regis12

    Iis Não Funciona Em Win2000pro

    uma questão respondeu regis12 em ASP

    Possivelmente, algum firewall do windows ou tipo zonealarm. Tive o mesmo problema. Apenas reistalei o zonealarm e pronto. Funcionou. Tente isso, talvez ajude.
  4. regis12

    Quebra De Linha Em Asp

    pergunta respondeu ao regis12 de regis12 em ASP

    dark0 eu fiz o que você mostrou, mas, não deu certo, não.
  5. regis12

    Quebra De Linha Em Asp

    uma questão postou regis12 ASP

    Fiz um livro de visitas em asp, ultilizando banco de dados, mas, me deparei com um problema. Independente da quantidade de caracteres, não existe quebra de linha, nas mensagens o texto vai da esquerda para a direita, direto e fica muito feio esteticamente. Quem puder me ajudar, desde já agradeço. <% ACTION = Request.Querystring("ACTION") %> <% PAGE = CInt(Request.Querystring("PAGE")) %> <% RCOUNT = CInt(Request.Querystring("RCOUNT")) %> <% If RCOUNT = "" Then %> <% RCOUNT = "0" %> <% End If %> <% Dim CmdShowEntries Dim MySQL '** Get initial recordset Set CmdShowEntries = Server.CreateObject("ADODB.Recordset") MySQL = "SELECT Livro.* FROM Livro WHERE (NOT (NAME IS NULL)) ORDER BY DATE_ENTERED DESC" CmdShowEntries.Open MySQL,Session("ConnGuestBook_ConnectionString"), 3 %> <% HOWMANY = 10 %> <% '** Determine Page Size CmdShowEntries.PageSize = HOWMANY %> <% If ACTION = "FORWARD" Then %> <% PAGE = PAGE + 1 %> <% RCOUNT = RCOUNT + HOWMANY %> <% For DACOUNT = 1 To RCOUNT %> <% CmdShowEntries.MoveNext %> <% Next %> <% End If %> <% If ACTION = "BACK" Then %> <% PAGE = PAGE - 1 %> <% RCOUNT = RCOUNT - HOWMANY %> <% If RCOUNT <> 0 Then %> <% For DACOUNT = 1 To RCOUNT %> <% CmdShowEntries.MoveNext %> <% Next %> <% End If %> <% End If %> <% If RCOUNT = "0" Then %> <% PAGE = 1 %> <p align="center"> <font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif"> <strong> <% If CmdShowEntries.RecordCount > 1 or CmdShowEntries.RecordCount = 0 Then %> Total de Assinaturas: <% =CmdShowEntries.RecordCount %> <% Else %> Total de Assinaturas: <% =CmdShowEntries.RecordCount %> <% End If %> </strong></font><br> <% If CmdShowEntries.RecordCount <> 0 And HOWMANY < CmdShowEntries.RecordCount Then %> <font color="#0000FF" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Últimas <% = HOWMANY %> Assinaturas</strong></font> <% End If %> <br> </font></p> <% End If %> <% If CmdShowEntries.RecordCount = 0 Then %> <% Response.End %> <% End If %> <hr color="#FF0000" width="440"> <table width="400" align="center" cellpadding="0" cellspacing="0"> <% y = 0 %> <% while NOT CmdShowEntries.EOF %> <tr> <td width="92"><font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Nome: </strong> </font></td> <td width="308"><font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><%= CmdShowEntries("NAME") %></font></td> </tr> <tr> <td><font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Email:</strong> </font></td> <td width="308"><a href="mailto:<%= CmdShowEntries("EMAIL") %>"><font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><%= CmdShowEntries("EMAIL") %></font></a></td> </tr> <tr> <td><font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Site:</strong> </font></td> <td width="308"><a href="<%= CmdShowEntries("URL") %>" Target="_blank" ><font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><%= CmdShowEntries("URL") %></font></a></td> </tr> <tr> <td><font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Data e Hora:</strong></font></td> <td width="308"><font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><%= CmdShowEntries("DATE_ENTERED") %></font></td> </tr> <tr> <td height="20"><font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif"> <strong>Nº IP:</strong></font></td> <td width="308"><font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><%= CmdShowEntries("IP_ADDRESS") %></font></td> </tr> <tr> <td height="20"><div align="left"><font color="#FF0000" face="Verdana, Arial, Helvetica, sans-serif" size="2"><strong>Mensagem:</strong></font></div></td> <td height="20" width="308"><font color="#FF0000" face="Verdana, Arial, Helvetica, sans-serif" size="2"><%=CmdShowEntries("MESSAGE")%></font></td> </tr> <tr> <td height="21" colspan="2"> <hr align="center" color="#FF0000" width="400"></td> </tr> <% CmdShowEntries.MoveNext %> <% y = y + 1 %> <% if y = HOWMANY then %> <% while NOT CmdShowEntries.EOF %> <% CmdShowEntries.MoveNext %> <% wend %> <% end if %> <% wend %> <br> </table> <br> <table width="400" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td width="200"><% If RCOUNT > 0 Then %> <form method="PUT" action="guestbook.asp"> <input type="hidden" name="ACTION" value="BACK"> <input type="hidden" name="RCOUNT" value="<% =RCOUNT %>"> <input type="hidden" name="PAGE" value="<% =PAGE %>"> <p align="left"><font face="Arial"> <input type="submit" value="Página Anterior"> </font></p> </form> <% End If %> </td> <td width="200"><% If PAGE = CmdShowEntries.PageCount Then %> <% Else %> <form method="PUT" action="guestbook.asp"> <input type="hidden" name="ACTION" value="FORWARD"> <input type="hidden" name="RCOUNT" value="<% =RCOUNT %>"> <input type="hidden" name="PAGE" value="<% =PAGE %>"> <p align="right"><font face="Arial"> <input type="submit" value="Próxima Página"> </font></p> </form> <% End If %> </td> </tr> </table>
×
×
  • Criar Novo...