crucifier

mais uma duvida cara...não sei se é do codigo que voce me passo ou é erro da minha pagina que contem o formulario...mas porq ele não envia na ordem que esta na pagina??

vo testa aki cara.... valewzaum velho...muito obrigado mesmo...quebro um galhao!

só mais uma duvida...nesses lugares onde poe campo eu coloco alguma coisa ou dexo como campo mesmo?

tipw....para um formulario de contato uso este codigo: <% Dim sMsgErr '***** Executa as ações desta página ***** Sub ProcessaPagina() '***** Declaração das Variáveis ***** sEMail = "meuemail@centropaulista.com.br" '***** Obtém valores preenchidos no Formulário ***** Nome = Request.Form("Nome") Email = Request.Form("Email") Telefone = Request.Form("Telefone") Mensagem = Request.Form("Mensagem") '***** Monta corpo da mensagem a enviar por e-mail sBodyText = sBodyText & "CORRETO Seguros" & vbCrLf & vbCrLf'corpo sBodyText = sBodyText & " " & vbCrLf 'corpo sBodyText = sBodyText & "Nome: " & Nome &vbCrLf 'corpo sBodyText = sBodyText & "Email: " & Email &vbCrLf 'corpo sBodyText = sBodyText & "Telefone: " & Telefone &vbCrLf 'corpo sBodyText = sBodyText & "Mensagem:" & Mensagem &vbCrLf 'corpo sBodyText = sBodyText & "----------------------------------------------" & vbCrLf 'corpo '***** Envia E-Mail para o destinatário ***** On Error Resume Next sMsgErr = "" Set Mail = Server.CreateObject("CDONTS.NewMail") Mail.From = "meuemail@centropaulista.com.br" ' Remetente da mensagem Mail.To = sEMail ' Destinatario da mensagem para Mail.Subject = "CORRETO Seguros" 'assunto Mail.Body = sBodyText 'corpo da mensagem montada acima Mail.Send If Err > 0 Then sMsgErr = "Ocorreu o seguinte erro ao tentar enviar o e-mail: " & Err.Description End If On Error GoTo 0 End Sub %> mas agora eu preciso fazer um formulario imenso e para colocar todos aqueles request.form fik fodao dimaiz...e lembrei que não lembro quando nem onde, quando eu era amador eu usava uma página de envio que se não me engano o scriptbrasil oferecia...que qualquer campo que eu colocava no meu form ele enviava... ou seja...ele não precisava declarar form por form com request.form...ele pegava tudo automaticamente... e gostaria de saber desse jeito... se alguém puder me informar agradeco muito...

poh gente não precisa de tantas respostas....um de cada vez=)

gente..eu sei que é praticamente kerer abusar de vocês...mas espero que uma boua alma esteja disposta a ajudar uma pessoa em apuros hj... o negocio é o seguinte... preciso fazer um sistema...onde exiba os registros em flash...tipo esse swf: http://www.mital.com.br/teste/representantes.htm só que quando voce clica no estado...ele precisa exibir os dados deste estado que está no banco de dados.. se eu clico em sergipe..ele vai exibir nakela janelinha cinza...todos os representantes de sergipe...e assim por diante tipo..eu consigui fazer ele exibir um registro em asp...mas ele exibe o registro que eu declarei na pagina asp..se lá eu por texto = "pedro" ele aparece no flash lá: pedro...mas eu não consigo fazer tipo..tipo um request.querystring no asp...porq a cena(movie clip sei lá.)que exibe os registros.....tem que receber os querystring da parte que exibe os estados...no asp seria +/- assim: sqlstmt = "SELECT * FROM dados WHERE estado="request.querystring("estado")" response.write tudoaki só que no flash eu não sei passar isso(achu que eu fiz certo na versao asp ali...03h da manhã..tenho que acorda as 6hrs hoje..to numa pilha de nervo e super com sono...não to raciocinando muito bem...enfim...) e na hora que eu clicar no estado...ele tem que enviar a informação de qual estado o usuario ta clicando..pra pode exibi nakela janelinha os dados do estado... gente...eu sei que é praticamente pedir o flash pronto...mas por favor tentem me ajudar... espero que voces tenham entendido minha explicação...foi o que eu disse...03h da manha..cansado...pilha de nervo...preciso acorda as 6 amanha...ta foda de raciocina aki... se voces puderem me ajudar...eu agradeco dimaiz gente

