kuroi

em vez de union, não funciona se você fizer um join?

e se eu quiser adicionar um TextBox no objBody? tentei assim: Dim y As New TextBox objBody.Controls.Add(y)[/code] mas volta a mensagem: [code]Control 'ctl03' of type 'TextBox' must be placed inside a form tag with runat=server. Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code. Exception Details: System.Web.HttpException: Control 'ctl03' of type 'TextBox' must be placed inside a form tag with runat=server. consegui fazer assim: Dim x As New Literal x.Text = " <form name = 'imagens' method = 'post' action = 'gravaimagem.aspx'>" & _ "<center>" & _ "<table>" & _ "<td width = 190><b>Digite o Seu Nome:</b><td>" & _ "<input type = 'text' name = 'nome' size = 40 p style = 'color:#ffff33; background-color:#003366; font-weight:bold; font-family:verdana'><tr>" & _ "<td><b>Escolha sua Foto:</b><td>" & _ "<input type = 'file' name = 'path' size = 40 p style = 'color:#ffff33; background-color:#003366; font-weight:bold; font-family:verdana'><tr>" & _ "<td>" & _ "<td align = 'center'> <input type = 'submit' name = 'imagem' value = 'Gravar" & Chr(13) & "Imagem' p style = 'color:black;" & _ "background-color:white; font-size:12px; font-weight:bold; width:100; height:45; font-family:verdana;'>" & _ "</table>" & _ "</center>" objBody.Controls.Add(x)[/code] mas consigo adicionar o controle textbox? e pra por dentro de um formulario? e pra alterar o estilo css dele?

esquece, postei antes de ler seu ultimo post.

já tentou tirar essa linha? set con = server.CreateObject("adodb.connection")

acho que não andreia. faz o seguinte, desce a pagina toda, vai la embaixo onde tem um select com todos os forums do forum onde está escrito |-- ASP. selecione qualquer outro forum e vê que ele muda automaticamente. acho que é isso que ela quer, não? que quando você mudar o select ele de um redirect para a mesma pagina passando os parametros que vem do select. acho que não precisa de ajax pra isso, da pra fazer com asp não?

tem certeza que você já não criou a conexao em alguma outra parte do arquivo?

é tive esse mesmo problema também com o codigo do roll. isso é do explorer 6, se você fizer num navegador mais antigo, não vai ter esse problema. não sei como resolver, mas sei, com certeza, que não é asp. tente postar em javascript ou html.

<a href="#" onClick="javascript :window.close();">Sair</a> o problema e que o corretor do forum está separando javascript no meio da tag code.

javascript é junto: <a href="#" onClick="java script:window.close();">Sair</a>

não manjo dessa parte, mas acho que é so você copiar a funcao que voce iria por no click do botao no click do select. ou se você, caso tivesse o botao, estivesse utilizando um form, é se você montar o endereco com ? e =

o problema do speedy é limite de trafego e taxa de upload baixa. mas valeu, vou dar uma olhada nesse ipwave. o virtua era 50 conto eu já não sabia o que ia fazer pra pagar, ainda mais esse de satelite. valeu, se alguém ainda tiver alguma sugestao, poste aí fazendo o favor. EDITADO: liguei e ipwave so tem em taboao, não chega no jacana. alguém tem mais alguma sugestao?

então faca assim: sql2= "select * from blog where Month(data) =" & mês & " and Year(data) = " & ano

qual a descricao do erro? esse campo data aqui é de que tipo? aquele response.write sql2 que você deixou comentado, você viu o que ele retorna? poste aí. outra coisa, esse select está sem sentido nenhum. where data = mês and ano, o que você queria fazer nessa parte? seria tipo sql2= "select * from blog where data =" & mês & ano

você fez while not rs.eof mas não muda de registro nunca, ou seja, nunca vai ser eof e ele vai ficar pra sempre no while, ponha um movenext: <% dim meses(12) meses(1)="Janeiro" meses(2)="Fevereiro" meses(3)="Março" meses(4)="Abril" meses(5)="Maio" meses(6)="Junho" meses(7)="Julho" meses(8)="Agosto" meses(9)="Setembro" meses(10)="Outubro" meses(11)="Novembro" meses(12)="dezembro" Do while not rs.eof mês = month(rs("data")) ano = year(rs("data")) data = meses(mês)&" / "&ano%> <hr> <font color="333333" size=-2 face="verdana"><b><%=data%></b></font> <% rs.movenext loop %>[/code]

queria instalar banda larga em casa, mas o virtua e o ajato não chegam la e não quero por speedy porque é muito ruim. alguém conhece algum outro servico de banda larga que funcione no jáçanã (são paulo ZN), de preferencia a cabo? falam de banda larga a radio, mas não conheco nenhum provedor, quando procuro so encontro pra condominio. alguém sabe de algum servico que de pra eu instalar na minha casa?

cara foi mal, agora que vi que era adesivo e não etiqueta. vixe to ficando cego nesse caso acho melhor você ir numa grafica mesmo.

veja aqui: http://scriptbrasil.com.br/forum/index.php...topic=48769&hl=

da uma olhada nisso: se a sub esta num module, esse Me se refere a que? Me é um atalho pra acessar o form onde esta o codigo. se me não esta num formulario você não vai conseguir nada. outra coisa, existe um formulario com esse nome: "MDIForm1"?

pimaco é a fabricante das etiquetas. eles tem varios modelos e pra imprimir certinho no modelo que você comprou e em todas as etiquetas da folha, você precisa do programa deles (que é gratis).

em que formulario esta essa funcao? Function Centraliza(MDIForm1 As Controls) Me.Left = (MDIForm1.ScaleHeight - Me.Height) / 2 Me.Top = (MDIForm1.ScaleWidth - Me.Width) / 2 End Function[/code]

da pra imprimir em qualquer impressora sim, vai numa papelaria e compras as etiquetas da pimaco. você vai ter que instalar o software, mas da pra baixar do site http://www.pimaco.com.br/

então tente: Function Centraliza(MDIForm1 As Form) Me.Left = (MDIForm1.ScaleHeight - Me.Height) / 2 Me.Top = (MDIForm1.ScaleWidth - Me.Width) / 2 End Function[/code]

substitua TI e São Paulo pelo que o usuario tiver digitado. se tiver duvidas, você vai ter melhor retorno postando na sala de PHP do que aqui (como não conheco a linguagem não posso te ajudar).

o que é Frame?

tenta assim: Function Centraliza(MDIForm1 As Control) Me.Left = (MDIForm1.ScaleHeight - Me.Height) / 2 Me.Top = (MDIForm1.ScaleWidth - Me.Width) / 2 End Function[/code] veja que é Control em vez de Controls.