sergiotp
-
Total de itens
102 -
Registro em
-
Última visita
Tudo que sergiotp postou
-
essa msg ai em cima sou eu esqueci de me logar hehehehehe abraços
-
Salve grande Manwë Súlimo Tu tava correto, testei aqui e o erro tava ali mesmo Vlw por ajudar ae cara E o dark pode fechar o tópico ae. Vlw glr Abraços
-
Ae glr ta dando o seguinte erro Sendo q eu to usando o mesmo drive em diversas paginas e em umas da erro e em outras não porque isso ocorre?? Desde já agradeço Abraços
-
E ae bareta q q deu? tu testo ae?
-
beleza bareta fico no aguardo, mas o estranho é q o codigo do dataform ta incluindo normal, eu igualei o meu com o do dataform e continua incluido 2 registro, depois q tu testar ae, tu posta aq o que você percebeu Vlw ae. Abraços
-
Ta assim agora Código do formulario q se chama incluir_coluna.asp <style type="text/css"> <!-- body { margin-left: 0px; margin-top: 0px; margin-right: 0px; margin-bottom: 0px; } .style1 { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; } --> </style> <form name="form1" method="post" action="scoluna.asp"> <table width="778" border="1" cellpadding="0" cellspacing="0" bordercolor="#000000"> <tr> <td width="108" class="style1">Data:</td> <td width="664"><input name="data" type="text" id="data"> </td> </tr> <tr> <td class="style1">Sobre o que é :</td> <td><input name="sobre" type="text" id="sobre"></td> </tr> <tr> <td class="style1">Texto:</td> <td><textarea name="texto" cols="50" rows="7" id="texto"></textarea></td> </tr> <tr> <td colspan="2" class="style1"><div align="center"> <input type="submit" name="Submit" value="Enviar"> </div></td> </tr> <tr> <td colspan="2" class="style1"><div align="center">*Lembrando que todos os dados saum obrigatórios </div></td> </tr> </table> </form> Código q recebe as variaveis do form e as incluem no bd, a pag chama scoluna.asp <% If IsEmpty( Request.Form("submit") ) Then %> <% Else If Not IsEmpty(Request.Form("submit")) AND Trim(Request.Form("data")) <> "" AND Trim(Request.Form("sobre")) <> "" AND Trim(Request.Form("texto")) <> "" Then Set Conexao = Server.CreateObject("ADODB.Connection") Dim Dbq Dbq = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("coluna.mdb") & ";Persist Security Info=False;Jet OLEDB:Database Password=" Conexao.Open Dbq data = Request.form("data") sobre = Request.form("sobre") texto = Request.form("texto") Sql = "Insert Into dados(data,sobre,texto) Values ('"& data & "', '"& sobre & "', '"& texto & "' )" Set Rs = Conexao.Execute(Sql) Rs.open Conexao.close Set rs = Nothing Set conexao = Nothing%> <% Else %> <% End If End If %> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <title>Untitled Document</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <style type="text/css"> <!-- .style5 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; } --> </style> </head> <body> <p><br> </p> <p align="center"> </p> <table width="576" border="2" align="center" bordercolor="#000000"> <tr bgcolor="#999999"> <td colspan="2" align="center" valign="top" class="style5" scope="col">Os dados enviados por você foram: </td> </tr> <tr> <td width="138" align="center" valign="top" bgcolor="#CCCCCC" scope="col"><span class="style5">Data:</span></td> <th width="634" align="center" valign="top" scope="col"><%=request.form("data")%></th> </tr> <tr> <td align="center" valign="top" bgcolor="#CCCCCC"><span class="style5">Sobre o que é: </span></td> <td align="center" valign="top"><%=request.form("sobre")%></td> </tr> <tr> <td align="center" valign="top" bgcolor="#CCCCCC"><span class="style5">Texto:</span></td> <td align="center" valign="top"><%=request.form("texto")%></td> </tr> </table> </body> </html> É isso ae glr, porque sera q ta incluindo 2 vezes? já discuti com um amigo meu q mexe a mais tempo q eu, e ele também não soube solucionar Espero q isso ajude, e q vocês me ajudem também hehehe Abraços
-
Coloquei essas paradas toda ae bareta, so q ainda continua inserindo 2 registros, ta estranho isso. Muito estranho. Vlw a ajuda de vocês ae, vo continuar tentando aqui, e se souberem porque postem ae. Abraços
-
Fiz isso q tu falo ae bareta coloquei isso aq: If Not IsEmpty(Request.Form("submit")) AND Trim(Request.Form("data")) <> "" AND Trim(Request.Form("sobre")) <> "" AND Trim(Request.Form("texto")) <> "" Then e ele continua inserindo 2 vezes, já com o codigo do dataform não acontece isso :S Abraços
-
Eu também faço isso bareta Tem como ele fazer 2 inserts aq? veja so o codigo: <%Set Conexao = Server.CreateObject("ADODB.Connection") Dim Dbq Dbq = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("coluna.mdb") & ";Persist Security Info=False;Jet OLEDB:Database Password=" Conexao.Open Dbq data = Request.form("data") sobre = Request.form("sobre") texto = Request.form("texto") Sql = "Insert Into dados(data,sobre,texto) Values ('"& data & "', '"& sobre & "', '"& texto & "' )" Set Rs = Conexao.Execute(Sql) Rs.open Conexao.close Set rs = Nothing Set conexao = Nothing%> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <title>Untitled Document</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body> <p><br> </p> <p align="center">Os dados enviados por você foi: </p> <table width="778" border="1" cellpadding="0" cellspacing="0" bordercolor="#000000"> <tr> <th align="center" valign="top" scope="col"><%=request.form("data")%></th> </tr> <tr> <td align="center" valign="top"><%=request.form("sobre")%></td> </tr> <tr> <td align="center" valign="top"><%=request.form("texto")%></td> </tr> </table> </body> </html>
-
tipo veio eu vo la no campo data coloco a data vo no campo sobre e ponho sobre o que é vo no campo texto e digito o texto ate ai tudo bem. So q ele não inseri isto somente uma vez, ele coloca isso no banco duas vezes. Dai fica o id 1 e 2 a mesmo coisa saco??? ao invés de inserir isto somente uma vez ele ta inserindo 2 vezes. fiz uns testes e com o dataform eu gerei um script de inclusao pra ver como ficava. Ficou assim <html> <head> <title>teste</title> </head> <body> <center> <font face="Arial" size="4"><b>Incluir coluna </b> </center> <% If IsEmpty( Request.Form("submit") ) Then %> <form method=post action="<%=Request.ServerVariables("script_name")%>"> <table border=0 width="80%" align=center> <tr bgcolor="#999999"> <td colspan="2" align=right valign=top><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">:.Dados:.</font></div></td> </tr> <tr> <td width="15%" align=right valign=top bgcolor="#CCCCCC"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">data:</font></td> <td width="85%" align=left valign=top> <font face="Arial" size="2"> <input type=text name="data" value="" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}"> </font></td> </tr> <tr> <td align=right valign=top bgcolor="#CCCCCC"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">sobre:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <input type=text name="sobre" value="" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}"> </font></td> </tr> <tr> <td align=right valign=top bgcolor="#CCCCCC"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">texto:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <textarea name="texto" cols="30" rows="5" id="texto"></textarea> </font></td> </tr> </table> <center><input type=submit name=submit value=Incluir style="{<font-family:Arial; font-size:12}"></center> </form> <% Else If Not IsEmpty(Request.Form("submit")) AND Trim(Request.Form("data")) <> "" AND Trim(Request.Form("sobre")) <> "" AND Trim(Request.Form("texto")) <> "" Then Set Conexao = Server.CreateObject("ADODB.Connection") Dim Dbq Dbq = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("coluna.mdb") & ";Persist Security Info=False;Jet OLEDB:Database Password=" Conexao.Open Dbq ComandoSQL = "INSERT INTO dados (data, sobre, texto)" ComandoSQL = ComandoSQL & " VALUES (" ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("data")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("sobre")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("texto")) & "')" Set bd = Conexao.Execute(ComandoSQL) Conexao.Close Set bd = Nothing Set Conexao = Nothing %> <font face="Arial" size="2"> <center> <p><br> Os dados foram enviados com sucesso! </p> <table width="353" border="0" bordercolor="#000000"> <tr bgcolor="#999999"> <td colspan="2"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">:.Dados:.</font></div></td> </tr> <tr> <td width="45" bgcolor="#CCCCCC"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Data:</font></td> <td width="139"><%=data%></td> </tr> <tr> <td bgcolor="#CCCCCC"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Sobre:</font></td> <td><%=sobre%></td> </tr> <tr> <td bgcolor="#CCCCCC"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Texto:</font></td> <td><%=texto%></td> </tr> </table> <p><br> <a href="index.asp"><b>Clique aqui</b></a> para continuar</p> </font></center> <% Else %> <font face="Arial" size="2"> <center><br>Atenção: Alguns dados necessário não foram preenchidos corretamente <br><a href="javascript:history.go(-1)"><b>Clique aqui</b></a> para voltar</font></center> <% End If End If %> </body> </html> com esse script ele insere somente uma vez não duas, não sei porque. E novamente não to conseguindo listar as variaveis, iniciante é foda, to dando um trabalhao pra vocês. Abraços
-
aff muito grosso esse erro, corriria aq é foda também. Mas ae me diz e quanto a parada de ta duplicando no banco? Só ta faltando arrumar isso pra ficar tudo ok
-
tinho tenho duas paginas uma com o nome de incluir_coluna.asp nela tem um form q pesso pra pesso digitar os seguintes dados Data, Sobre o que é a coluna, Texto e nome os nomes do text field saum respectivamete data,sobre,texto. E essa pagina envia pelo metodo post para a pagina scoluna.asp. E o codigo da pagina scoluna é esse: <%Set Conexao = Server.CreateObject("ADODB.Connection") Dim Dbq Dbq = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("coluna.mdb") & ";Persist Security Info=False;Jet OLEDB:Database Password=" Conexao.Open Dbq nome = Request.form("data") tel = Request.form("sobre") ende = Request.form("texto") Sql = "Insert Into dados(data,sobre,texto) Values ('"& data & "', '"& sobre & "', '"& texto & "' )" Set Rs = Conexao.Execute(Sql) Rs.open Conexao.close Set rs = Nothing Set conexao = Nothing%> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <title>Untitled Document</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body> <p><br> </p> <p align="center">Os dados enviados por você foi: </p> <table width="778" border="1" cellpadding="0" cellspacing="0" bordercolor="#000000"> <tr> <th align="center" valign="top" scope="col"><%=request.form("data")%></th> </tr> <tr> <td align="center" valign="top"><%=request.form("sobre")%></td> </tr> <tr> <td align="center" valign="top"><%=request.form("texto")%></td> </tr> </table> </body> </html> q q ta errado??
-
tipo tenho uma tabela onde vo mostrar os dados, dai em uma linha da tabela eu tava pondo esse codigo <%Request.form("data")%> so q mesmo assim não ta listando, fica em branco a parada.
-
Opa é isso ae Dark vlw pela ajuda, so q agora surgiu outro problema hehehe é o seguinte o comando não da mais erro, so q agora os campos do banco ficam em branco cara, so o campo id q é alto numeração ta sendo preenchido, e os outros estão em branco q q pode ta acontecendo?? e alem disso cada vez q eu insiro dados novos o campo de alto numeraçao não vai de um em um, ele se auto coloca 2 registros, ele não numera so um e sim um e dois e quando ponho outro ele poe mais dois sendo assim vai pra três e quatro ta duplicando os registros, e volto a repetir, os outros campos estão ficando em branco. E também quando vo listar o que a pessoa enviou <%=nome%> por exemplo ele não aparece nada cara. Sendo q a variavel já ta declarada. Ajudem ae Desde já agradeço Abraços
-
E ae glr beleza? tipo, to querendo incluir dados em um banco de dados. So q ta muito estranho no diretorio raiz do site eu fiz uma pag com o comando insert into e deu certo, depois criei uma outra pasta com o nome de admin, dai fui fazer outra pag com o comando insert into e ta dando erro, o erro é esse aq: E o codigo é esse: <%Set Conexao = Server.CreateObject("ADODB.Connection") Dim Dbq Dbq = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("coluna.mdb") & ";Persist Security Info=False;Jet OLEDB:Database Password=" Conexao.Open Dbq nome = Request.form("data") tel = Request.form("desc") ende = Request.form("texto") Sql = "Insert Into dados(data,desc,texto) Values ('"& data & "', '"& desc & "', '"& text & "' )" Set Rs = Conexao.Execute(Sql) Rs.open Conexao.close Set rs = Nothing Set conexao = Nothing%> A linha 11 é essa aq: Set Rs = Conexao.execute(Sql) Mas se eu incluir os dados no banco com o comando add.new da certo, so q depois eu não to conseguindo é listar os dados do bd, eu tento listar com o comando Select e não mostra a pag fica em branco, por isso tava querendo incluir com o comando insert. Sem mais... Desde já agradeço Abraços
-
Fala ae glr beleza?? Tipo já tentei de tudo nem to conseguindo arrumar essa parada aqui, novato é fogo mas vo aprender O erro: Tipo de erro: Microsoft JET Database Engine (0x80040E14) Erro de sintaxe na instrução INSERT INTO. /site/admin/scoluna.asp, line 11 O Código: <%Set Conexao = Server.CreateObject("ADODB.Connection") Dim Dbq Dbq = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("coluna.mdb") & ";Persist Security Info=False;Jet OLEDB:Database Password=" Conexao.Open Dbq desc = Request.form("desc") data = Request.form("data") texto = Request.form("texto") Sql1 = "INSERT INTO coluna(data,desc,texto) Values ('"& desc & "', '"& data & "', '"& texto & "')" Set Rs = Conexao.Execute(Sql1) Rs.open Conexao.close Set rs = Nothing Set conexao = Nothing%>
-
Ae descobri o erro era no css mesmo tinha um estilo com o nome de style 4(vide codigo acima q eu postei) e na pagina do meio também tinha um stilo com o nome de style 4 ai o servidor enterpredo como um so por isso tava dando cores iguais agora renomeei o estilo e deu todo certo vlw pela força ae glr Abraços
-
o codigo do css da pagina topo <STYLE type=text/css> A:unknown { TEXT-DECORATION: none } A:link { COLOR: #000000; TEXT-DECORATION: none } A:visited { COLOR: #000000; TEXT-DECORATION: none } A:active { COLOR: #000000; TEXT-DECORATION: none } A:hover { COLOR: #FF0000; TEXT-DECORATION: underline } .style2 {font-family: Tahoma} .style4 {font-family: Tahoma; font-size: 12px; } .style5 {color: #000000} </style> o codigo da pagina do meio <style type="text/css"> <!-- body { margin-left: 0px; margin-top: 0px; margin-right: 0px; margin-bottom: 0px; } .style1 { font-family: Tahoma; font-size: 12px; } .style4 {font-family: Tahoma; font-size: 12px; color: #FFFFFF; } --> </style>
-
E ae glr beleza? fiz uma busca no forum mais sem sucesso... O problema é o seguinte, tenho uma pagina com 3 includes q seria a pagina topo, a pagina menu e a pagina lado ficando uma parte no meio para a edição do meio do site...Então se eu mudo a cor da letra da pagina meio(q não esta no include) a pagina topo(include)muda altomaticamente a cor da letra também E isso me estranho já fiz varias pesquisas mas nem achei nada... E venho aq pedir a ajuda de vocês caros colegas... Desde já agradeço Sem mais...
-
o codigo é o seguinte André sql = "INSERT INTO dados (titulo, categoria, url, email, descricao) VALUES('"& titulo &"', '"& categoria &"', '"& url &"', '"& email &"', '"& descricao &"')" Set rs = Server.CreateObject("ADODB.Recordset") rs.CursorType = 3 rs.CursorLocation = 3 rs.LockType = 3 rs.Open SQL,Conn é esse q to usando pra fazer a conexão, ve se você pode me ajudar ae Desde já grato Abraços
-
e ae galera beleza? bem, sou novato em asp e meu código ta dando um erro aq q eu não sei o que faço pra arruma-lo o erro dele é o seguinte: Microsoft OLE DB Provider for ODBC Drivers (0x80004005) [Microsoft][Driver ODBC para Microsoft Access] A operação deve usar uma consulta atualizável. /toposites/top_site/envia_cadastro.asp, line 49 e o codigo da linha 49 é esse: rs.Open sql, conn Se alguém souber o motivo deste erro por favor me ajudem Grato desde já Abraços!