Developer
-
Total de itens
254 -
Registro em
-
Última visita
Tudo que Developer postou
-
<html> <head> <title>form_altera.asp</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head> <head> <% On error resume Next Dim objConn, stringSQL, strConnection, id id = Request.QueryString("radio") ' Conectando com o banco de dados contato.mdb Set objConn = Server.CreateObject("ADODB.Connection") Set objRS = Server.CreateObject("ADODB.Connection") objConn.Open "DBQ=" & Server.MapPath("../amarconsultoria.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password" stringSQL = "SELECT * FROM cadastro_funcionarios_centrais WHERE autonum = "&id Set objRS = objConn.Execute(stringSQL) 'Deletando registro da tabela cadastro_funcionarios_centrais onde esta a id if err <> 0 Then Response.Write "Ocorreu algum erro <br> <a href=""javascript:history.back(-1)"">Voltar</a>" else%> <form method="post" action="altera_dados.asp" name="form"> <input name="fone" id="fone" value="<%=objRS("fone")%>" size="50"> aqui vai o resto dos campos tals tasl tasl e etc etc etc.....
-
select * from TABELA where cidade='" & cidade & "' and idade=" & idade & "" IF recordset.EOF then response.write "não existe essa pessoa" else 'resto end if Entendeu?
-
Qual o erro que aparece na página?
-
Você fala um IIS instalado no PC? Criar conta de email pelo PC? Acho que não tem como...
-
OR sqlCatresultado_de_profissionais = "SELECT cidade FROM cidade " sqlCatresultado_de_profissionais = sqlCatresultado_de_profissionais & "WHERE cid_id = " & varCategoriaresultado_de_profissionais or sqlCatresultado_de_profissionais = sqlCatresultado_de_profissionais & "WHERE cid_id_02 = " & varCategoriaresultado_de_profissionais sqlProdresultado_de_profissionais = "SELECT * FROM profissionais " sqlProdresultado_de_profissionais = sqlProdresultado_de_profissionais & "WHERE cid_id = " & varCategoriaresultado_de_profissionais or sqlProdresultado_de_profissionais = sqlProdresultado_de_profissionais & "WHERE cid_id_02 = " & varCategoriaresultado_de_profissionais sqlProdresultado_de_profissionais = sqlProdresultado_de_profissionais & " ORDER BY id" O OR = "OU" e o AND = "E"
-
<% set ConnString = Server.CreateObject("ADODB.Connection") ConnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=xxxxxxxx\produtos.mdb;" sql = "SELECT * FROM Produtos WHERE IDProduto=" & Request.QueryString("id") & "" Set Registros = ConnString.Execute(sql) %> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <title>. : : xxxxx : : .</title> <style type="text/css"> <!-- .style1 { color: #FF0000; font-family: Arial, Helvetica, sans-serif; } --> </STYLE> </head> <body> <em><font face="Geneva, Arial, Helvetica, sans-serif"><strong>Categoria</strong></font> <strong><font face="Geneva, Arial, Helvetica, sans-serif">>></font></strong></em> <strong> <% =Registros("Categoria") %> </strong> <em><strong><font face="Geneva, Arial, Helvetica, sans-serif">></font></strong></em> <% Registros("Produto")%> <p> </p> <table width="322" height="145" border="0" bordercolor="#0000FF"> <% While NOT registros.EOF %> <tr> <td width="316"><div align="center"><font size="2"><strong><font size="2"><strong><font face="Courier New, Courier, mono"> </font></strong></font><font size="2"><strong><font face="Courier New, Courier, mono"> <%imagem1 = Registros("Imagem") & ".jpg" pasta ="xxxxx\web\imagens\" Set fso = CreateObject("Scripting.FileSystemObject") if (fso.FileExists(pasta & imagem1)) then Foto = "imagens/" & imagem1 else Foto = "imagens/indisponivel.jpg" end if %> </font></strong></font><font face="Courier New, Courier, mono"><img src ="<%= foto%>" width="130" height="120"></font></strong></font></div></td> <tr> <td><div align="center"><font size="2"><strong><font face="Courier New, Courier, mono"><%= Registros("Produto") %></font></strong></font></div></td> <tr> <td><div align="center"><%Registros("Fabricante")%></div></td> <tr> <td><div align="center"><%=Registros("Características")%></div></td> <tr> <td height="29"> <div align="center"><font size="2"><strong><font face="Courier New, Courier, mono">R$ <%= Registros("Preço") %></font></strong></font></div></td> <% Wend 'fecha as variaveis Registros.close set Registros = nothing %> </table> </body> </html>
-
textarea = request("textarea") conexao.execute "insert into textos (texto) values ('"&textarea&"')"
-
http://www.aspbrasil.com.br/conteudo/detal...466&Secao=DICAS To... Dicas de como usar um randomize
-
como assim? Explica melhor..
-
Esse trabalho deve ser muito legal... Eu tive trabalhando com um amigo meu... Na empresa dele.. Ele me ensinou como administrar uma empresa Quando eu crescer mais um pouco eu vou abrir uma...hahhahaha
-
tenta: Set Con= server.createobject("adodb.connection") DSN = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("\designmaster\bd\bd.mdb") Con.Open DSN randomize() Set RS= Server.CreateObject("ADODB.Recordset") RS.Open "SELECT * from banner order by numero*rnd ", con
-
Se você estiver estiver usando um form mail tem que ver se eles fizeram algum campo pra redirecionar pra alguma pagina...
-
Você colocou uma string com espaços?
-
Realmente sua função esta com problema, ela não esta pegando o ultimo elemento do vetor, tomei a liberdade de corrigi-la: Isso mesmo cyberalexxx! Era a mesma coisa que eu ia fazer no codigo...
-
Retirar Barra De Rolagem Do Textarea
pergunta respondeu ao talegall de Developer em HTML, XHTML, CSS
Acho que não tem não.... -
do until for x=0 to ctg variavel = FUNÇÃO("MEU PARAMETRO") next loop
-
tenta assim: do until for x=0 to Array(ctg) variavel = FUNÇÃO("MEU PARAMETRO") next loop O codigo em si está certo... ele não deve estar pegando o CTG
-
Rob_g2*6(sic)6, essa sua função está cortando, só aparece uma palavra... E corta o resto
-
Aonde você está criando essa variavel... UltimoArray
-
É.. Não tem como... <textarea name="campo"></textarea>
-
Ta tudo ai mano: http://www.aspbrasil.com.br/conteudo/detal...Secao=tutoriais
-
tenta assim.. public ctg ctg =0 for ctg=ctg to ctg+1 public FUNÇÂO ARRAY(ctg) end FUNÇÂO next
-
https://www.scriptbrasil.com.br/?class=6.4
-
Ele quer "O que eu preciso, é saber, depois da execução da query, se ele foi realizada ok ou deu erro na hora da execução, entende? " Eu verifiquei... E não tem como...