webdeveloper
-
Total de itens
411 -
Registro em
-
Última visita
Tudo que webdeveloper postou
-
Dá um Response.Write sqlTabela e vê os valores que estão aparecendo, pega a string e tenta inserir direto no banco, pode ser que esteja dando problema em algum campo.
-
Seguinte, eu nunca fiz upload de fotos nem de arquivos, dá uma pesquisada no fórum sobre este assunto. Vamos supor que você esteja gravando as fotos na pasta 'www.meusite.com.br/users/fotos', dentro dessa pasta estarao as fotos cujos nomes serão os id's dos usuários, assim: '46.jpg', '99.jpg', certo? Abaixo segue o codigo que mostra os usuarios de acordo com a consulta e a pagina que mostra a foto, levando em consideração as nomenclaturas acima. resultado.asp <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <% Set db = server.createobject("adodb.connection") db_conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("..\..\Dados\db.mdb") db.CursorLocation = 3 db.Open db_conn campo_busca = request("campo_busca") selecionado = request("selecionado") tab = Server.CreateObject("adodb.recordset") sql = "select * from Usuarios where " & selecionado & " LIKE '%" & campo_busca &"%'" set tab = db.execute(sql) if tab.eof then response.write "não foram encontrados registros" response.end else while not tab.eof Response.write "ID: " & tab("ID") & "<br>" Response.write "Nick: <a href='pag.asp?id=" & tab("Nome") & "' target=""_blank"">" & tab("Nome") & "</a><br>" tab.movenext wend end if %> pag.asp <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <% foto = Request.QueryString("id") & ".jpg" 'Recupera o id que está vindo da URL e junta com a extensao da foto Response.Write "Foto: <img src='www.meusite.com.br/users/fotos/'" & foto & "/ >" %> Um exemplo bem simples.
-
Neste caso no seu formulário tem que fazer upload da foto para alguma pasta, pois o access não aceita arquivos binários, e guardar em um campo o local onde foi guardada a foto, ai no link você chama a pagina 'pag.asp' e passa o id que você quer: <a href=""../fotos/pag.asp?id=46""> Na pagina 'pag.asp' tem que fazer um select no caminho da foto onde o id é o que foi recebido.
-
Tanto faz. <a href=""#"" target="_blank"> Tanto faz, ou você grava o endereço ou grava a foto no banco, dependendo do banco. ;)
-
Loop Em Blocos, Ler Xml, Inseri Banco, Atualiza Valor Do Atributo Xml
pergunta respondeu ao Alink de webdeveloper em ASP
Dá uma olhada neste link: http://www.w3schools.com/dom/default.asp -
Provedor OLE DB para Conexões Remotas As strings de conexões dadas a seguir podem ser usadas um provedor remoto Microsoft ( MS Remote). Este provedor informa a ADo para se comunicar com o servidor remoto (via RDS Datafactory) e a usar o provedor remoto que esta instalado no servidor remoto. MS Remote - Access (Jet) Usando um DSN ODBC na máquina remota: oConn.Open "Provider=MS Remote;" & _ "Remote Server=http://teste;" & _ "Remote Provider=MSDASQL;" & _ "DSN=AdvWorks;" & _ "Uid=admin;" & _ "Pwd=;" Usando um Provedor OLE DB Provider na máquina remota: oConn.Open "Provider=MS Remote;" &_ "Remote Server=http://carl2;" & _ "Remote Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=\somepath\mydb.mdb;", _ "admin", "" MS Remote - SQL Server Usando um DSN ODBC na máquina remota: oConn.Open "Provider=MS Remote;" & _ "Remote Server=http://teste;" & _ "Remote Provider=MSDASQL;" & _ "Network Library=DBMSSOCN;" & _ "DSN=Pubs;" & _ "Uid=sa;" & _ "Pwd=;" Usando um Provedor OLE DB Provider na máquina remota: oConn.Open "Provider=MS Remote;" & _ "Remote Server=http://teste;" & _ "Remote Provider=SQLOLEDB;" & _ "Network Library=DBMSSOCN;" & _ "Data Source=teste;" & _ "Initial Catalog=pubs;" & _ "User ID=sa;" & _ "Password=;" Para maiores informações veja: Microsoft OLE DB Remoting Provider Fonte: http://www.macoratti.net/con_ado.htm ;)
-
Faz assim: Response.write "ID: " & tab("ID") & "<br>" Response.write "Nick: <a href=""#"">" & tab("Nome") & "</a><br>" Mas o que você vai mostrar quando o cara clicar no nick???
-
Você pode usar um select só: select a.cod_produto, b.cod_cotacao, c.cod_pedido from table_produto a, table_cotacao b, table_pedido c where b.cod_produto = a.cod_produto and c.cod_produto = a.cod_produto and a.data_cad < getdate()-528 and b.data_cad < getdate()-365 and c,data_cad < getdate()-365 Tente e poste o resultado. ;)
-
Costumo fazer assim também, porém não uso 'Texto de validação', mas acho que isso não influencia em nada. Está retornando algum erro ou coisa do tipo???
-
O erro esta ocorrendo na conexao com a planilha, certifique-se de que o caminho e o nome da planilha que você colocou no arquivo 'conexao.inc' estão corretos. ;)
-
Tente assim: oRs.Open "Select * From Produtos", oConn 'Faz a consulta If Not oRs.EOF Then oRs.MoveFirst Do While Not oRs.EOF Response.Write oRs("Descricao") & " " & vbCrLf 'Mostra a descricao do produto oRs.MoveNext 'Move para o proximo produto If Not oRs.EOF Then 'Verifica se não acabou o recordset Response.Write oRs("Descricao") & " " & vbCrLf 'Mostra a descricao do outro produto oRs.MoveNext End If If Not oRs.EOF Then 'Verifica se não acabou o recordset Response.Write oRs("Descricao") & " " & vbCrLf 'Mostra a descricao do outro produto oRs.MoveNext End If Response.Write "<br />" & vbCrLf Loop Else Response.Write "Pesquisa não encontrou registros!" & vbCrLf End If Veja se resolve seu problema e poste o resultado. ;)
-
Tenta colocar o Script em um arquivo vbs, claro que você terá que adaptar o código.
-
Para campos Verdadeiro/Falso costumo usar números: 0=Falso | -1=Verdadeiro ;)
-
Dá uma olhada neste artigo: http://www.macoratti.net/asp_msc1.htm ;)
-
Tente fazer isso: Fonte: http://www.macoratti.net/con_ado.htm ;)
-
Primeiro, note o nome que você deu para o select: <form method="post" action="resultado.asp"> <select name="select"> 'Nome do campo "select" <option value="email">Email</option> Aqui você está solicitando errado: campo_busca = request("campo_busca") selecionado = request("selecionado") 'O correto seria selecionado = request("select") Segundo, pra que duas query's??? sql = "select * from Usuarios where Nome LIKE '%"&selecionado&"%' like '%"&campo_busca&"%'" 'Não entendi o porque dos dois Like's sql = "select * from Usuarios where Email LIKE '%"&selecionado&"%'" 'Este é o mais correto, porém nessecita de um ajuste 'Tente alterar para isso sql = "select * from Usuarios where " & selecionado & " LIKE '%" & campo_busca &"%'" Assim, sua query fica dinamica, o campo vai vir do combo "select" e o valor a ser buscado vai vir do campo "campo_busca". Poste o resultado. ;)
-
O erro está aqui: ConnString = objConn.Open "Driver={Microsoft Excel Driver (*.xls)};DBQ=teste.xls" Substitua por: ConnString = "Driver={Microsoft Excel Driver (*.xls)};DBQ=teste.xls" ;)
-
Dá pra fazer assim como você faz com Access só muda a string de conexão. Dim objConn Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "Driver={Microsoft Excel Driver (*.xls)};DBQ=arquivo_excel.xls" ;)
-
No meu caso também ocorria um erro, não era o mesmo que o seu, porém com o código abaixo funcionou normalmente. <% Set objCDOSYSMail = Server.CreateObject("CDO.Message") Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.seuservidor.com.br" objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 objCDOSYSCon.Fields.Update Set objCDOSYSMail.Configuration = objCDOSYSCon objCDOSYSMail.From = remetente objCDOSYSMail.To = destinatario objCDOSYSMail.CC = copiado objCDOSYSMail.AddAttachment arq objCDOSYSMail.Subject = "Teste do CDONTS" objCDOSYSMail.TextBody = "Funcionou!" objCDOSYSMail.Send Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing %> Fonte: http://forum.imasters.com.br/index.php?sho...st&p=792289
-
Ficaria assim: <%=Mid((af.Fields.Item("DT_ACAT").Value), 1, 2)%> 'Pega o dia A sintaxe do Mid é a seguinte: Mid(String, CaracterInicial, QuantidadeCaracteres) Explicando ele pega a String e retorna o texto partir do CaracterInicial mais a QuantidadeCaracteres. Exemplo: String = "120507" Para pegar somente o dia "12" Mid(String, 1, 2) Se você fizer assim: Mid(String, 1, 6) Vai retornar "120507" O Mid funciona como o Right ou Left, porém além da String e da QuantidadeCaracter, presente no Right e Left, ele tem um parametro a mais, que é o CaracterInicial, ele é equivalente ao Substr de algumas linguagens. ;)
-
Você pode usar o XMLHttpRequest. Leia mais aqui http://www.w3schools.com/dom/dom_http.asp (Inglês) Ou aqui http://scriptbrasil.com.br/forum/index.php?showforum=6 ;)
-
Assim funciona ???? select... where month(dat_aniver) in ( month(dat_inicial), month(dat_final) ) 'Fica a criterio do usuario ... ;)
-
Tenta usar Excel.Application, o script para mesclar e centralizar segue abaixo: Range("A1:C1").Select 'Celulas a serem mescladas With Selection .HorizontalAlignment = xlCenter 'Centraliza .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Selection.Merge 'Mescla ;)
-
Tente passar entre aspas: ... Response.Write ("&texto=""" & teste & """") ... ;)
-
Você pode fazer uma consulta buscando todas as datas que pertecem a um determinado mês: select... where month(dat_aniver) = 2 'Fevereiro ... ou select... where month(dat_aniver) in ( 2, 3 ) 'Fevereiro, Março ... Depois você formata os resultados. ;)