![](https://forum.scriptbrasil.com.br/uploads/set_resources_1/84c1e40ea0e759e3f1505eb1788ddf3c_pattern.png)
victormartins
-
Total de itens
1.002 -
Registro em
-
Última visita
Posts postados por 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.
-
Vlw, vou dar uma olhada
-
Queria um tuto de Mask Layer alguém tem???
-
Eu já dei tudo quanto é permissão!!!
-
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í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"> <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"> </div> </tudo> </tr> </table> <br> <input type="submit" value="ENVIAR NOTÍ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
-
então posta outro aí!!
-
é isso msmo da erro na linha:
EmptyVal = MM_typeArray(2)
Mas não consegui corrigir
-
é 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> </p> </body> </html> <% Recordset1.Close() %>
Vlw!!!
-
Avaliem este site:
-
Help me please!! Eu do outros arquivos se necessarios
-
Antigo esse tópico mais ainda da erro!!!!!!!!!
Me ajudem!!!!
-
já dava esse erro qundo eu coloco com ou sem aspas
já dava esse erro qundo eu coloco com ou sem aspas
-
alguém me ajuda!!!
-
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
-
Esse codigo conta os cliques que as pessoas da no link que eu cadastrar
-
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 <_<
-
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!!!!
-
Me ajudem!!!!
-
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.
-
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!
-
é 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
%>
-
Quero enviar um email da minha pagina para duas pessoas em ASPMail, como fazer?
-
alguém me ajuda!!!!!!!!
Erro De Cadastro De Dado No Banco
em ASP
Postado
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