There have been 87 items by ecbert (Search limited from 20/04/2023)
Posted by
on 24/10/2003, 09:45
in
Mercado de Trabalho
Posted by
on 30/06/2003, 09:09
in
ASP
Posted by
on 30/04/2003, 07:41
in
ASP
Tenho uma página que monta outra chamada documento.asp que lista arquivos de um diretório.
Posted by
on 20/08/2003, 08:38
in
Teoria da arte e tipologia
Posted by
on 12/08/2003, 07:50
in
Editores Bitmap
Posted by
on 19/03/2004, 09:14
in
ASP
Posted by
on 31/07/2003, 18:39
in
ASP
Posted by
on 31/07/2003, 16:05
in
ASP
Posted by
on 04/11/2003, 15:48
in
Outras Linguagens e Tecnologias
Posted by
on 27/08/2003, 10:23
in
ASP
Posted by
on 09/05/2003, 08:01
in
ASP
Posted by
on 03/09/2003, 07:35
in
ASP
Posted by
on 06/06/2003, 08:32
in
ASP
Posted by
on 09/05/2003, 14:46
in
ASP
Posted by
on 30/03/2004, 14:55
in
Visual Basic
Public Function ExibirItens(codigo As Long, itens As Collection) As Boolean
On Error GoTo trata_erro_exibiritens
Dim strSQL As String
Set rsItensPedidos = New ADODB.Recordset
strSQL = "SELECT * FROM ItensPedidos WHERE CodigoPedido = " & codigo
rsItensPedidos.Open strSQL, oConexao, adOpenKeyset, adLockPessimistic
If rsItensPedidos.BOF Then
ExibirItens = True
Else
Set itens = New Collection
Dim oitemPedido As itens
Do While Not rsItensPedidos.EOF
Set oitemPedido = New Collection
With oitemPedido
.CodigoPedido = rsItensPedidos("CodigoPedido")
.CodigoProduto = rsItensPedidos("CodigoProduto")
.PrecoUnitario = rsItensPedidos("PrecoUnitario")
.Desconto = rsItensPedidos("Desconto")
End With
itens.Add oitemPedido
rsItensPedidos.movenext
Loop
End If
rsItensPedidos.Close
ExibirItens = True
Exit Sub
trata_erro_exibiritens:
MsgBox " Ocorreu um erro durante a tentativa de exibir o item de pedido para o codigo : " & codigo & vbCrLf & _
" Erro número : " & Err.Number & vbCrLf & _
" Detalhes : " & Err.Description
Excluir = False
End Function
Posted by
on 27/05/2003, 11:08
in
ASP
Html...
<%
if rs.eof then
Response.write("Não existe documento cadastrado para essa atividade.")
%>
<%else%>
<%=rs.Fields("localizacao").Value & "\" & rs.Fields("NomeArquivo").Value%>
// Nesta linha acima é que eu não sei como fazer
//Gostaria que ele abrisse dentro da célula onde tem esse código
html...
Posted by
on 27/05/2003, 13:25
in
ASP
Posted by
on 27/05/2003, 13:41
in
ASP
...
-->
<p>::: Membros cadastrados</p><%
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=dsntemp & "DBQ=" & server.mappath("../db/sw.mdb")
sqlstmt = "SELECT * FROM membros"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sqlstmt, DSNtemp, 3, 3
do while not rs.eof
%>
<table width="100%" border="0" class="text">
<tr>
<td colspan="3" class="titulo">Nome: <%=rs("nome")%></td>
</tr>
<tr>
<td width="17%" rowspan="3"><img src="membros/<%=rs("foto")%>"> </td>
<td width="74%">Nick: <%=rs("nick")%></td>
<td width="9%"> </td>
</tr>
<tr>
<td>Data de Nasc.: <%=rs("nasc")%></td>
<td> </td>
</tr>
<tr>
<td>Site: <a href="http://<%=rs("site")%>" target="_blank"><%=rs("site")%></a></td>
<td> </td>
</tr>
<tr>
<td colspan="3"><hr></td>
</tr>
</table>
<p>
<% if not rs.eof then%>
<% rs.movenext %>
<%end if%>
<%loop%></p>
<!-- InstanceEndEditable --></td>
</tr>
<tr>
<td height="19" colspan="2" valign="top"><!--DWLayoutEmptyCell--> </td>
</tr>
</table>
<table width="100%" height="43" border="0">
<tr>
<td background="../images/light_luz.jpg"> </td>
</tr>
</table>
<p> </p>
</body>
<!-- InstanceEnd --></html>
...
<%
varFoto = rsConsulta("foto")
if (varFoto = "") Then
varFoto = "imagem_padrao.jpg"
%>
<%else%>
<tr>
<td width="17%" rowspan="3"><img src="membros/<%=rs("foto")%>"> </td>
<%end if%>
...
Posted by
on 29/04/2003, 10:50
in
ASP
Posted by
on 12/08/2003, 10:25
in
Teoria da arte e tipologia
Posted by
on 22/05/2003, 08:24
in
ASP
Posted by
on 22/05/2003, 10:25
in
ASP
Posted by
on 22/05/2003, 09:48
in
ASP
Posted by
on 15/05/2003, 09:24
in
ASP
Posted by
on 07/07/2003, 08:16
in
Teoria da arte e tipologia
