ecbert

Pessoal, onde está o erro aqui...
a página não aparece...

<%


Dim fso, f, f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(server.MapPath("/pasta1/pasta2"))
Set fc = f.files
%>

<table>
<tr>
<td><b><font face="Verdana" size="2">Documento</font></b></td>
</tr>
<tr><td>
<font size="2" face="Verdana">
<%For Each f1 in fc%>

<a href="<%=&fl.name%>"><%=&fl.name%></a>

<%Next%>
</font>
</td></tr>
</table>


Até mais e obrigada

O que há de errado na implementação deste método?

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

Dá esse famoso erro:
Compiler error: User-defined type not defined
na linha do Dim oitemPedido As itens

o que acontece?

Pessoal, porque eu não consigo ver as notícias do meu site quando coloco-as como memorando no banco (access)...

Se elas ficam como texto, tudo bem, aparecem!

Mas não dá pra usar texto por causa do tamanho das mensagens...

Daí eu mudo para memorando e vem o erro 80020009.....

Podem me ajudar para que eu não precise mudar para o SQL...?


Obrigada e até mais.

Pessoal, já entrei em um monte de lugares para ver se acho algo parecido com isso que pretendo fazer, mas não acho nada... ninguém me dá uma luz se dá ou não para fazer isso.

Olhem essa tela, acho que explica tudo. Por favor me dêem uma luz, não aguento mais pensar numa solução pra isso. Obrigada e até mais.

Oi pessoal...

Não costumo trabalhar com a parte de impressão e quando acontece é coisa simples em sulfite etc...

Outro dia precisei imprimir uma página em papel couchet, mas não gostei da qualidade da imagem depois que saiu da impressora.
Utilizo uma Hp 1220C printer. Coloquei para imprimir com qualidade de foto mas não ficou bom. Experimentei mais umas duas configurações e também não ficou do jeito que queria.

Qual a configuração que devo utilizar para ficar boa a impressão da imagem?

Obrigada e até mais.