consigui já..pessoal do imasters me ajudo

putz...ninguém sabe como faze isssu?=\\

esses dias atrás meu banco de dados foi invadido... conversei com meu chefe(ele quem hospeda o site) e ele disse que não foi invadido, é que tem código que fornece uma brecha para o usuario e ele pode alterar o bd por lá.. eu não entendi muito bem o q ele quis dizer..ele disse +/- isso..disse algo como: o cara fik dando loop(ou refresh) e consegue acessar não sei o que lá q da pra acessar o banco de dados... daih ele disse que tem um código que da pra fecha essa brecha... não sei se entenderam muito bem.....keria sabe se alguém sabe mais a respeito sobre isso e sabe como resolver esse problema... meu fórum é invision power board 2.0 vlw galera=)espero que tenham entendido...

não deu certo não cara=(

tipw eu já dei uma estudada de php...php eu achu um pouco mais dificil q asp..php é muito detalhado e tal... eu achu o asp mais fácil...nunk tive a oportunidade de mexer com asp.net então eu não sei..mas entre asp e php eu prefiro o asp...os recursos achu q é praticamente o mesmo...o q você faz por php se faz por asp e o q você faz por asp se faz por php..bom..eu achu..se eu tiver errado alguém me corrija..

tipw...na página ta assim...sabe aqueles menu q você tem que seleciona uma opção delas e tal(tipw pra escolher cor, tamanho, fonte aki no negocio de postar tópico)...bom..seis sabe.. daih tipw..tem lá o menu categoria..com o nome de id_cat...nele aparece os registros do banco de dados de uma determinada tabela...e é exibido pelo campo "nome" do bd logo abaixo tem um menu também, com o nome de id_disco....e tipw... todos os discos q tem no banco de dados tem uma categoria(id_cat=categoria) bom...espero que eu tenha sido claro..aí vai minha dúvida: eu quero que quando selecionar alguma categoria, apareça todos os discos que tem apenas nessa categoria, no menu id_disco...e enquanto não selecionar nenhuma categoria ele fik dakele tipao cinzinha mais claro..que não da pra seleciona e tal... não sei se fui muito claro...qualquer duvida pergunta... caso alguém saiba um jeito mais simples de fazer isso...essa página é a pagina de inclusao de letra de música, os discos são os cds da banda...e a categoria é a classificação pra ver se é álbum, single, demo, essas coisas... opa eskeci de postar o codigo...tipw..o codigo q eu fiz, é pra aparecer todos as categorias(obvio) e todos os discos independente de sua categoria..aí está o codigo pra exibir as categorias: <SELECT style="width=200" name="id_cat" letra_verificar="sim" onChange="desabilita_cor(this)" class=campos_formulario> <OPTION value=""></OPTION> <% Set objRS2 = Server.CreateObject("ADODB.Recordset") objRS2.CursorLocation = 3 objRS2.CursorType = 3 objRS2.LockType = 1 strQ = "SELECT nome FROM categorias ORDER BY nome ASC" objRS2.Open strQ, objCon, , , &H0001 If Not objRS2.EOF Then While Not objRS2.EOF If Trim(objRS2.Fields.Item("nome").Value) <> "" Then Response.Write " <OPTION value='" & (objRS2.Fields.Item("nome").Value) & "'>" & (objRS2.Fields.Item("nome").Value) & "</OPTION>" End If objRS2.MoveNext Wend End If Response.Write("ok") %> </SELECT> e aí vai o codigo pra exibir os discos: <SELECT style="width=200" name="id_disco" letra_verificar="sim" onChange="desabilita_cor(this)" class=campos_formulario> <OPTION value=""></OPTION> <% Set objRS2 = Server.CreateObject("ADODB.Recordset") objRS2.CursorLocation = 3 objRS2.CursorType = 3 objRS2.LockType = 1 strQ = "SELECT nome FROM discos ORDER BY nome ASC" objRS2.Open strQ, objCon, , , &H0001 If Not objRS2.EOF Then While Not objRS2.EOF If Trim(objRS2.Fields.Item("nome").Value) <> "" Then Response.Write " <OPTION value='" & (objRS2.Fields.Item("nome").Value) & "'>" & (objRS2.Fields.Item("nome").Value) & "</OPTION>" End If objRS2.MoveNext Wend End If Response.Write("ok") %> </SELECT> me ajudem aih pessoal valeu=D

deu certo o codigo lá..fiz não sei que gambiarra lá q deu certo e o verdadeiro problema sabem onde era? inclusao.asp a pagina de inclusao não tava funfanu direito eu achu..ele acusava q tinha incluido no bd mas não tinha..o bd tava vazio...achu q é por isso que tava dando tantos erros..mas daih eu consigui reverter a situação..valeu pela força gente..

deu erro na linha 11 agora... a linha 11 é onde está: rs.Open sqlstmt, DSNtemp, 3, 3

vo posta meu codigo intero então...não consigui achar o erro ainda... a primera parte do codigo antes do %> é do não guardar negocio de cache...vo posta ele interinhu aih: continua dando erro na linha do loop <%Response.Expiresabsolute = Now() - 2 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "no-cache" %> <% DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; " DSNtemp=dsntemp & "DBQ=" & server.mappath("textos.mdb") sqlstmt = "SELECT * FROM textos ORDER BY id DESC" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sqlstmt, DSNtemp, 3, 3 rs.Move Request.QueryString("id") TotalRecs = rs.recordcount x = 0 For x = 1 to 9999 If rs.eof then Exit For id = rs("id") miniatura = rs("miniatura") categoria = rs("categoria") titulo = rs("titulo") descricao = rs("descricao") y=1 Do while not rs.eof if y mod 2 = 0 then cor = "#f3f3f3" else cor = "#CCCCCC" end if y = y+1 response.write "<tr bgcolor=" & cor & ">" response.write "<td><div align=center><img src="&miniatura&" width=47 height=47 style=border: 3px double #000000 /></div></td>" response.write "<td><div align=center>"& id &"</div></td>" response.write "<td><div align=center>"&categoria&"</div></td>" response.write "<td><div align=center>"&titulo&"</div></td>" response.write "<td><div align=center>"&descricao&"</div></td>" response.write "<td><div align=center>" response.write "<table width=""100%"" border=0 cellspacing=0 cellpadding=0>" response.write "<tr>" response.write "<td><div align=center><img src=http://www.filht.com.br/administracao/images/icon_alterar.gif width=18 height=27 /></div></td>" response.write "<td><div align=center><img src=http://www.filht.com.br/administracao/images/icon_excluir.gif width=22 height=23 /></div></td>" response.write "<td><div align=center><img src=http://www.filht.com.br/administracao/images/icon_visualizar.gif width=20 height=19 /></div></td>" response.write "</tr>" response.write "</table>" response.write "</div></td>" response.write "</tr>" response.write "</table>" Rs.MoveNext loop %> o erro dado foi: Error Type: Microsoft VBScript compilation (0x800A03F6) Expected 'End' /administracao/textos/view.asp, line 56

hail murders! tipw eu peguei um negocinhu pronto aih pra aparece tipw primera linha cor cinza segunda cinza escuro..tercera cinza quarta cinza escuro..e assim por diante...mai não deu muito certo..vo posta aih o codigo: y=1 Do while not rs.eof if y mod 2 = 0 then cor = "#f3f3f3" else cor = "#CCCCCC" end if y = y+1 response.write "<tr bgcolor=" & cor & ">" response.write "<td><div align=center><img src="&miniatura&" width=47 height=47 style=border: 3px double #000000 /></div></td>" response.write "<td><div align=center>"& id &"</div></td>" response.write "<td><div align=center>"&categoria&"</div></td>" response.write "<td><div align=center>"&titulo&"</div></td>" response.write "<td><div align=center>"&descricao&"</div></td>" response.write "<td><div align=center>" response.write "<table width=""100%"" border=0 cellspacing=0 cellpadding=0>" response.write "<tr>" response.write "<td><div align=center><img src=http://www.filht.com.br/administracao/images/icon_alterar.gif width=18 height=27 /></div></td>" response.write "<td><div align=center><img src=http://www.filht.com.br/administracao/images/icon_excluir.gif width=22 height=23 /></div></td>" response.write "<td><div align=center><img src=http://www.filht.com.br/administracao/images/icon_visualizar.gif width=20 height=19 /></div></td>" response.write "</tr>" response.write "</table>" response.write "</div></td>" response.write "</tr>" response.write "</table>" Rs.MoveNext loop mas ele da erro na linha 94...e a linha 94 é a parte q ta escrito loop porq q ta acontecenu isso?=(

bom...eu postei a mesma coisa em um outro forum de programação(não sei se posso falar o nome)...daih o cara altero e me mando...daih deu certo...o codigo fiko assim: <%DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; " DSNtemp=dsntemp & "DBQ=" & server.mappath("mital.mdb") sqlstmt = "SELECT * FROM angra ORDER BY id DESC" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sqlstmt, DSNtemp, 3, 3 rs.Move Request.QueryString("id") TotalRecs = rs.recordcount Colunas = 4 response.write "<table border=0 align=center cellpadding=0 cellspacing=0>" while NOT rs.EOF response.write "<tr>" for i = 1 to Colunas 'nº de colunas if rs.EOF = True then miniatura = "" id = "" link = "" description = "" imagem = "<td width=30 height=90 align=right valign=top> <div align=center><td><div align=center></div></td>" Else miniatura = rs("miniatura") id = rs("id") link = "../produtos_angra.asp?id=" & id & "" description = rs("nome") imagem = "<td width=30 height=90 align=right valign=top> <div align=center><td><div align=center><a href=""#"" onMouseDown=""abrir_janela_popup('"& link &" ','janela','width=605,height=272,top=150,left=150')""><img src=" & miniatura &" border=0 ><br>"& description &"</a></div></td>" rs.MoveNext end if response.write ""&imagem&"" next response.write "</tr>" Wend response.write "</table>" %>

consigui já.. se kizerem eu posto o codigo

não deu certo cara =\\

peloamordedeus alguém ajuda eu....preciso desse sistema pronto pra hj gente!!se não eu tomo fumo do chefe...por favor me ajudem!

não sei porq mas esse negocio q eu fiz só exibe a ultima imagem postada... aconteceu isso depois que eu coloquei os valores em colunas...vo dexa em negrito a parte do codigo que faz o negocio de colunas olhem aih o codigo: <% DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; " DSNtemp=dsntemp & "DBQ=" & server.mappath("mital.mdb") sqlstmt = "SELECT * FROM mital ORDER BY id DESC" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sqlstmt, DSNtemp, 3, 3 rs.Move Request.QueryString("id") TotalRecs = rs.recordcount x = 0 For x = 1 to 9999 If rs.eof then Exit For Else miniatura = rs("miniatura") id = rs("id") link = "consulta.asp?id=" & id & "" description = rs("nome") %> esse aih embaxo é o codigo pra exibi a tabela para fazer as colunas lá: <% response.write "<table border=0 align=center cellpadding=0 cellspacing=0>" while NOT rs.EOF response.write "<tr>" for i = 1 to 4 'nº de colunas if rs.EOF = True then exit for end if response.write "<td width=30 height=90 align=right valign=top> <div align=center><td><div align=center><a href=""#""><img src=" & miniatura &" border=0 onMouseDown=""abrir_janela_popup('"& link &" ','janela','width=605,height=272,top=150,left=150')""><br>"& description &"</a></div></td>" rs.MoveNext next response.write "</tr>" Wend response.write "</table>" %> <br> <% End If Next %> e ele só exibe a ultima imagem postada..me ajudem XD

aewwwwww valeu cara....deu certinhu sergio...valewzao!

estou com mais um problema no meu sistema de inserir texto... o negocio é o seguinte eu peguei um pedaço de 2 sistemas para fazer um só...e deu conflito entre os dois eu achu um chamava a página pelo numero de linhas do banco de dados....tipw... "consulta2.asp?n=1" ...ou seja...linha 1.. e o outro puxava pelo id do coiso... "consulta2.asp?id=45" e quando eu juntei os dois deu alguma zica que em qlquer link que eu clico....ele chama sempre a linha 1 em vez de chamar pelo id...tipw...no url aparece certo.. pagina.asp?id=45 só q ele sempre chama a linha 1...confiram: "www.filth.com.br/entrevista/view.asp" qualquer um q você clica aparece a mesma coisa sendo q no bd ta coisa diferente...tem jeito de se erro em uma das duas páginas...a primeira é a pagina view.asp....que nela vai ter o link pra chamar a consulta2.asp que é a página q vai aparecer o texto...aih vai os codigos asp q tem na pagina view.asp: <% DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; " DSNtemp=dsntemp & "DBQ=" & server.mappath("entrevista.mdb") sqlstmt = "SELECT * FROM entrevista ORDER BY id DESC" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sqlstmt, DSNtemp, 3, 3 rs.Move Request.QueryString("id") TotalRecs = rs.recordcount x = 0 For x = 1 to 9999 If rs.eof then Exit For Else entrevistacom = rs("entrevistacom") id = rs("id") entrevistador = rs("entrevistador") link = "<b>" & entrevistador & "</b>" description = "<a href='consulta2.asp?id=" & id & "' target=_parent>" & entrevistador & "</a>" %> no final: <% rs.MoveNext End If Next %> a outra possibilidade é a página consulta2.asp...vo posta os codigos asp pra vocês verem também: <% Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("entrevista.mdb") ComandoSQL = "SELECT * FROM entrevista" Set rs = Conexao.Execute(ComandoSQL) If Not rs.EOF Then %> e pra fechar: <% Else %> <font face="Arial" size="2"><b> Nenhum valor encontrado</b></font> <% End If %> não sei o que pode ter a ver mas pra chamar o texto no view.asp ta assim(por exemplo): <% =description%> e no consulta2.asp <%=rs("copyright")%> bom...finalizando...o erro é: qualquer link que eu clike da página view.asp...(que é a página que chama o consulta2.asp)..então..qualquer link que eu clike...em vez dele chamar a página pelo ID ele chama pela linha...e sempre ta chamando pela primeira linha do banco de dados....da pra ver pela página: www.filth.com.br/view.asp qualquer um dos tres q você clicar vai pra mesma página...o id no url muda só q exibe as mesmas informações..e sempre exibe as informações que está na primeira linha.... espero que tenham entendido! aih gente eu sei que é muito grande esse p*** desse texto aih...mais espero que vocês consigam me ajudar=)

valeu gente já consigui....fui analizando as coisas e descobri uma coisinha a toua aki...mas q deu todo o erro...em vez de "," tava ")" daih eu mudei....bom vo posta o erro pro pessoal inesperiente igual eu não cair em coisinhas assim...o erro tava nessa parte: ... ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("lingua")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("copyright")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("traducao")) & "')" ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("texto")) & "')"... ondi ta vermelho....tinha q ta igual ta azul...uma coisinha a toua mas que atrapalhou o codigo intero.... se o pessoal kizer deletar este tópico pode deleta XD falow!

