Jump to content
Fórum Script Brasil

backer

Membros
  • Posts

    23
  • Joined

  • Last visited

About backer

  • Birthday 07/26/1986

Contatos

Perfil

  • Gender
    Male
  • Location
    São Paulo

backer's Achievements

0

Reputation

  1. A olhe nos dois sites mais não encontrei nada no da http://www.nvidia.com.br/ nem cheguei a ver nenhuma versão para download e no http://www.helpdrivers.com/aleman/listado/...mp;perif=video4 só achei para Windows XP 64 bists. Obrigado mesmo assim pessoal
  2. Boa tarde a todos tenho um PC placa mãe ASUS P5VD2-x Processador DUAL CORE 3,4 com 1 G de RAM DDR2 que gostaria de instalar o Windows Vista mas tenho uma placa de vídeo NX6200TC-TD256E e não acho o driver para Vista 32 Bits ágüem sabe aonde posso baixar este driver?
  3. Boa tarde a todos, tenho um problema sou um cara com pouco conhecimento em redes quase nulo na criação. Meu dilema é tenho dois micro, sedo eles um 233 MMX e um DUAL o 233 tem instalado Windows ME e DUAL o Windows VISTA eu gostaria de colo calos em rede com compartilhamento de dados e impressoras “impressora um EPSON CX5600 e Samsung SCX 4521F “ e conexão a internet com um modem speed Touch V6. Como devo fazer para ter internet independente de um servidor na rede mais com os compartilhamentos citados a acima?
  4. Modifique o código da pagina de consulta retirando a conexão pelo arquivo “conect.ini” e fazendo no script da própria pagina de consulta. Mais ainda esta dando erro. Pagina de consulta <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <html> <head> <title>Extração de dados - BC</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><style type="text/css"> <!-- body,td,th { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; color: #000000; } .style1 {color: #FFFFFF} --> </style></head> <body> <table width="100%" border="1"> <tr> <td bordercolor="#003300" bgcolor="#003300"><span class="style1">DATA</span></td> <td bordercolor="#003300" bgcolor="#003300"><span class="style1">RE</span></td> <td bordercolor="#003300" bgcolor="#003300"><span class="style1">Analista</span></td> <td bordercolor="#003300" bgcolor="#003300"><span class="style1">Numero - BC</span></td> <td bordercolor="#003300" bgcolor="#003300"><span class="style1">SETOR - BC</span></td> <td bordercolor="#003300" bgcolor="#003300"><span class="style1">LEGAL do Emitente</span></td> <td bordercolor="#003300" bgcolor="#003300"><span class="style1">STATUS - BC</span></td> <td bordercolor="#003300" bgcolor="#003300"><span class="style1">OBSERVA&Ccedil;&Atilde;O</span></td> <td bordercolor="#003300" bgcolor="#003300"><span class="style1">ORIENTA&Ccedil;&Atilde;O</span></td> </tr> <% Set MyConn=Server.CreateObject("ADODB.Connection") MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("base_bd.mdb") SQL = "select * from ANLISTA_BC where data BETWEEN "&request.Form("dtiniregistro")&""&request.Form("hriniregistro")&""" and data <="&request.Form("dtfimregistro")& ""&request.Form("hrfimregistro")& " Order By ID" Set RS = MyConn.Execute(SQL) While Not RS.EOF Response.Write "<form name=""Update"" method=""Post"">" %> <tr> <td bordercolor="#003300"><%=RS("DATA")%></td> <td bordercolor="#003300"><%=RS("RE")%></td> <td bordercolor="#003300"><%=RS("NOME")%></td> <td bordercolor="#003300"><%=RS("NUM_BC")%></td> <td bordercolor="#003300"><%=RS("SETOR")%></td> <td bordercolor="#003300"><%=RS("LEGAL")%></td> <td bordercolor="#003300"><%=RS("STATUS")%></td> <td bordercolor="#003300"><%=RS("OBSERVACAO")%></td> <td bordercolor="#003300"><%=RS("ORIENTACAO")%></td> </tr> <% Response.Write "</form>" RS.MoveNext Wend CleanUp(RS) %> </table> </body> </html> Erro na pagina
  5. Bom pessoal tenho que confessar que estol meio perdido vou postar o código abaixo. E o erro se alguém puder me ajudar sou muito grato. Pagina de critério - data <table width="816" border="0"> <form name="form1" method="post" action="consulta.asp"> <tr><td width="810" colspan="2" bgcolor="#F8FDEE"><img src="title_consulta de analise.gif" width="318" height="22"></td> </tr> <tr> <td height="32" background="fundo_lista.gif" bgcolor="#F8FDEE"> <div align="left"><span class="style1"> Data/Hora do Registro:(inicio)</span> <input type="text" name="dtiniregistro" size="9" class="combo" onKeyPress="funMascaraData(this);" style="BORDER-RIGHT: #003300 1pt solid; BORDER-TOP: #003300 1pt solid; BORDER-LEFT: #003300 1pt solid; BORDER-BOTTOM: #003300 1pt solid; BACKGROUND-COLOR: #F8FDEE; FONT-FAMILY: verdana; FONT-SIZE: 10pt; COLOR: #597700"> <span class="style1">- </span> <input type="text" name="hriniregistro" size="4" value="00:00" class="combo" style="BORDER-RIGHT: #003300 1pt solid; BORDER-TOP: #003300 1pt solid; BORDER-LEFT: #003300 1pt solid; BORDER-BOTTOM: #003300 1pt solid; BACKGROUND-COLOR: #F8FDEE; FONT-FAMILY: verdana; FONT-SIZE: 10pt; COLOR: #597700"> <input id="cmdIni" name="cmdIni" type="button" value="..." LANGUAGE="javascript" onClick="showCalendar('dtiniregistro')" class="combo"> </span> <span class="style1">Data/Hora do Registro:(fim)</span> <input type="text" name="dtfimregistro" size="9" class="combo" onKeyPress="funMascaraData(this);" style="BORDER-RIGHT: #003300 1pt solid; BORDER-TOP: #003300 1pt solid; BORDER-LEFT: #003300 1pt solid; BORDER-BOTTOM: #003300 1pt solid; BACKGROUND-COLOR: #F8FDEE; FONT-FAMILY: verdana; FONT-SIZE: 10pt; COLOR: #597700"> <span class="style1">-</span> <input type="text" name="hrfimregistro" size="4" value="23:59" class="combo" style="BORDER-RIGHT: #003300 1pt solid; BORDER-TOP: #003300 1pt solid; BORDER-LEFT: #003300 1pt solid; BORDER-BOTTOM: #003300 1pt solid; BACKGROUND-COLOR: #F8FDEE; FONT-FAMILY: verdana; FONT-SIZE: 10pt; COLOR: #597700"> <input id="cmdIni" name="cmdIni" type="button" value="..." LANGUAGE="javascript" onClick="showCalendar('dtfimregistro')" class="combo"> <input type="image" name="botao" src="bot_gerar.jpg" border="0" align="absbottom"></div></td> </tr> </form> </table> conect.inc <% '/////////////////////////////////////////////////////////////////////////////////// 'connection string Set MyConn=Server.CreateObject("ADODB.Connection") MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("base.mdb") '/////////////////////////////////////////////////////////////////////////////////// '/////////////////////////////////////////////////////////////////////////////////// 'cleanup routines Sub CleanUp(RS) RS.Close MyConn.Close Set RS = Nothing Set MyConn = Nothing End Sub Sub CleanUp2() MyConn.Close Set MyConn = Nothing End Sub '//////////////////////////////////////////////////////////////////////////////////// %> Pagina de consulta <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!--#INCLUDE FILE="conect.inc"--> <html> <head> <title>Extração de dados - BC</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><style type="text/css"> <!-- body,td,th { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; color: #000000; } .style1 {color: #FFFFFF} --> </style></head> <body> <table width="100%" border="1"> <tr> <td bordercolor="#003300" bgcolor="#003300"><span class="style1">DATA</span></td> <td bordercolor="#003300" bgcolor="#003300"><span class="style1">RE</span></td> <td bordercolor="#003300" bgcolor="#003300"><span class="style1">Analista</span></td> <td bordercolor="#003300" bgcolor="#003300"><span class="style1">Numero - BC</span></td> <td bordercolor="#003300" bgcolor="#003300"><span class="style1">SETOR - BC</span></td> <td bordercolor="#003300" bgcolor="#003300"><span class="style1">LEGAL do Emitente</span></td> <td bordercolor="#003300" bgcolor="#003300"><span class="style1">STATUS - BC</span></td> <td bordercolor="#003300" bgcolor="#003300"><span class="style1">OBSERVAÇÃO</span></td> <td bordercolor="#003300" bgcolor="#003300"><span class="style1">ORIENTAÇÃO</span></td> </tr> <% SQL = "where data >= "&request.Form("dtiniregistro")&""&request.Form("hriniregistro")&""" and data <="&request.Form("dtfimregistro")& ""&request.Form("hrfimregistro")& "" From ANLISTA_BC Order By ID" Set RS = MyConn.Execute(SQL) While Not RS.EOF Response.Write "<form name=""Update"" method=""Post"">" %> <tr> <td bordercolor="#003300"><%=RS("DATA")%></td> <td bordercolor="#003300"><%=RS("RE")%></td> <td bordercolor="#003300"><%=RS("NOME")%></td> <td bordercolor="#003300"><%=RS("NUM_BC")%></td> <td bordercolor="#003300"><%=RS("SETOR")%></td> <td bordercolor="#003300"><%=RS("LEGAL")%></td> <td bordercolor="#003300"><%=RS("STATUS")%></td> <td bordercolor="#003300"><%=RS("OBSERVACAO")%></td> <td bordercolor="#003300"><%=RS("ORIENTACAO")%></td> </tr> <% Response.Write "</form>" RS.MoveNext Wend CleanUp(RS) %> </table> </body> </html> Mensagem de erro
  6. Ola pessoal desculpa por ter sumido e meio que abandonado o post. Mais estava muito corrido no serviço. Bom consegui fazer o que eu queria mais é claro que devo agradecer a boa vontade de todos e principalmente do Kuroi. Pessoal o script esta um pouco diferente pois agora ele faz a verificação se a realmente o nome de usuário no banco se não ele é direcionado para uma outra pagina. S ficar alguma duvida a respeito posta ai que eu tento ajudar falou. Esta pagina paz a conexão com o banco dedados para demais paginas usando a variável MM_discusao_STRING para inicial a conexão Ob. Note que no topo das demais pagina é chamado a pagina discusao.asp com o código <!--#include file=" discusao.asp" --> discusao.asp <% Dim MM_discusao_STRING MM_discusao_STRING = "Driver={Microsoft Access Driver (*.mdb)};DBQ= base.mdb" %> default.asp <%@LANGUAGE="VBSCRIPT"%> <!--#include file=" discusao.asp" --> <% ' *** Validate request to log in to this site. MM_LoginAction = Request.ServerVariables("URL") If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Request.QueryString MM_valUsername=CStr(Request.Form("usuario")) If MM_valUsername <> "" Then MM_fldUserAuthorization="categoria" MM_redirectLoginSuccess="recados.asp" MM_redirectLoginFailed="default.asp" MM_flag="ADODB.Recordset" set MM_rsUser = Server.CreateObject(MM_flag) MM_rsUser.ActiveConnection = MM_discusao_STRING MM_rsUser.Source = "SELECT usuario" If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization MM_rsUser.Source = MM_rsUser.Source & " FROM user WHERE usuario='" & Replace(MM_valUsername,"'","''") & "'" MM_rsUser.Open If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then ' username and password match - this is a valid user Session("MM_Username") = MM_valUsername If (MM_fldUserAuthorization <> "") Then Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value) Else Session("MM_UserAuthorization") = "" End If if CStr(Request.QueryString("accessdenied")) <> "" And false Then MM_redirectLoginSuccess = Request.QueryString("accessdenied") End If MM_rsUser.Close Response.Redirect(MM_redirectLoginSuccess) End If MM_rsUser.Close Response.Redirect(MM_redirectLoginFailed) End If %> <html> <head> <title>Grupo de Discusão</title> </head> <body> <form ACTION="<%=MM_LoginAction%>" method="POST" name="formulario" id="formulario"> <input name="usuario" type="text" id="email" style="font-size:9px; color:black; background-color:rgb(242,242,242); margin:1px; padding:1px; border-width:1px; border-color:rgb(204,204,204); border-style:solid;" size="21"> <input type="image" name="formimage1" src="images/entrar.gif" width="36" height="15" border="0" align="middle"> </form> </body> </html> recados.asp <%@LANGUAGE="VBSCRIPT"%> <!--#include file=" discusao.asp" --> <% Dim Rs_sessao__MMColParam Rs_sessao__MMColParam = "1" If (Session("MM_Username") <> "") Then Rs_sessao__MMColParam = Session("MM_Username") End If %> <% Dim Rs_sessao Set Rs_sessao = Server.CreateObject("ADODB.Recordset") Rs_sessao.ActiveConnection = MM_discusao_STRING Rs_sessao.Source = "SELECT * FROM user WHERE usuario = '" + Replace(Rs_sessao__MMColParam, "'", "''") + "'" Rs_sessao.Open() %> <html> <head> <title>Grupo de Discusão</title> </head> <body> <%=(Rs_sessao.Fields.Item("nome").Value)%> </body> </html>
  7. Sim é um domínio pago da web http://www.redehost.com.br/ e quando eu clico em mais informações ele me mostra o seguinte descrição. Esse erro (HTTP 500 Erro Interno do Servidor) significa que o site visitado teve um problema no servidor que impediu a exibição da página da Web. Para obter mais informações sobre erros de HTTP, consulte a Ajuda.
  8. Pessoal eu sei que estou sendo muito irritante mais realmente preciso fazer isto acontecer sabe eu tive um reunião e os caras estão me cobrando. Kuroi e bareta Muito obriga mesmo estão dando uma força. Bom o erro continua eu print o arquivo .mdb e o erro que aparece para mim aqui. O código que estou usando esta abaixo e esta hospedado na url http://www.webmonter.com/teste/ . login.mdb config.inc <% '/////////////////////////////////////////////////////////////////////////////////// 'connection string Dim Conexao Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & Server.MapPath("Login.mdb ") '/////////////////////////////////////////////////////////////////////////////////// %> default.asp <html> <head> <title>RE</title> </head> <body> <Form name="avaliacao" action="2.asp" method="get"> <input type="Text" name="RE" value="" onChange="java script:window.document.avaliacao.submit();"> <INPUT type="submit" value="entrar" name="botao"> </Form> </body> </html> dois.asp <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!--#INCLUDE FILE="config.inc"--> <html> <head> <title>prova</title> <% SQL = "Select * From Login where re = " & Request.QueryString("RE") & "" Set RS = MyConn.Execute(SQL) %> </head> <body> <input type="text" name="" value="<%=RS("RE")%>"> </body> </html> Erro
  9. Ates não estava dando erro pois tinha colocado na url para retornar o print do SQL que você falou agora esta o código Pagina dois.asp <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!--#INCLUDE FILE="config.inc"--> <html> <head> <title>prova</title> <% SQL = "Select RE, nome From Login where re = " & Request.QueryString("RE") & " Order By ID" Set RS = MyConn.Execute(SQL) %> </head> <body> <input type="text" name="" value="<%=RS("RE")%>"> </body> </html> Mais o erro continua o mesmo. Os numero do banco de dados RE = 375453 Nome Rafael RE = 573211 Nome Backer
  10. O erro continua o mesmo ta complicado NE. Eu deixe o script do jeito que você me falo esta ainda no ar no link WWW.webmonter.com/teste. A mensagem que o SQL envia de resposta é Select RE, nome From Login where re = 375453 Order By ID. E o script da pagina dois .asp <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!--#INCLUDE FILE="config.inc"--> <html> <head> <title>prova</title> <% SQL = "Select RE, nome From Login where re = " & Request.QueryString("RE") & " Order By ID" Response.Write(SQL) Response.End() %> </head> <body> <input type="text" name="" value="<%=RS("RE")%>"> </body> </html>
  11. O erro continua o mesmo o ultimo teste que eu fiz o código da pagina dois. asp fico do jeito abaixo. <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!--#INCLUDE FILE="config.inc"--> <html> <head> <title>prova</title> <% Codigo = Request.Form("RE") SQL = "Select RE, nome From Login where re = " & codigo & " Order By ID" Set RS = MyConn.Execute(SQL) %> </head> <body> <input type="text" name="" value="<%=RS("RE")%>"> </body> </html>
  12. Cara eu sei que já estou sendo irritante mais não entendi muito bem pois tentei dos dois jeitos mais não rolo. Sei La será que o erro esta em outro local tipo no arquivo config.inc sei La
  13. È ta complicado só da erro ainda continua com mesmo erro. O script esta abaixo. E o erro e o mesmo de antes o teste continua na web http://www.webmonter.com/teste/. default.asp <html> <head> <title>RE</title> </head> <body> <Form name="avaliacao" action="dois.asp" method="get"> <input type="Text" name="RE" value="" onChange="java script:window.document.avaliacao.submit();"> <INPUT type="submit" value="entrar" name="botao"> </Form> </body> </html> config.inc <% '/////////////////////////////////////////////////////////////////////////////////// 'connection string Set MyConn=Server.CreateObject("ADODB.Connection") MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("Login.mdb") '/////////////////////////////////////////////////////////////////////////////////// '/////////////////////////////////////////////////////////////////////////////////// 'cleanup routines Sub CleanUp(RS) RS.Close MyConn.Close Set RS = Nothing Set MyConn = Nothing End Sub Sub CleanUp2() MyConn.Close Set MyConn = Nothing End Sub '//////////////////////////////////////////////////////////////////////////////////// %> dois.asp <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!--#INCLUDE FILE="config.inc"--> <html> <head> <title>prova</title> </head> <body> <% Codigo = Request.QueryString("RE") SQL = "Select RE, nome From Login where re = '& codigo &' Order By ID" Set RS = MyConn.Execute(SQL) %> <input type="text" name="" value="<%=RS("RE")%>"> </body> </html>
  14. Esta dando a mensagem de erro 500 à descrição esta abaixo. Mais esta ai a url do teste na web http://www.webmonter.com/teste/ O site não pode exibir a página Causas prováveis: • O site está em manutenção. • O site tem um erro de programação. Você pode tentar: Atualizar a página. Voltar para a página anterior. Mais informações
  15. Muito estranho estol tentando fazer como você me falaram mais esta dando erro 500 e o caminho fica assim dois.asp?RE=375453 alguém sabe o porque? Assim muito obriga pela força que estão me dando kuroi e Andréia_sp.
×
×
  • Create New...