Ir para conteúdo
Fórum Script Brasil

victormartins

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    1.002

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Tudo que victormartins postou

  1. victormartins
    Bom tenho um cadastro de noticia do site aqui, só que no meu computador não funciona, mas no notebook do meu pai funciona. Aqui vao o erro: Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80004005) [Microsoft][Driver ODBC para Microsoft Access] A operação deve usar uma consulta atualizável. /igrcorisco/submit.asp, line 109
  2. victormartins
    Vlw
  3. victormartins
    O sistema de login aqui que eu toh fazendo ele manda redirecionar quando não é verdadeiro o login, o problema é quando o login é falso ele não redireciona e da esse erro: Tipo de erro: ADODB.Field (0x800A0BCD) BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual. /corisco/login.asp, line 11 login.asp <% set conexao = server.createObject("adodb.connection") conexao.Open "Provider=Microsoft.JET.OLEDB.4.0; Data Source=" & server.MapPath("dados/L/g/v/naovaidescobrir.mdb") sql = "select * from login where login = '"&request.form("login")&"' and senha = '"&request.form("senha")&"'" set rsLogin = conexao.execute(sql) Login = rsLogin("login") Senha = rsLogin("senha") if not rsLogin.eof then Session("login")=TRUE Session("senha")=TRUE Session.Timeout = 120 Response.Redirect"admin.asp" else Session("login")=False Session("senha")=False Response.Redirect"logar.asp" end if conexao.close rsLogin.close set conexao = nothing set rsLogin = nothing %> Vlw.
  4. victormartins
    Vlw, vou dar uma olhada
  5. victormartins
    Queria um tuto de Mask Layer alguém tem???
  6. victormartins

    Inserir Dando!

    pergunta respondeu ao victormartins de victormartins em ASP

    Eu já dei tudo quanto é permissão!!!
  7. victormartins

    Inserir Dando!

    uma questão postou victormartins ASP

    Quando vou inserir um dado no bd ele da esse erro: Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80004005) [Microsoft][Driver ODBC para Microsoft Access] A operação deve usar uma consulta atualizável. /corisco/submit.asp, line 109 submit.asp <!--#include file="config.asp"--> <% if session("usuario") = "" and session("senha") = "" then response.redirect "logar.asp" end if %> <html> <head> <title><%=TS%></title> <link rel="stylesheet" type="text/css" href="estilo.css"> <style> input {border: 2 solid #000000} </style> <script language=Javascript> function preview1(){ if (form.name1.value == ""){ div1.innerHTML = "<p align=center><br><br><br><br><b>É recomendado que você de um titulo a notícia!<br><br><input type='text' name='name1' value='' size='62' onchange=name1change()><br><br>Coloque acima o titulo para continuar!</b></p>"} else{ div1.innerHTML = "<B>"+ form.name1.value + "--" + form.date1.value + "</b><br><br>" + form.Entry1.value} } function name1change(){ form.name1.value = form.name2.value } </script> </head> <body text="#000000" background="imagens/bg.gif"> <% inputnum = request.querystring("inputnum") If IsEmpty(inputnum) or inputnum = "" then %> <form id=form method="POST" action="submit.asp?inputnum=1"> <center> <table border="1" cellpadding="3" cellspacing="0" width="450" bordercolor="#000000" bgcolor="#C0C0C0"> <tr> <tudo align="center" bgcolor="#FFCC00"><b>INSERIR</b></tudo> </tr> <tr> <tudo align="center" bgcolor="#FFFFFF"> <table border="0" cellpadding="0" cellspacing="0" width="448" bordercolor="#000000" bgcolor="#C0C0C0"> <tr> <tudo width="100%" align="left" bgcolor="#FFFFFF" valign="middle"><b>T&iacute;tulo.:</b></tudo> <tudo width="100%" align="left" bgcolor="#FFFFFF"> <input type="text" name="name1" value="" size="62"> </tudo> </tr> <tr> <tudo width="100%" align="left" bgcolor="#FFFFFF" height="168" valign="top"><b><br> <br> Noticia.:</b></tudo> <tudo width="100%" align="left" bgcolor="#FFFFFF" height="168"><font size="2" face="Verdana"> <textarea rows="8" name="Entry1" cols="47" style="border-style: solid; border-width: 2"> </textarea> </font> </tudo> </tr> <tr> <tudo width="100%" align="left" bgcolor="#FFFFFF" valign="middle"><b>Data.:</b></tudo> <tudo width="100%" align="left" bgcolor="#FFFFFF"> <input type="text" name="date1" value="<%=Date%>" size="13"> &nbsp;&nbsp;&nbsp; <b><a onClick="preview1()" name="prev" href="#prev">Clique aqui para visualizar a noticia</a></b> </tudo> </tr> </table> </tudo> </tr> </table> <br> <br> <table border="1" cellpadding="3" cellspacing="0" width="450" bordercolor="#000000" bgcolor="#C0C0C0"> <tr> <tudo align="center" bgcolor="#FFCC00"><b>VISUALIZAR</b></tudo> </tr> <tr> <tudo align="center" bgcolor="#FFFFFF"> <div id="div1" style="width: 448; height: 220">&nbsp;</div> </tudo> </tr> </table> <br> <input type="submit" value="ENVIAR NOT&Iacute;CIA PARA O SITE" name="B1"></center> </form> <% else data = request.form("date1") If data = "" Then data = date() dia = DatePart("d", data) If dia < 10 Then dia = "0"&dia mês = DatePart("m", data) If mês < 10 Then mês = "0"&mês ano = DatePart("yyyy", data) data = dia & "/" & mês & "/" & ano titulo = request.form("name1") titulo = Replace(request.form("name1"), "'", "''") titulo = Replace(Request.Form("name1"), Chr(13), "<br>") entry1 = request.form("Entry1") entry1 = Replace(Request.Form("Entry1"), "'", "''") entry1 = Replace(Request.Form("Entry1"), Chr(13), "<br>") Set Conn = Server.CreateObject("adodb.connection") conn.Open Dados SQLstmt = "INSERT INTO noticias2 (titulo,data,materia)" SQLstmt = SQLstmt & " VALUES (" SQLstmt = SQLstmt & "'" & titulo & "'," SQLstmt = SQLstmt & "'" & data & "'," SQLstmt = SQLstmt & "'" & entry1 & "'" SQLstmt = SQLstmt & ")" Set RS = conn.execute(SQLstmt) response.redirect "submit2.asp?id=1" end if %> </body> muito estranho porque a puco tempo atras funcionava! Eu já reiniciei o IIS varias vezes, já reinicie o comp varaias vezes e nd!!!! Vlw
  8. victormartins
    então posta outro aí!!
  9. victormartins
    é isso msmo da erro na linha: EmptyVal = MM_typeArray(2) Mas não consegui corrigir
  10. victormartins
    é o seguinte o site que estou desenvolvendo ele tem uma atualizacao de busca, ele vem os campos certinhos, só que quando eu clico em atualizar ele da esse erro: Tipo de erro: Erro de tempo de execução do Microsoft VBScript (0x800A0009) Subscrito fora do intervalo: '[number: 2]' /agua/atualizar_form.asp, line 63 atualizar_form.asp <%@LANGUAGE="VBSCRIPT"%> <!--#include file="Connections/cadastro.asp" --> <% MM_editAction = CStr(Request("URL")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Request.QueryString End If ' boolean to abort record edit MM_abortEdit = false ' query string to execute MM_editQuery = "" %> <% ' *** Update Record: set variables If (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> "") Then MM_editConnection = MM_cadastro_STRING MM_editTable = "cadastro_cliente" MM_editColumn = "cod" MM_recordId = "" + Request.Form("MM_recordId") + "" MM_editRedirectUrl = "confirma_atualizacao.asp" MM_fieldsStr = "nome|value|link|value|descricao|value|imagem|value|atividade|value|breve|value|email|value|endereco|value|end2|value|tel|value|funcio|value|cep|value" MM_columnsStr = "nome|',none,''|link|',none,''|descricao|',none,''|imagem|',none,''|atividade|',none,''|breve|',none,''|email|',none,''|endereco|',none,''|end2|',none,''|tel|',none''|funcio|',none''|cep|',none,NULL" ' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|") ' set the form values For i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(i+1) = CStr(Request.Form(MM_fields(i))) Next ' append the query string to the redirect URL If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If End If %> <% ' *** Update Record: construct a sql update statement and execute it If (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> "") Then ' create the sql update statement MM_editQuery = "update " & MM_editTable & " set " For i = LBound(MM_fields) To UBound(MM_fields) Step 2 FormVal = MM_fields(i+1) MM_typeArray = Split(MM_columns(i+1),",") Delim = MM_typeArray(0) If (Delim = "none") Then Delim = "" AltVal = MM_typeArray(1) If (AltVal = "none") Then AltVal = "" EmptyVal = MM_typeArray(2) If (EmptyVal = "none") Then EmptyVal = "" If (FormVal = "") Then FormVal = EmptyVal Else If (AltVal <> "") Then FormVal = AltVal ElseIf (Delim = "'") Then ' escape quotes FormVal = "'" & Replace(FormVal,"'","''") & "'" Else FormVal = Delim + FormVal + Delim End If End If If (i <> LBound(MM_fields)) Then MM_editQuery = MM_editQuery & "," End If MM_editQuery = MM_editQuery & MM_columns(i) & " = " & FormVal Next MM_editQuery = MM_editQuery & " where " & MM_editColumn & " = " & MM_recordId If (Not MM_abortEdit) Then ' execute the update Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close If (MM_editRedirectUrl <> "") Then Response.Redirect(MM_editRedirectUrl) End If End If End If %> <% Dim Recordset1__Cod Recordset1__Cod = "0" if (request.querystring("cadastro_cliente") <> "") then Recordset1__Cod = request.querystring("cadastro_cliente") %> <% set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_cadastro_STRING Recordset1.Source = "SELECT * FROM cadastro_cliente WHERE cod = " + Replace(Recordset1__Cod, "'", "''") + "" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 3 Recordset1.Open() Recordset1_numRows = 0 %> <html> <head> <title>Untitled Document</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body bgcolor="#FFFFFF" text="#000000"> <form method="post" action="<%=MM_editAction%>" name="form1"> <table align="center"> <tr valign="baseline"> <tudo nowrap align="right" bgcolor="#6699FF"><b><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Nome:</font></b></tudo> <tudo bgcolor="#D5E2FF"> <input type="text" name="nome" value="<%=(Recordset1.Fields.Item("nome").Value)%>" size="32"> </tudo> </tr> <tr valign="baseline"> <tudo nowrap align="right" bgcolor="#6699FF"><b><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Site:</font></b></tudo> <tudo bgcolor="#D5E2FF"> <input type="text" name="link" value="<%=(Recordset1.Fields.Item("link").Value)%>" size="32"> </tudo> </tr> <tr valign="baseline"> <tudo nowrap align="right" bgcolor="#6699FF"><b><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Descrição link:</font></b></tudo> <tudo bgcolor="#D5E2FF"> <input type="text" name="descricao" value="<%=(Recordset1.Fields.Item("descricao").Value)%>" size="32"> </tudo> </tr> <tr valign="baseline"> <tudo nowrap align="right" bgcolor="#6699FF"><b><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Imagem:</font></b></tudo> <tudo bgcolor="#D5E2FF"> <input type="text" name="imagem" value="<%=(Recordset1.Fields.Item("imagem").Value)%>" size="32"> </tudo> </tr> <tr valign="baseline"> <tudo nowrap align="right" bgcolor="#6699FF"><b><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Atividade:</font></b></tudo> <tudo bgcolor="#D5E2FF"> <input type="text" name="atividade" value="<%=(Recordset1.Fields.Item("atividade").Value)%>" size="32"> </tudo> </tr> <tr valign="baseline"> <tudo nowrap align="right" bgcolor="#6699FF"><b><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Descrição loja:</font></b></tudo> <tudo bgcolor="#D5E2FF"> <input type="text" name="breve" value="<%=(Recordset1.Fields.Item("breve").Value)%>" size="32"> </tudo> </tr> <tr valign="baseline"> <tudo nowrap align="right" bgcolor="#6699FF"><b><font size="2" face="Verdana, Arial, Helvetica, sans-serif">E-mail:</font></b></tudo> <tudo bgcolor="#D5E2FF"> <input type="text" name="email" value="<%=(Recordset1.Fields.Item("email").Value)%>" size="32"> </tudo> </tr> <tr valign="baseline"> <tudo nowrap align="right" bgcolor="#6699FF"><b><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Endereço:</font></b></tudo> <tudo bgcolor="#D5E2FF"> <input type="text" name="endereco" value="<%=(Recordset1.Fields.Item("endereco").Value)%>" size="32"> </tudo> </tr> <tr valign="baseline"> <tudo nowrap align="right" bgcolor="#6699FF"><b><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Endereço 2:</font></b></tudo> <tudo bgcolor="#D5E2FF"> <input type="text" name="end2" value="<%=(Recordset1.Fields.Item("end2").Value)%>" size="32"> </tudo> </tr> <tr valign="baseline"> <tudo nowrap align="right" bgcolor="#6699FF"><b><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Telefone:</font></b></tudo> <tudo bgcolor="#D5E2FF"> <input type="text" name="tel" value="<%=(Recordset1.Fields.Item("tel").Value)%>" size="32"> </tudo> </tr> <tr valign="baseline"> <tudo nowrap align="right" bgcolor="#6699FF"><b><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Funcionamento:</font></b></tudo> <tudo bgcolor="#D5E2FF"> <input type="text" name="funcio" value="<%=(Recordset1.Fields.Item("funcio").Value)%>" size="32"> </tudo> </tr> <tr valign="baseline" bgcolor="#6699FF"> <tudo nowrap align="right" colspan="2" bgcolor="#6699FF"> <div align="center"> <input type="submit" value="( Atualizar )"> </div> </tudo> </tr> </table> <input type="hidden" name="MM_update" value="true"> <input type="hidden" name="MM_recordId" value="<%= Recordset1.Fields.Item("cod").Value %>"> </form> <p>&nbsp;</p> </body> </html> <% Recordset1.Close() %> Vlw!!!
  11. victormartins
    Avaliem este site:
  12. victormartins
    Help me please!! Eu do outros arquivos se necessarios
  13. victormartins
    Antigo esse tópico mais ainda da erro!!!!!!!!! Me ajudem!!!!
  14. victormartins
    já dava esse erro qundo eu coloco com ou sem aspas já dava esse erro qundo eu coloco com ou sem aspas
  15. victormartins
    alguém me ajuda!!!
  16. victormartins
    Isso dai também não funciona eu tentei também, ele da esse erro: Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80004005) [Microsoft][Driver ODBC para Microsoft Access] A operação deve usar uma consulta atualizável. /juba/contaclique/clicks.asp, line 45
  17. victormartins
    Esse codigo conta os cliques que as pessoas da no link que eu cadastrar
  18. victormartins
    Fiz um conta clique só que tem um problema ele não esta redirecionando! clicks.asp <% ' Valor para url url=trim(request.querystring("url")) ' se a url não for detectada ele ' mostra todos os links if url="" then %> <html> <title>Yeshua DIGITAL STUDIO Redir</title> <head> <base target="_blank"> </head> <body bgcolor="#FFFFFF"> <a href="clicks.asp?url=http://www.yahoo.com">Yahoo</a> </body> </html> <% ' se a url for detectada ele adiciona para o bd ' e redireciona para o site else %> <% ' Pegar IP ip=request.servervariables("remote_addr") ' Nome do bd accessdb="clicks.mdb" ' Cria uma conexão com o bd cn="DRIVER={Microsoft Access Driver (*.mdb)};" cn=cn & "DBQ=" & server.mappath(accessdb) ' set rs = server.createobject("ADODB.Recordset") ' SQL vai inserir IP, url e clique sql = "insert into clicks (url,ip) values('"& url &"','"& ip &"')" ' insere valores no bd rs.open sql, cn ' fecha connection set rs=nothing ' redirecionamento da url Response.Redirect "url" %> <% end if ' final da checagem se a url é válida %> Vlw <_<
  19. victormartins
    não é que era isso mesmo!!!! Eu já sei porque tava assim!! Eu tava fazendo um preload e coloquei em dinamic e esqueci de tirar!!! Vlw!!!!
  20. victormartins
    Me ajudem!!!!
  21. victormartins
    Tenho o Flash 8 Pro, quando eu adiciono o efeito fade in ou fade out, na hora de exportar ele não funciona e exibe o texto sem o efeito de aparecer! muito estranho pois eu usava esse efeito sem problema.
  22. victormartins
    Eu desenvolvi uma apresentação pra um site, só que eu queria que quando terminasse a animaçao ele fosse para index.htm (um exemplo), mas como??? Vlw!
  23. victormartins
    é para 2 PESSOAS!!!!!!! já descobri! envia.asp <% Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.RemoteHost = "mail.ddddds.com.br" Mailer.FromName = request.form("nome") Mailer.FromAddress = request.form("email") Mailer.AddRecipient "fsdfsdf" , "dsfsdf@bhd.com.br" Mailer.AddRecipient "Victor Martins" , "fsdfdf" Mailer.Subject = "Formulário de contato" Mailer.BodyText = "Nome: " & request.form("nome") & vbcrlf Mailer.BodyText = "E-mail: " & request.form("email") & vbcrlf Mailer.BodyText = "Telefone: " & request.form("telefone") & vbcrlf Mailer.BodyText = "Mensagem: " & request.form("mensagem") & vbcrlf if Mailer.SendMail then Response.redirect "ok.asp" else Response.Write mailer.response end if %>
  24. victormartins
    Quero enviar um email da minha pagina para duas pessoas em ASPMail, como fazer?
  25. victormartins
    alguém me ajuda!!!!!!!!
×
×
  • Criar Novo...