Ir para conteúdo
Fórum Script Brasil

victormartins

Membros
  • Total de itens

    1.002
  • Registro em

  • Última visita

Tudo que victormartins postou

  1. 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. 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.
  3. victormartins

    Inserir Dando!

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

    Inserir Dando!

    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
  5. é isso msmo da erro na linha: EmptyVal = MM_typeArray(2) Mas não consegui corrigir
  6. é 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!!!
  7. Help me please!! Eu do outros arquivos se necessarios
  8. Antigo esse tópico mais ainda da erro!!!!!!!!! Me ajudem!!!!
  9. já dava esse erro qundo eu coloco com ou sem aspas já dava esse erro qundo eu coloco com ou sem aspas
  10. 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
  11. Esse codigo conta os cliques que as pessoas da no link que eu cadastrar
  12. 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 <_<
  13. 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!!!!
  14. 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.
  15. 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!
  16. é 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 %>
  17. Quero enviar um email da minha pagina para duas pessoas em ASPMail, como fazer?
  18. alguém me ajuda!!!!!!!!
×
×
  • Criar Novo...