regis12

Julho 25, 2005

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

Junho 1, 2005

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 %>

<% If RCOUNT = "0" Then %>

<% PAGE = 1 %>

<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 %>

Últimas

<% = HOWMANY %>

Assinaturas

<% End If %>

<br>

</strong> </font></p>

<% End If %>

<% If CmdShowEntries.RecordCount = 0 Then %>

</div>

<% Response.End %>

<% End If %>

</div>

<% y = 0 %>

<%

while NOT CmdShowEntries.EOF

%>

<tr>

<tr>

<td width="142"><strong><font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif">Código

do Cliente:</font></strong></td>

</tr>

</table></td>

</tr>

<tr>

<tr>

<td width="50"><font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Ip

nº:</strong></font></td>

<%=CmdShowEntries("Ip")%></font></td>

</tr>

</table></td>

</tr>

<tr>

<tr>

</tr>

</table></td>

</tr>

<tr>

<tr>

<td width="49"><strong><font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif">Login:</font></strong></td>

<%=CmdShowEntries("Login")%></font></td>

</tr>

</table></td>

</tr>

<tr>

<tr>

<td width="69"><strong><font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif">Telefone:</font></strong></td>

</tr>

</table></td>

</tr>

<tr>

<tr>

<td width="47"><strong><font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif">Email:</font></strong></td>

<%=CmdShowEntries("Email")%></font></td>

</tr>

</table></td>

</tr>

<tr>

<tr>

<td width="47"><strong><font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif">Título:</font></strong></td>

<%=CmdShowEntries("Titulo")%></font></td>

</tr>

</table></td>

</tr>

<tr>

<tr>

<td width="47"><strong><font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif">Autor:</font></strong></td>

<%=CmdShowEntries("Autor")%></font></td>

</tr>

</table></td>

</tr>

<tr>

<tr>

<td width="88" valign="top"><p><strong><font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif">Mensagem:</font></strong></p>

<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>

</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>

</tr>

</table>

</tr>

</table></td>

</tr>

<tr>

</td>

</tr>

<% CmdShowEntries.MoveNext %>

<% y = y + 1 %>

<% if y = HOWMANY then %>

<% while NOT CmdShowEntries.EOF %>

<% CmdShowEntries.MoveNext %>

<% wend %>

<% end if %>

<% wend %>

<br>

</table>

<tr>

</font></p>

</form>

<% End If %> </td>

</font></p>

</form>

<% End If %> </td>

</tr>

</table>

</div>

Fevereiro 9, 2005

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

Fevereiro 4, 2005

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

Fevereiro 4, 2005

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 %>

<% If RCOUNT = "0" Then %>

<% PAGE = 1 %>

<% 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 %>

<% 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>

</tr>

<tr>

<td><font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Email:</strong>

</font></td>

</tr>

<tr>

</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>

</tr>

<tr>

</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>

</tr>

<tr>

</tr>

<% CmdShowEntries.MoveNext %>

<% y = y + 1 %>

<% if y = HOWMANY then %>

<% while NOT CmdShowEntries.EOF %>

<% CmdShowEntries.MoveNext %>

<% wend %>

<% end if %>

<% wend %>

<br>

</table>

<br>

<tr>

</font></p>

</form>

<% End If %> </td>

</font></p>

</form>

<% End If %> </td>

</tr>

</table>

Entrar

regis12

Total de itens

Registro em

Última visita

Tipo de Conteúdo

Perfis

Fóruns

Posts postados por regis12

Html Rodando No Flash!

Atualizar Dados, Update

Iis Não Funciona Em Win2000pro

Quebra De Linha Em Asp

Quebra De Linha Em Asp

Navegação

Atividades