Bob Esponja
-
Total de itens
117 -
Registro em
-
Última visita
Tudo que Bob Esponja postou
-
Obrigado dark, os topicos me serviram sim. Vlw !!
-
E ai pessoal do JS, alguém pode me ajudar ?! Obrigado.
-
Isso ai dark.... enquanto o usuario digita, ele vai formatando o campo.
-
Pode fechar esse tópico... valeu !
-
Se é o que eu estou pensando, faz o seguinte: Mantenha pressionado SHIFT + F1, e Clique com o botao direito no arquivo (depois disso já pode largar o shift e o f1), depois vá em ABRIR COM e coloque ESCOLHER PROGRAMA. Selecione o DreamWeaver e marque a opção SEMPRE UTILIZAR O PROGRAMA SELECIONADO PARA ABRIR ESSE TIPO DE ARQUIVO. Espero que tenha te ajudado, Abraço.
-
Olá pessoal, gostaria de saber se alguém aqui do forum já utilizou mascara de entrada em um formulário ASP. Tipo aquelas que se você digitar o telefone ele coloca assim (**)****-**** ou então em cpf q ele coloca o tracinho *********-** Estava precisando saber como posso fazer isso. Se alguém puder me ajudar, posta ai. Abraços
-
Pelo que eu entendi, isso ai seria no caso de o usuário ter digitado algo com acento, "ç", etc... Esses caracteres podem não ser reconhecidos pelo seu banco de dados, então o Ideal seria substituí-los por caracteres sem acentos ou qualquer outro recurso gráfico. Espero ter ajudado, qualquer coisa, posta aí Abraço
-
podem fechar o tópico
-
Valeu brigadão pela ajuda.... mal a bobeira abraço
-
Dim conexao Dim conection Set conexao=Server.CreateObject("ADODB.Connection") conection.CursorLocation=3 '***ESSA E A LINHA 31 conection.open "DRIVER={SQL Server};server=myserverip;uid=usuario;pwd=senha;DATABASE=CEP;" '***ESSA E A LINHA 32 response.write("conexao ok") Tenho essa String de conexao, que deveria estar funcionando normalmente, mas o servidor acusa o mesmo erro sempre. O erro que dá é: No final do codigo, eu fecho a conexao e a string conection. alguém tem alguma sugestão do que possa estar causando esse erro ?? Obrigado.
-
Tenta isso ai e posta ai qualquer coisa.....
-
Mó distração..... tá marcado no código. end if %> <% Do While not TB.EOF %> <tr> <td width="100%"> <table border="0" width="100%"> <tr> <td width="100%"><%=TB("Cantor")%></td> </tr> <tr> <td width="100%"><%=TB("Titulo")%></td> </tr> <tr> <td width="100%"><%=TB("Ano")%></td> </tr> <tr> <td width="100%"><%=TB("Produtora")%></td> </tr> <tr> <td width="100%"><%=TB("Genero")%></td> </tr> <tr> <td width="100%"><%=TB("QTDMusicas")%></td> </tr> <tr> <td width="100%"> <hr> </td> </tr> <% TB.MoveNext Loop %>
-
Bother, seguinte.... qual dessas linhas acima, é a linha 69 ? Posta ai.... valeu
-
strQuery = "SELECT * FROM cadastro WHERE tipo='"&Request.Form("pesquisador")&"'" tenta assim q eu acho q vai resolver seu problema.... vlw !
-
Da uma olhada e ve se isso ai te ajuda.... <FORM METHOD="post" ACTION="enviar_email.asp" name=""> <p>Digite a baixo o assunto e o texto da mensagem que será enviada a todos os cadastrados.</p> Assunto: <INPUT TYPE="text" NAME="assunto" SIZE="20"> Texto: <TEXTAREA NAME="texto" cols="25" rows="10"></textarea> <INPUT type="submit" name="Submit" value="Enviar"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"> </FORM> Abaixo segue a programação! <% ConnString="DBQ=d:\algumacoisa\teste.mdb;Driver={Microsoft Access Driver (*.mdb)}" sqlstmt = "select nome, email from cadastro" Set Conn = Server.CreateObject("ADODB.Connection") set rsquery = conn.execute(sqlstmt) nr_emails_corretos = 0 nr_emails_errados = 0 nr_geral = 0 while not rsquery.eof Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.ContentType = "text/html" Mailer.RemoteHost = "smtp.algumacoisa.com.br" Mailer.FromName = "TESTE - ASPL" Mailer.FromAddress = "contato@algumacoisa.com.br" Mailer.AddRecipient rsquery("nome"),rsquery("email") Mailer.Subject=request.form("assunto") Mailer.Bodytext = "Caro <b>" & rsquery("nome") & ",</b><BR>" & request.form("texto") x = Mailer.SendMail if x = true then MSG = "E-MAIL ENVIADO COM SUCESSO!" nr_emails_corretos = nr_emails_corretos + 1 Else MSG = " O E-MAIL NÃO FOI ENVIADO COM SUCESSO!" nr_emails_errados = nr_emails_errados + 1 end if nr_geral = nr_geral + 1 Response.write nr_geral & " - " & MSG rsquery.movenext wend Response.write "Numero Total de Emails: " & nr_geral & "<BR>" Response.write "Numero de Emails enviados: " & nr_emails_corretos & "<BR>" Response.write "Numero de Emails não enviados: " & nr_emails_errados & "<BR>" rsquery.close set rsquery = nothing set conn = nothing %> Ajudou ? qualquer coisa posta ai. Abraço...
-
O código é imenso.... hehehe São 564 linhas pra ser mais preciso. A unica parte q interessa é essa mesmo. Vou postar o código até essa parte, mas se parecer meio confuso, não liguem não, ok ? Ai vai... <!-- #INCLUDE VIRTUAL="\database\connect.asp" --> <!-- #INCLUDE VIRTUAL="\database\pdemanda.asp" --> <% If Request("action")="" Then Response.Redirect "." Dim CPF CPF=Request("txtCPF") CPF=Left(CPF,9) & "-" & right(CPF,2) RSMuni.Open "SELECT * FROM tb_Municpios Where UF='RJ' ORDER BY Nome;", Con Dim Munis Do While Not RSMuni.EOF Munis=Munis & "<option value=""" & RSMuni("CODIGO") & """>" & RSMuni("NOME") & "</option>" & vbcrlf RSMuni.MoveNext Loop Dim ReadOnly,MSG if request("action")="readonly" then ReadOnly = " disabled " Select Case True Case Left(Request("action"),12)="invalidfield" Msg="O Campo '" & Mid(Request("action"),14) & "' não foi preenchido corretamente." & "<br>Você não pode efetuar seu cadastro sem preencher todos os campos obrigatórios." Case Left(Request("action"),12)="invalidvalue" Msg="O Campo '" & Mid(Request("action"),14) & "' é inválido." & "<br>Você não pode efetuar seu cadastro sem preencher todos os campos obrigatórios." End Select %> <% Dim conexao Set conexao=Server.CreateObject("ADODB.Connection") Con.CursorLocation=3 Con.open "DRIVER={SQL Server};server=SERVER_IP;uid=LOGIN;pwd=MY_PASSWORD;DATABASE=CEP;" Set RS=Server.CreateObject("ADODB.RecordSet") Set RS=Con.Execute("SELECT * FROM CEPRJ WHERE CEP8='" & Request("txtCEP") & "'") If RS.EOF Then %> <script language="Javascript"> alert ("CEP Não encontrado") </script> <% Else frmDados.txtEndereco.value=(RS("TIP_LOG")) & " " & (RS("NOME_LOG")) frmDados.txtBairro.value=(RS("BAIRRO_1")) End If set conexao=Nothing set RS=Nothing %> Melhorou ? obrigado.
-
O recordset já esta fechado. Set RS=Nothing na ultima linha do cod. A linha 33 e a seguinte: Con.open "DRIVER={SQL Server};server=IP_DO_MEU_SERVIDOR;uid=LOGIN;pwd=SENHA;DATABASE=CEP;" O erro continua.... ps. Me cadastrei no forum !