Jump to content
Fórum Script Brasil

Elo

Membros
  • Posts

    10
  • Joined

  • Last visited

About Elo

Elo's Achievements

0

Reputation

  1. Boa tarde! Tenho uma arquivo em asp que mostra as fotos as informações de um imóvel e suas fotos. Porém no final das fotos e informações coloquei um botão chamado inicio. Queria fazer com que esse botão ao ser clicado chamasse esse mesmo arquivo, porém dessa vez mostrando o primeiro registro da tabela. <a href="foto.asp?id=<%=rs("id")%>"><strong><u>INICIO</u></strong></a> Já tentei colocar o comando rs.movefirst antes dessa linha porém não consegui. Tentei colocar ele dentro da linha mais dá erro. <a href="foto.asp?id=<%=rs.movefirst("id")%>"><strong><u>INICIO</u></strong></a> O que posso fazer? Desde já agradeço Eloisa Dias
  2. Elo

    Erro No Upload

    Os outros arquivos funcionam, inclusive os de consulta.
  3. Elo

    Erro No Upload

    Bom dia amigos! Meu servidor passou a usar Painel de controle (Plesk). Depois disso meus arquivos que fazem upload pararam de funcionar tanto para inclusão quanto para alteração. Erro que tá dando é esse: #################################################################################################### Internal Server Error The server encountered an internal error or misconfiguration and was unable to complete your request. Please contact the server administrator to inform of the time the error occurred and of anything you might have done that may have caused the error. More information about this error may be available in the server error log. #################################################################################################### O que pode estar acontecendo, já que eu não modifiquei nada? Me falaram que pode ser problema nas permissões do dentro do Plesk, mas até agora não encontrei nada que possa fazer o upload voltar a funcionar. Desde já agradeço, Elô
  4. Olá amigos. Estou fazendo um site de venda de automóveis. Na 1ª página tem um select que faz a pesquisa das caracteristicas do automóvel. Apartir dessa pesquisa eu caio numa 2ª página que faz a listagem das ofertas de automóveis que se enquadram na minha pesquisa. Se eu clicar em qualquer item dessa listagem eu vou para uma 3ª página que tem as informações sobre um dos itens que eu escolhi para visualizar. Até aí beleza... Porém na 3ª página eu coloquei um link para voltar para a 2ª página onde estão novamente os dados da pesquisa, mas não estou conseguindo fazer com que ela volte com os dados anteriormente pesquisados. Já tentei fazer através de session e não ocnsegui. Alguém teria uma luz? Eis o código da 2ª pagina(busca_carro.asp): <!--#include file="adm_site/cone.asp" --> <% set marca = request.Form("Make") set modelo = request.Form("Team") set ano1 = request.Form("ano1") set ano2 = request.Form("ano2") set preco1 = request.Form("preco1") set preco2 = request.Form("preco2") set tab = server.CreateObject("adodb.recordset") tab.open "Select * from tbl_top where nome_marca = '"& modelo &"'",conexao if not tab.eof then with tab tot1 = .fields(1) tot = tot1 + 1 tab.close end with tab.open ("update tbl_top set cont = '"& tot &"' where nome_marca='"& modelo &"'"),conexao 'tab.close else conexao.execute "insert into tbl_top values('"& modelo &"','1')" tab.close end if 'tab.close if ano1="0" then sql = "" else sql = "and ano_fab > '"& ano1 &"' and ano_fab < '"& ano2 &"'" end if if valor1 = 0 then sql2="" else sql2 = "and valor >'"& preco1 &"' and valor < '"& preco2 &"'" end if tab.open "select * from tbl_carro where marca = '"& marca &"' and modelo = '"& modelo &"' "& sql &" "& sql2, conexao %> <% if not tab.eof then with tab while not.eof response.Write(i &"<a href='ver_carro.asp?id="& .fields(0) &"'>Vendedor: <b>"& .fields(1) &"</b> Preço: <b>"& .fields(11) &"</b></a><BR><br><hr color=#257D26 size'1' width='70%'><br><br>") .movenext wend end with else response.Write("<br><br><font face='verdana' size=2>Desculpe, mas nenhum carro foi encontrado. Preencha todos os campos da busca e tente novamente, obrigado.<br><a href='index.asp'>Voltar para a página de busca</a> ")'& marca) 'response.Write(" "& modelo) 'response.Write(" "& ano1) 'response.Write(" "& ano2) 'response.Write(" "& preco1) 'response.Write(" "& preco2) end if%> Agora o da 3ª página(ver_carro.asp): <% set conexao = Server.CreateObject("ADODB.Connection") conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("bd_arvvor.mdb") id = request.querystring("id") Set FSO= Server.CreateObject("Scripting.FileSystemObject") strSQL = "SELECT * FROM tbl_carro where cod_carro = "&id Set rs = conexao.Execute(strSQL) If rs.EOF or rs.BOF Then Response.Write "<font face=Verdana size=2><strong> Não foi encontrado nenhum registro.</strong></font>" Else Do While not rs.EOF intCounter=intCounter+1 intMod=intcounter mod 2 if intmod=0 then rcolor = "#c0c0c0" elseif intmod=1 then rcolor = "#FFFFFF" end if %> <table width="50%" border="0" align="center" cellpadding="0" cellspacing="5" class="borda"> <tr bgcolor="#99CC99"> <td colspan="2"> <div align="center"><strong>DADOS DO VENDEDOR</strong></div></td> </tr> <tr> <td>&nbsp;</td> <td>&nbsp;</td> </tr> <tr> <td width="51%"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><span class="style3">Nome do vendedor </span></font></strong></td> <td width="49%"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><span class="style3"><%=rs("nome")%></span></font></td> </tr> . . . </table> <% rs.MoveNext Loop End If rs.close set rs = nothing set conexao = nothing %> <table width="75%" border="0"> <tr> <td>&nbsp;</td> <td><div align="right"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong><a href="busca_carro.asp">Voltar a consulta</a> </strong></font></div></td> </tr> </table> Desde já agradeço! Eloisa Dias
  5. Elo

    Erro No Upload

    A linha 161 onde está dando erro é a linha: RequestBin = Request.BinaryRead(byteCount)
  6. Elo

    Página Configurada Em Asp

    Meninos, já melhorou 50%. rs! porque é assim: o index.asp, chama o le_nickname.asp, que é esse código que eu postei, e ele por sua vez verifica se está tudo certo e entra no entrar.asp. Se eu deixar o history.go(-1) no código, ele nem vai para o le_nickname.asp, ele volta para o index.asp, agora se eu retirar o history.go(-1), ele vai para o código le_nickname.asp, porém ele não consegue entrar no entrar.asp. Obrigada!
  7. Consegui s3c!!! Fiz do jeito que você falou, deu tudo certo com relação a Readln! Estou muito feliz! Valeu mesmo!!! Abraços, Elô
  8. Olá! A minha procedure ficou assim agora: procedure TSVFrmImport.Button1Click(Sender: TObject); var arq: TextFile; linha: String; idx: byte; begin AssignFile(arq,'G:\FONTES\COPAI\SISAVI\Importação COPAI\teste.txt'); Reset ( arq ); ReadLn ( arq, linha ); tblGabarito.Open; while not Eof ( arq ) do //tblGabarito.Insert; begin for idx := 1 to tblGabarito.Fields.Count - 1 do begin tblGabarito.Append; tblGabarito.FieldByName('LINHA_01').AsString := copy(linha, 1, 1); tblGabarito.FieldByName('LINHA_02').AsString := copy(linha, 2, 1); tblGabarito.FieldByName('LINHA_03').AsString := copy(linha, 3, 1); tblGabarito.FieldByName('LINHA_04').AsString := copy(linha, 4, 1); tblGabarito.FieldByName('LINHA_05').AsString := copy(linha, 5, 1); tblGabarito.FieldByName('LINHA_06').AsString := copy(linha, 6, 1); tblGabarito.FieldByName('LINHA_07').AsString := copy(linha, 7, 1); tblGabarito.FieldByName('LINHA_08').AsString := copy(linha, 8, 1); tblGabarito.FieldByName('LINHA_09').AsString := copy(linha, 9, 1); tblGabarito.FieldByName('LINHA_10').AsString := copy(linha, 10, 1); tblGabarito.FieldByName('LINHA_11').AsString := copy(linha, 11, 1); tblGabarito.FieldByName('LINHA_12').AsString := copy(linha, 12, 1); tblGabarito.FieldByName('LINHA_13').AsString := copy(linha, 13, 1); tblGabarito.FieldByName('LINHA_14').AsString := copy(linha, 14, 1); tblGabarito.FieldByName('LINHA_15').AsString := copy(linha, 15, 1); tblGabarito.FieldByName('LINHA_16').AsString := copy(linha, 16, 1); tblGabarito.FieldByName('LINHA_17').AsString := copy(linha, 17, 1); tblGabarito.FieldByName('LINHA_18').AsString := copy(linha, 18, 1); tblGabarito.FieldByName('LINHA_19').AsString := copy(linha, 19, 1); tblGabarito.FieldByName('LINHA_20').AsString := copy(linha, 20, 1); tblGabarito.FieldByName('LINHA_21').AsString := copy(linha, 21, 1); tblGabarito.FieldByName('LINHA_22').AsString := copy(linha, 22, 1); tblGabarito.FieldByName('LINHA_23').AsString := copy(linha, 23, 1); tblGabarito.FieldByName('LINHA_24').AsString := copy(linha, 24, 1); tblGabarito.FieldByName('LINHA_25').AsString := copy(linha, 25, 1); tblGabarito.FieldByName('LINHA_26').AsString := copy(linha, 26, 1); tblGabarito.FieldByName('LINHA_27').AsString := copy(linha, 27, 1); tblGabarito.FieldByName('LINHA_28').AsString := copy(linha, 28, 1); tblGabarito.FieldByName('LINHA_29').AsString := copy(linha, 29, 1); tblGabarito.FieldByName('LINHA_30').AsString := copy(linha, 30, 1); tblGabarito.FieldByName('LINHA_31').AsString := copy(linha, 31, 1); tblGabarito.FieldByName('LINHA_32').AsString := copy(linha, 32, 1); tblGabarito.FieldByName('LINHA_33').AsString := copy(linha, 33, 1); tblGabarito.FieldByName('LINHA_34').AsString := copy(linha, 34, 1); tblGabarito.FieldByName('LINHA_35').AsString := copy(linha, 35, 1); tblGabarito.FieldByName('LINHA_36').AsString := copy(linha, 36, 1); tblGabarito.FieldByName('LINHA_37').AsString := copy(linha, 37, 1); tblGabarito.FieldByName('LINHA_38').AsString := copy(linha, 38, 1); tblGabarito.FieldByName('LINHA_39').AsString := copy(linha, 39, 1); tblGabarito.FieldByName('LINHA_40').AsString := copy(linha, 40, 1); tblGabarito.FieldByName('LINHA_41').AsString := copy(linha, 41, 1); tblGabarito.FieldByName('LINHA_42').AsString := copy(linha, 42, 1); tblGabarito.FieldByName('LINHA_43').AsString := copy(linha, 43, 1); tblGabarito.FieldByName('LINHA_44').AsString := copy(linha, 44, 1); tblGabarito.FieldByName('LINHA_45').AsString := copy(linha, 45, 1); end; tblGabarito.post; ReadLn ( arq, linha ); end; tblGabarito.Close; CloseFile ( arq ); end; end. Está inserindo na tabela porém ela não tá passando pra próxima linha. está inserindo a mesma coisa em todas as linhas Tipo: LINHA_01|LINHA_02|LINHA_03|LINHA_04|LINHA_05|LINHA_06|...|LINHA_45| 5 | 4 | 3 | 3 | 1 | 2 |...| 2 | 5 | 4 | 3 | 3 | 1 | 2 |...| 2 | 5 | 4 | 3 | 3 | 1 | 2 |...| 2 | 5 | 4 | 3 | 3 | 1 | 2 |...| 2 | 5 | 4 | 3 | 3 | 1 | 2 |...| 2 | 5 | 4 | 3 | 3 | 1 | 2 |...| 2 | 5 | 4 | 3 | 3 | 1 | 2 |...| 2 | 5 | 4 | 3 | 3 | 1 | 2 |...| 2 | 5 | 4 | 3 | 3 | 1 | 2 |...| 2 | 5 | 4 | 3 | 3 | 1 | 2 |...| 2 | . . . obrigada! Eloisa
  9. Desculpe, esqueci de tirar o tblgabarito. Tblgabarito era um TTable que apontava para um arquivo.db Anteriormente, eu estava tentando importar do teste.txt para um arquivo.db e logo em seguida importando esse dados do arquivo.db para o SQL server. Porém não estava importando corretamente... Pensei então em tentar importar direto do teste.txt para o SQL Server por ser mais prático e dinâmico. Minha procedure estava assim antes: procedure TSVFrmImport.Button1Click(Sender: TObject); var arq: TextFile; linha: String; idx: byte; begin AssignFile(arq,'G:\FONTES\COPAI\SISAVI\Importação COPAI\teste.txt'); Reset ( arq ); ReadLn ( arq, linha ); tblGabarito.Open; while not Eof ( arq ) do begin tblGabarito.Insert; for idx := 0 to tblGabarito.Fields.Count - 1 do begin tblGabarito.Fields[idx].AsString := linha[idx]; end; tblGabarito.Next; ReadLn ( arq, linha ); end; tbGabarito.Close; CloseFile ( arq ); end;
  10. Olá! Tenho um gabarito (A,B,C,D,E) com 45 questões, igual aqueles de concurso que foi passado para um arquivo.txt onde A=1, B=2, c=3, D=4 e E=5 O conteúdo desse arquivo ficará exatamente assim. 543312231222223344433213554321222122234543212 543232222111234543212233354334345454333433455 123335344411155543211121254321121213443444555 Gostaria de criar uma procedure que ao clicar nela, o conteúdo desse arquivo fosse lido e passado para um tabela do SQL Server. Já fiz o procedimento de leitura, gostaria agora de passar o que foi lido para a tabela do SQL Server. procedure TSVFrmImport.Button1Click(Sender: TObject); var arq: TextFile; linha: String; idx: byte; begin AssignFile(arq,'G:\FONTES\COPAI\SISAVI\Importação COPAI\teste.txt'); Reset ( arq ); ReadLn ( arq, linha ); tblGabarito.Open; while not Eof ( arq ) do begin . . ( o que coloco aqui para receber o que foi lido e passar para o SQL?) . end; end; end. Desde já agradeço.
×
×
  • Create New...