PhoEniXFirE
-
Total de itens
231 -
Registro em
-
Última visita
Tudo que PhoEniXFirE postou
-
Esta é page onde esta o formulário, alterar.asp <% set db = server.CreateObject("ADODB.connection") dim caminho caminho = server.MapPath("/comerciolocal/comercio.mdb") db.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & caminho id = request.querystring("id") sql = "select * from sapatarias where id = "&id&"" set rs = db.execute(sql) loja = rs.fields("Loja") html = rs.fields("Html") %> <html> <head> <title>:: Comercio Local - Administração (Alteração)</title> </head> <body bgcolor="#C2D3E3"> <form name="form1" method="post" action="alterar_func.asp"> <table width="100%" border="0" cellspacing="5" cellpadding="0"> <tr> <td> <table width="100%" border="1" cellspacing="5" cellpadding="0" bordercolor="#000080" style="border-collapse: collapse"> <tr> <td colspan="2"></td> </tr> <tr> <td colspan="2"><div align="center"><font color="#000080"><strong> Alteração dos Dados da Loja</strong></font></div></td> </tr> <tr> <td><font color="#000080"><strong><br> id: </strong></font><input name="txtid" type="text" id="txtid" value="<%=rs.fields("id")%>" size="5" style="font-family: Verdana; font-size: 8 pt; border: 1px solid #808080"><br> <font color="#000080"><strong> </strong></font><b><font color="#000080">Nome da Loja:</font></b><br> <font color="#000080"><strong> </strong></font><input name="txtloja" type="text" id="txtloja" size="50" maxlength="50" value="<%=Loja%>" style="font-family: Verdana; font-size: 8 pt; border: 1px solid #808080"> <br> <font color="#000080"><strong> Html da Loja</strong></font><strong><font color="#000080">:<br> </font></strong><font color="#000080"><strong> </strong></font><strong><font color="#000080"><textarea name="txthtml" id="txthtml" style="font-family: Verdana; font-size: 8pt"><%=Html%></textarea> <br> </font></strong></td> </tr> <tr> <td colspan="2"> </td> </tr> <tr> <td colspan="2"><div align="center"> <p> <input type="submit" name="Submit" value="Alterar Dados" style='border:1px solid #000080; font-family: "Verdana"; font-size: 8pt; color:#000080; font-weight:bold; background-color:#FFFFFF'> </p> </div></td> </tr> </table> </td> </tr> </table> </form> </body> </html>
-
Esta página é a alterar_func.asp. linha 10 set rs = db.execute(sql)
-
Este é o script q envia o código pro BD, e onde esta dando o erro <% set db = server.CreateObject("ADODB.connection") dim caminho caminho = server.MapPath("/comerciolocal/comercio.mdb") db.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & caminho loja = request.form("txtloja") html = request.form("txthtml") id = request.form("txtid") sql = "update sapatarias set Loja='"&loja&"', Html='"&html&"' where id="&id&"" set rs = db.execute(sql) response.redirect "default.asp" rs.close db.close set rs = nothing set db = nothing %>
-
Estou com um sistema de comércio, o qual eu envio um HTML pro BD, q deverá ser aberto pelo usuário durante o site. Mas está ocorrendo este erro abaixo quando tento adicionar e/ou alterar o html. O script quando eu envio outra coisa menor, ou um html mais simples, funciona, o q me mostra q ele está certo. Gostaria de saber se alguém sabe porque este erro está aparecendo? HTTP 500.100 - Servidor interno Erro - erro do ASP Internet Information Services -------------------------------------------------------------------------------- Informações técnicas (para a equipe de suporte) Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80040E10) [Microsoft][Driver ODBC para Microsoft Access]Campo COUNT incorreto /comerciolocal/admin/sapatarias/alterar_func.asp, line 10 Tipo de navegador: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1) Página: POST 3740 bytes to /comerciolocal/admin/sapatarias/alterar_func.asp POST Data: txtid=16&txtloja=Limiar+Cal%E7ados&txthtml=%3C%21--+Sistema+desenvolvido+por+Rai+Rabelo+-+PhoEniXFirE+woow%0D%0A+--%3E%0D%0A%3Ctable+border%3D%220%22+cellpadding%3D%220%22+cellspacing%3D%220%22+style% . . . Este é o código html q tento enviar e n vai: <!-- Sistema desenvolvido por Rai Rabelo - PhoEniXFirE --> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="470" id="AutoNumber1" height="139"> <tr> <td width="100%" background="/images/barra_cinza.gif" style="border-top:1px solid #C0C0C0; border-bottom:1px solid #C0C0C0; border-left-width: 1; border-right-width: 1; " height="18"><b> <font face="Arial" style="font-size: 9pt"> .:: </font> <font face="Arial" style="font-size: 8pt">Limiar Calçados - A Arte Em Seus Pés</font><font face="Arial" style="font-size: 9pt"> ::.</font></b></td> </tr> <tr> <td width="100%" height="76"> <table border="0" cellpadding="2" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="470" id="AutoNumber4" bgcolor="#F0F0F0"> <tr> <td width="212" height="70"> <p align="center"><font face="Arial"> <a target="_blank" href="http://euclidesdacunha.com/limiar/"> <img border="0" src="/comerciolocal/images/limiar.jpg"></a></font></td> <td width="250" height="70"><font face="Arial" style="font-size: 8pt">End.: <b>Av. Ruy Barbosa, 225 - Centro</b><br> Telefone: <b>(75) 271-1554</b><br> Email: <b><a href="mailto:limiar@euclidesdacunha.com?subject=Comércio Local"><font color="#003366">limiar@euclidesdacunha.com</font></a><br> </b>Homepage: <b> <a target="_blank" href="http://euclidesdacunha.com/limiar/"> <font color="#003366">euclidesdacunha.com/limiar</font></a><br> Euclides da Cunha - BA</b></font></td> </tr> </table> </td> </tr> <tr> <td align="center" valign="top" height="30" bgcolor="#F0F0F0"> <p align="center"> <font face="Arial" style="font-size: 9pt; ">"Vendas de calçados masculinos e femininos, visite-nos e conheça as melhores marcas de calçados do mercado."</font></td> </tr> <tr> <td background="/images/barra_cinza.gif" style="border-top:1px solid #C0C0C0; border-bottom:1px solid #C0C0C0; border-left-width: 1; border-right-width: 1; " height="16"> <p align="right"><b><u><font face="Arial" style="font-size: 8pt"><a href="#faleconosco" onClick="MM_openBrWindow('/comerciolocal/faleconosco/default.asp?send=limiar','faleconosco','width=232,height=275,top=25,left=100')"><font color="#003366">Fale Conosco</font></a></font></u><font face="Arial" style="font-size: 8pt"> </font></b></td> </tr> </table>
-
E isso mesmo, tipo tive q mudar algumas coisas, mais tem logica. funcionou legal, o codigo esta abaixo pra você ver as mudanças... <% if Request.QueryString("id") = "farmacia" then %> conteúdo...farmacia <% elseif Request.QueryString("id") = "sapataria" then %> conteúdo... sapataria <% if Request.QueryString("pagina") = "1" then %> - página 1 <% elseif Request.QueryString("pagina") = "2" then %> - página 2 <% end if else %> conteúdo...principal <% end if %> valeu pela ajuda
-
Em nenhum dos sites achei o q eu queria, achei som isso, situações do if, else, e tb select, mas acho q você n entendeu o q'eu estava em dúvida, e é coisa simples. No código acima, na mesma página posso abrir situações diferentes com ele. Mas estou querendo apliar ele, no caso, vamos dizer q o nome da pagina seja page.asp, então, quando utilizarmos page.asp?id=sapatarias, ele vai abrir a página sapatarias, mesmo com farmacia, caso apenas coloque page.asp irá abrir o conteudo.asp, o q eu quero é poder ter mais apliado por paginas, q eu mesmo vou fazer manualmente, tipo page.asp?id=sapataria&pagina=1, ele irá abrir sapa_1.asp, quando page.asp?id=sapataria&pagina=2, ele irá abrir sapa_2.asp, entendeu? E em nenhum dos tutoriais em nenhumas das página tinha como eu fazer algo deste tipo. Se puder me explicar o código, ou me dar ele, pois poderei analisa-lo. Obrigado, Rai Rabelo p.s.: eu num lembro de ter colocado mais de um post n, mas caso, me desculpe.
-
<%If (Request.querystring("id") = "sapatarias") Then%> <!--#include file="sapatarias.asp" --> <%ElseIf (Request.querystring("id") = "sapatarias") Then "1" (Request.querystring("pagina") = "2") Then%> <!--#include file="farmacias.asp" --> <%Else%> <!--#include file="conteudo.asp" --> <%End If%> Estou com este código acima q quando eu utilizar no endereço do meu IE /?id=sapatarias , ele vai puxar a pagina sapatarias.asp, mas estou precisando dividir a em paginas, e estou querendo utilizar algo do tipo no endereço /?id=sapatarias&pagina=1 Alguém pode me explicar como posso fazer isso apartir do código acima? Obrigado
-
no caso aceito a coluna do BD?
-
Wow!! A galera q ta ligada, eu estou com um sistema de cadastro de email, já esta´funcionando, apenas com um detalhe, q n consegui fazer funcionar. Coloquei um Checkbox, pra quem quiser receber News, mas n estou sabendo como posso fazer pra enviar a informação pro BD de q ele foi clicado e tb como posso fazer pra receber do BD pro formulário? Obrigado Rai Rabelo
-
E ai bolomaster, wow, volte logo a ativa nas lógicas de programações. Então cara, é como o rafael disse, se for o estamos pensando, você vai ter q utilizar javascript, tipo onSubmit="window.open('http://www.empresarioindependente.net/obrigado.html','Obrigado','width=550,height=250')" , isso dentro do formulário e o redirect Response.Redirect("http://www.empresarioindependente.net/faleconosconatures.htm") Agora é só você organizar aí beleza. valeu
-
Tenho uns conhecimentos, mas ainda básico, mas acho q consigo fazer algo n muito bom. Tipo certas coisas q deixariam os sistema mais chamativo. Ok então, e qualquer coisa me avisem se acharem alguma coisa. rai Rabelo
-
realmente o fotolog, n é fácil de achar. valeu
-
é isso mesmo a dúvida é essa? dark0, você n sabe porque isso acontece? PhoEniXFirE Cara descobrir qual o problema: desinstalei o Norton e um dia desses fui da uma olhada e estava funcionando. Vallew pela ajuda
-
Ok, fico aguardando então e tb outras pessoas. valeu
-
Realmente já procurei n só no scriptbrasil, mas em outros como wmonline, codigolivre e outros, mas n achei. Então estou postando aqui porque alguém pode ter e então me passar, eu só queria mesmo os scripts, o design eu iria mudar todo. valeu, qualquer coisa
-
Buenas tarde... E ai galera? Será q alguém poderia me dizer aonde posso arranjar um sistema de fotolog, ou algo parecido, script pronto.? valeu, espero q alguém me ajude. Rai Rabelo
-
Cara entre no https://www.scriptbrasil.com.br/ e baixe os scripts em ASP de livro de visitas e depois veja qual é o q mais te agrada, teste pelo IIS ou pelo seu servidor.
-
Estou desenvolvendo um sistema de cadastro de emails, o caso, o usuário se cadastra no meu bd por ASP e eu recebo um email avisando este cadastro. Na administração, além de visualizar todas as informações do usuário pra poder cadastrado no email do meu servidor, posso tb, excluir e alterar, essas informações, aí vem o problema, a função excluir está funcionando corretamente, mas a ALTERAR não está funcionando, ela funciona de forma ID, então ele puxa todas as informações no arquivonot.asp, no arquivonot.asp, eu modifico as dados e no arquivo alterar.asp, onde ele faz o UPDATE, dá um erro referente ao formulário. Já de várias olhadas, mesmo assim ainda n consegui descubrir onde está o erro. Então o q peço aqui, é q, se alguém puder da uma olhada tb nele, pra ver sabe onde está o erro, agradeço bastante. Os arquivos estão anexados e abaixo: users.asp - *Arquivo onde seleciono qual id vou alterar no ALTERARNOT.ASP <% cBanco = Server.MapPath("../database.mdb") strConn = "Provider = Microsoft.jet.oledb.4.0; Data Source = "& cBanco &";" Set Conn = Server.CreateObject("adodb.connection") Conn.Open(strConn) Set Rs = Server.CreateObject("adodb.recordset") RS.PageSize = 5 SQL ="Select * From users ORDER BY ID DESC" Rs.Open SQL, Conn, 3, 3 %> <body link="#0000FF" vlink="#0000FF" alink="#0000FF" bgcolor="#F0F8FF"> <img border="0" src="../images/euclidesmail.gif"><br> <font face="arial" style="font-size: 8pt"> <u>Usuários cadastrados</u>: <b><% Response.Write rs.RecordCount %></b></font><p> <%If Rs.Eof Then Response.Write("Não tem nada no banco de dados") Response.End() ELSE IF cint(Request.QueryString("pagina"))<1 then intpagina=1 ELSE IF cint(Request.QueryString("pagina"))> RS.PageCount then intpagina=RS.PageCount ELSE intpagina=Request.QueryString("pagina") END IF END IF END IF RS.AbsolutePage=intpagina intrec=0 While intrec < RS.PageSize and not RS.EOF Login = Rs("U_ID") Password = Rs("U_PASSWORD") First = Rs("U_FIRST") Last = Rs("U_LAST") Dica = Rs("U_DICA") City = Rs("U_CITY") State = Rs("U_STATE") Cadastrado = Rs("U_CADASTRADO") ID = Rs("ID") Response.Write("<address><font face='Arial' style='font-size: 8pt; font-style: normal'>Email: <a href='mailto:" & Login & "@euclidesdacunha.com'>" & Login & "@euclidesdacunha.com</a></font></address> <address><font face='Arial' style='font-size: 8pt; font-style: normal'>Senha: <b>" & Password & "</b></font></address> <address><font face='Arial' style='font-size: 8pt; font-style: normal'>Dica de Senha: <b>" & Dica & "</b></font></address> <address><font face='Arial' style='font-size: 8pt; font-style: normal'>Nome e Sobrenome: <b>" & First & " " & Last & "</b></font></address> <address><font face='Arial' style='font-size: 8pt; font-style: normal'>Cidade / Estado: <b>" & City & "-" & State & "</b></font></address> <address><font style='font-style: normal' face='Arial' style='font-size: 8pt'>EuclidesNews: <b>Sim</b></font></address> <address><font face='Arial' style='font-size: 8pt; font-style: normal'>Cadastro: <b><font color=red>" & Cadastrado & "</font></b></font></address> <address><img border='0' src='linha.jpg' width='100%' height='1'></address> <address><font face='Arial' size='2' style='font-style: normal'><a href='excluirnot.asp?id=" & ID & "'>[Excluir]</a> <a href='alterarnot.asp?id=" & ID & "'>[Alterar]</a></font></address> <address><img border='0' src='linha.jpg' width='100%' height='1'></address><br>") Rs.MoveNext 'Wend intrec=intrec+1 'Rs.Close 'Set Rs = Nothing 'Conn.Close 'Set Conn = Nothing IF RS.EOF then response.write " " END IF Wend 'fim do loop %></p> </p></font> <font face="arial" style="font-size: 10pt"><b> <% IF intpagina > 1 then %> <a href="users.asp?pagina=<%=intpagina-1%>">[Anterior]</a> <% ELSE %> <font color="#C0C0C0">[Anterior]</font> <% END IF IF strcomp(intpagina,RS.PageCount) <> 0 then %> <a href="users.asp?pagina=<%=intpagina + 1%>">[Próxima]</a> <% ELSE %> <font color="#C0C0C0">[Próximo] <% END IF %></font></b><font color="black">Página:<b> <% Response.Write intpagina %><br> </b></font></font><font face="arial"> <span style="font-size: 8pt">Webmaster <b>Rai Rabelo</b></span></font> alterarnot.asp - *Arquivo onde faço as modificações desejadas <% set db = server.CreateObject("ADODB.connection") dim caminho caminho = server.MapPath("../database.mdb") db.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & caminho id = request.querystring("id") sql = "select * from users where id = "&id &"" set rs = db.execute(sql) Login = Rs("U_ID") Password = Rs("U_PASSWORD") First = Rs("U_FIRST") Last = Rs("U_LAST") Dica = Rs("U_DICA") City = Rs("U_CITY") State = Rs("U_STATE") Cadastrado = Rs("U_CADASTRADO") ID = Rs("ID") %> <html> <head> <title>:: Euclides Mail - Administração (Alterar Email)</title> </head> <body link="#0000FF" vlink="#0000FF" alink="#0000FF" bgcolor="#F0F8FF"> <form name="form1" method="post" action="alterar.asp"> <table width="100%" border="0" cellspacing="5" cellpadding="0"> <tr> <td> <table width="100%" border="1" cellspacing="5" cellpadding="0" bordercolor="#000080" style="border-collapse: collapse"> <tr> <td colspan="2"></td> </tr> <tr> <td colspan="2"><div align="center"><font color="#000080"><strong>Alteração de Email</strong></font></div></td> </tr> <tr> <td><font color="#000080"><strong><br> id: </strong></font><input name="txtid" type="text" id="txtid2" class="input2" value="<%=ID%>" size="5" style="font-family: Verdana; font-size: 8 pt; border: 1px solid #808080"> <address><font face="Arial" style="font-size: 8pt; font-style: normal">Email: <input name="txtlogin" type="text" id="txtlogin2" value="<%=Login%>" size="15" style="font-family: Verdana; font-size: 8 pt; border: 1px solid #808080">@euclidesdacunha.com</a></font></address> <address> <font face="Arial" style="font-size: 8pt; font-style: normal">Senha: <b><input name="txtpassword" type="text" id="txtpassword2" value="<%=Password%>" size="14" style="font-family: Verdana; font-size: 8 pt; border: 1px solid #808080"></b></font></address> <address> <font face="Arial" style="font-size: 8pt; font-style: normal">Dica de Senha: <b><input name="txtdica" type="text" id="txtdica2" value="<%=Dica%>" size="40" style="font-family: Verdana; font-size: 8 pt; border: 1px solid #808080"></b></font></address> <address> <font face="Arial" style="font-size: 8pt; font-style: normal">Nome: <input name="txtfirst" type="text" id="txtfirst" value="<%=First%>" size="17" style="font-family: Verdana; font-size: 8 pt; border: 1px solid #808080"> Sobrenome: <b><input name="txtlast" type="text" id="txtlast2" value="<%=Last%>" size="17" style="font-family: Verdana; font-size: 8 pt; border: 1px solid #808080"></b></font></address> <address> <font face="Arial" style="font-size: 8pt; font-style: normal">Cidade: <input name="txtcity" type="text" id="txtcity2" value="<%=City%>" size="30" style="font-family: Verdana; font-size: 8 pt; border: 1px solid #808080"> Estado: <b><input name="txtstate" type="text" id="txtstate2" value="<%=State%>" size="3" style="font-family: Verdana; font-size: 8 pt; border: 1px solid #808080"></b></font></address> <address> <span style="font-style: normal"><font face="Arial" style="font-size: 8pt"> Cadastrado: <b><input name="txtcadastrado" type="text" id="txtcadastrado2" value="<%=Cadastrado%>" size="3" style="font-family: Verdana; font-size: 8 pt; border: 1px solid #808080"></b></font></span></address> </td> </td> </tr> <tr> <td colspan="2"> </td> </tr> <tr> <td colspan="2"><div align="center"> <p> <input type="submit" name="submit" value="Alterar" style='font-family: "Verdana"; font-size: 8pt; color:#000080; font-weight:bold'> </p> </div></td> </tr> </table> </td> </tr> </table> </form> </body> </html> alterar.asp - *Arquivo é feito o UPDATE <% set db = server.CreateObject("ADODB.connection") dim caminho caminho = server.MapPath("../database.mdb") db.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & caminho id2 = request.form("txtid") login2 = request.form("txtlogin") password2 = request.form("txtpassword") dica2 = request.form("txtdica") first2 = request.form("txtfirst") last2 = request.form("txtlast") city2 = request.form("txtcity") state2 = request.form("txtstate") cadastrado2 = request.form("txtcadastrado") sql = "Update users set login='"& login2 &"', password='"& password2 &"', dica='"& dica2 &"', first='"& first2 &"', last='"& last2 &"', city='"& city2 &"', state='"& state2 &"', cadastrado='"& cadastrado2 &"' where id='"& id2 &"'" set rs = db.execute(sql) response.redirect "users.asp" rs.close db.close set rs = nothing set db = nothing %> Obrigado, Rai Rabelo
-
é isso mesmo a dúvida é essa? dark0, você n sabe porque isso acontece? PhoEniXFirE
-
Cara, nem funcionou este script do jeito q estava, tive q colocar os parenteses novamente. Será q n existe outra solução? Obrigado pela ajuda.
-
É vou ficar aguardando alguém poder me ajudar a solucionar este problema. Obrigado
-
Estou com um contador de acessos como vocês podem ver no script abaixo, mas ele não funciona no IIS da minha maquina, mas quando o coloco no servidor de hospedagem ele funciona. Este script foi desenvolvido por um amigo meu, na maquina dele o script funcionou, nós já sabemos q isso se trata de configuração do IIS, mas ele n sabe aonde ele pode ter alterado pra q o script funcionasse na sua maquina. [font=Courier]<% meucont = Server.MapPath( "cont.txt" ) Set Sys = Server.CreateObject( "Scripting.FileSystemObject" ) Set Txt = Sys.OpenTextFile( meucont, 1 ) Contador = Fix( Txt.ReadAll ) Txt.Close Contador = Contador + 1 Set Txt = Sys.OpenTextFile( meucont, 2 ) Txt.Write( Contador ) Txt.Close Response.Write( Contador ) Set Sys = NOTHING %>[/font] Gostaria de saber se alguém mais informado no assunto pode me ajudar? Obrigado pela atenção.
-
Estou utilizando este comando para exibir alert caso um campo do formulário n seja preenchido. if (document.NEWAD.AD_QUANITY.value == ""){ errorMsg += "\n\tDisponível \t- Digite a disponibilidade do anúncio."; } Mas tem campos onde apenas podem conter números, então qual comando utilizo neste mesmo caso? Estava tentado fazer e vi q em outros casos para q deixem os campos com apenas números estavam usando após o value, em vez de == "", algo do tipo .indexOf('inRange') != -1, mas testei n consegui. Então continuo sem saber o q fazer, quem puder me ajudar vou ficar muito grato.
-
Gostaria de saber como posso fazer pra utilizar o ASPMAIL no meu IIS do XP !! Quem puder me ajudar, fico muito grato.
-
Estou querendo fazer uma busca no meu site, e baixei uns scripts, mas todos ficam apenas buscando, buscando, e nem resultado de erro aparece. Eu falei com um colega e ele disse q precisa de um dll. acredito q o motivo seja este, pois poderia ser igual ao CDONTS q precisa tb do dll, alguém poderia me ajudar neste search? Obrigado