estou precisando de um help num sistema de inclusao q eu to tentanu fazer..é pra ele incluir no banco de dados os dados que eu vou coloca lá no form..(por enquanto é só incluir) e ele não ta incluindo...me deem um help aih...esse codigo vai na mesma página do formulário e na mesma página de verificação correta(akelas q falam: foi incluido com sucesso) aih vai: <% Else If Not IsEmpty(Request.Form("submit")) AND Trim(Request.Form("imagem")) <> "" AND Trim(Request.Form("entrevista_com")) <> "" AND Trim(Request.Form("entrevistador")) <> "" AND Trim(Request.Form("Ano")) <> "" AND Trim(Request.Form("Assunto")) <> "" AND Trim(Request.Form("Lingua")) <> "" AND Trim(Request.Form("Copyright")) <> "" AND Trim(Request.Form("Traducao")) <> "" AND Trim(Request.Form("texto")) <> "" Then Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("entrevista.mdb") ComandoSQL = "INSERT INTO entrevista (imagem, entrevista_com, entrevistador, ano, assunto, lingua, copyright, traducao, texto)" ComandoSQL = ComandoSQL & " VALUES (" ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("imagem")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("entrevista_com")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("entrevistador")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("ano")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("assunto")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("lingua")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("copyright")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("traducao")) & "')" ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("texto")) & "')" Set bd = Conexao.Execute(ComandoSQL) Conexao.Close Set bd = Nothing Set Conexao = Nothing %>