raphpac

Muito obrigado Denis, Funcionou da seguinte forma SELECT cod_pag, SUM(IF(tipo='e', valor, 0)) somaentrada, SUM(IF(tipo='s', valor, 0)) somasaida, SUM(IF(tipo='e', valor, 0)) - SUM(IF(tipo='s', valor, 0)) totalcaixa FROM tabela GROUP BY cod_pag

Boa tarde, estou em dúvida em montar a seguinte query. Mysql: ---tabela---- cod_pag | valor | tipo 01 | 10 | e 01 | 20 | e 01 | 5 | s 04 | 50 | e 01 | 10 | s Gostaria de somar os valores de todos os campos da coluna cod_pag (group by cod_pag) e com tipo='e' e todos os valor com tipo='s' e dps subtrair as somas para pegar a diferença. Tipo assim: select *,(select sum(valor) where tipo='e') as somaentrada,(select sum(valor) where tipo='s') as somasaida, somaentrada - somasaida as totalcaixa from tabela group by cod_pag Agradeço a que puder ajudar, abs, Raphael

fiz de outra forma e funcionou :)

Eu testei assim e funcionou ! nome = "Funciona" strBody="Prezado(A)<p>"&nome&"</p>" call mandaremail(rememail,destemail,assunto,strBody) So que o texto que o strBody recebe eu preciso q venha do banco de dados. regs.Fields("campo") = pega o texto que esta no bd, {{nome}} então fiz assim: nome = "Funciona" strBody=replace(regs.Fields("campo"),"{{",chr(34)&"&") strBody=replace(strBody,"}}","&"chr(34)) se eu mando response.write ele imprime "&nome&" na tela, porque ele não substituiii nome por Funciona :wacko:

sim eu sei.. quanto a isso não tenho problema.. Ate já coloquei a variavel recebendo um valor estatico para facilitar o exemplo e os testes nome = "Funciona" O email chega, mas o problema que ele não substitui a variavel pelo valor dela.. Chega como se fosse uma string

1)HTML 2) "&nome&" , sendo que era para chegar no email assim " funciona " , já que a variavel nome="funciona" Se eu fizesse da seguinte forma funciona, mas eu preciso do texto vindo do bd nome = "Funciona" strBody="Prezado(A)<p>"&nome&"</p>" call mandaremail(rememail,destemail,assunto,strBody) consegui explicar agora ?

Boa noite, Estou com o seguinte probleminha Eu utilizei o Fckeditor para gravar um texto de email no MySql No MySql, o conteúdo do campo(text) ficou assim: Prezado(A)<p>{{nome}}</p> Na página de enviar o email eu faço o seguinte: nome = "Funciona" strBody=replace(regs.Fields("campo"),"{{",chr(34)&"&") strBody=replace(strBody,"}}","&"chr(34)) call mandaremail(rememail,destemail,assunto,strBody) Na sub o body esta como HTML (cdoMessage.HTMLBody = strBody) O email chega assim : Prezado(a) "&nome&" Mesmo eu colocando"&nome&" manualmente no bd.. Alguma sugestação ? :rolleyes: Obrigado

Não consegui aplicar o while, Mas consegui contornar da seguinte forma: Dim campos(10) campos(0)=request.form("selectcampo1") campos(1)=request.form("selectcomparacao1") campos(2)=request.form("selecttextocomp1") campos(3)=request.form("selectoperador1") campos(4)=request.form("selectcampo2") campos(5)=request.form("selectcomparacao2") campos(6)=request.form("selecttextocomp2") campos(7)=request.form("selectoperador2") campos(8)=request.form("selectcampo3") campos(9)=request.form("selectcomparacao3") campos(10)=request.form("selecttextocomp3") For each item in campos if item <> "" and item <> "null" then sql = sql&" "&item&" " end if Next response.Write("Select * from cadastros where "&sql&" ") Muito obrigado

Boa dia, Estou desenvolvendo um sistema, nele precisei fazer um codigo para montar um select(sql) pegando os dados selecionados pelo usuário. Sendo que não esta me retornado na ordem desejada. Esse codigo deverá ter mais repetições, abaixo so tem 3 alguém poderia me dar uma luz ? :wacko: <% For each registro in request.form If InStr(1,registro,"select") <> 0 and request.form(registro) <> "null" and request.form(registro) <> "" then If InStr(6,registro,"campo") <> 0 then campo = request.Form(registro)&" " end if If InStr(6,registro,"comparacao") <> 0 then comparacao = request.Form(registro)&" " end if If InStr(6,registro,"textocomp") <> 0 then textocomp = request.Form(registro)&" " end if If InStr(6,registro,"operador") <> 0 then operador = request.Form(registro)&" " end if end if sql = campo&comparacao&textocomp&operador ' IMPRIME o ultimo registro de campo & comparacao & textocomp & operador 'sql = sql&campo&comparacao&textocomp&operador 'IMPRIME TUDO ERRADO, DESORDENADO E COM VARIAS REPETIÇÕES DO MESMO CAMPO next response.Write("Select * from cadastros where "&sql&" ") %> <select name="selectcampo1" id="selectcampo1"> <option value="null">Nenhum</option> <option value="nome">Nome</option> <option value="vinculo">Vinculo</option> <option value="endereco">Endereço</option> <option value="bairro">Bairro</option> <option value="cidade">Cidade</option> <option value="estado">Estado</option> <option value="cep">CEP</option> <option value="tel1">Telefone</option> <option value="tel2">Telefone2</option> <option value="cel">Celular</option> <option value="fax">FAX</option> <option value="obs1">Obs1</option> <option value="obs2">Obs2</option> <option value="razao">Razão Social</option> <option value="contato">Contato</option> <option value="site">Site</option> <option value="email">Email</option> <option value="email2">Email2</option> <option value="datanasc">Data de Nasc</option> <option value="cnpj">CNPJ</option> <option value="ie">IE</option> <option value="cpf">CPF</option> </select> <select name="selectcomparacao1" id="selectcomparacao1"> <option value="null" selected="selected"></option> <option value="=">Igual</option> <option value="<>">Diferente</option> <option value=">">Maior que</option> <option value="<">Menor que</option> <option value=">=">Maior que ou Igual</option> <option value="<=">Menor que ou Igual</option> </select> <input type="text" name="selecttextocomp1" id="selecttextocomp1" /> <select name="selectoperador1" id="selectoperador1"> <option value="null"></option> <option value="and">AND</option> <option value="or">OR</option> <option value="not">NOT</option> </select> <select name="selectcampo2" id="selectcampo2"> <option value="null">Nenhum</option> <option value="nome">Nome</option> <option value="vinculo">Vinculo</option> <option value="endereco">Endereço</option> <option value="bairro">Bairro</option> <option value="cidade">Cidade</option> <option value="estado">Estado</option> <option value="cep">CEP</option> <option value="tel1">Telefone</option> <option value="tel2">Telefone2</option> <option value="cel">Celular</option> <option value="fax">FAX</option> <option value="obs1">Obs1</option> <option value="obs2">Obs2</option> <option value="razao">Razão Social</option> <option value="contato">Contato</option> <option value="site">Site</option> <option value="email">Email</option> <option value="email2">Email2</option> <option value="datanasc">Data de Nasc</option> <option value="cnpj">CNPJ</option> <option value="ie">IE</option> <option value="cpf">CPF</option> </select> <select name="selectcomparacao2" id="selectcomparacao2"> <option value="null" selected="selected"></option> <option value="=">Igual</option> <option value="<>">Diferente</option> <option value=">">Maior que</option> <option value="<">Menor que</option> <option value=">=">Maior que ou Igual</option> <option value="<=">Menor que ou Igual</option> </select> <input type="text" name="selecttextocomp2" id="selecttextocomp2" /> <select name="selectoperador2" id="selectoperador2"> <option value="null"></option> <option value="and">AND</option> <option value="or">OR</option> <option value="not">NOT</option> </select> <select name="selectcampo3" id="selectcampo3"> <option value="null">Nenhum</option> <option value="nome">Nome</option> <option value="vinculo">Vinculo</option> <option value="endereco">Endereço</option> <option value="bairro">Bairro</option> <option value="cidade">Cidade</option> <option value="estado">Estado</option> <option value="cep">CEP</option> <option value="tel1">Telefone</option> <option value="tel2">Telefone2</option> <option value="cel">Celular</option> <option value="fax">FAX</option> <option value="obs1">Obs1</option> <option value="obs2">Obs2</option> <option value="razao">Razão Social</option> <option value="contato">Contato</option> <option value="site">Site</option> <option value="email">Email</option> <option value="email2">Email2</option> <option value="datanasc">Data de Nasc</option> <option value="cnpj">CNPJ</option> <option value="ie">IE</option> <option value="cpf">CPF</option> </select> <select name="selectcomparacao3" id="selectcomparacao3"> <option value="null" selected="selected"></option> <option value="=">Igual</option> <option value="<>">Diferente</option> <option value=">">Maior que</option> <option value="<">Menor que</option> <option value=">=">Maior que ou Igual</option> <option value="<=">Menor que ou Igual</option> </select> <input type="text" name="selecttextocomp3" id="selecttextocomp3" /> Obrigado Raphael

hmm, qual seria o comando em asp para dar o refresh sem tempo?

Eu fiz uma agenda para eventos com lista vip. Cada codigo da "agenda" esta ligado a uma tabela "lista Vip". Quando eu faço essa consulta " rs=LojaDB.Execute("SELECT * FROM listavip WHERE cod_ag LIKE '"&request.QueryString("lid")&"' Order by nomevip") " ele mostra todos os nomes da "listavip" ligados ao registro da agenda que escolhi. No painel de Administração eu coloquei para poder excluir os nomes da lista de 1 em 1. So que quando exclui um nome volta essa erro. Ele não esta mostrando a lista novamente com os nomes que sobarao. Obrigado pela ajuda.

sim, mais a função desse script e deletar um nome da lista, apos ser deletado eu queria q ele exibisse a lista novamente. desculpe, mas no momento estou estudando asp por conta propria e ate o momento desconheço a solução para esse erro :(

infelizmente o mesmo erro persiste :(

Olá, Gostaria de entender por acontece da esse erro quando deleto um nome da lista. O nome é deletado perfeitamente, mas a página volta com erro. Erro: ADODB.Field error '80020009' Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record. /extranet/elistavip2.asp, line 0 <!--#include file="conexao.inc.asp"--> <% lojadb.execute("delete from listavip where Código like '"&request.QueryString("X")&"'") Function FormataNome(ByVal Nome) Dim arrNome Dim Retorno Dim Cont Dim objER Dim Excecoes Set objER = New RegExp objER.IgnoreCase= True objER.Global = True Excecoes = "^(da|das|de|do|dos|e)$" objER.Pattern = Excecoes Nome = Lcase(Replace(Nome, " ", " ")) arrNome = Split(Nome, " ") Retorno = "" For Cont = 0 To Ubound(arrNome) arrNome(Cont) = Trim(arrNome(Cont)) If Not objER.Test(arrNome(Cont)) Then If Not arrNome(Cont) = "" Then arrNome(Cont) = Ucase(Left(arrNome(Cont), 1)) & Right(arrNome(Cont), Len(arrNome(Cont))-1) End If End If Retorno = Retorno & " " & arrNome(Cont) Next Set objER = Nothing FormataNome = Retorno End Function Function FormataData(Data) If Data <> "" Then FormataData = Right("0" & DatePart("d", Data),2) & "/" & Right("0" & DatePart("m", Data),2) End Function %> <link href="css/estiloadm.css" rel="stylesheet" type="text/css" /> <div id="conteudo"> <div class="titulo_pag">Excluir nomes</div> <% Set dados = Lojadb.execute("Select * from agenda Where codigo like '"&request.QueryString("lid")&"'") %> <div id="dados"> <div><span class="negrito">Local:</span> <%=dados("local2")%></div> <div><span class="negrito">Evento: </span><%=dados("evento")%></div> <div><span class="negrito">Data:</span> <%=FormataData(dados("data"))%></div> </div> <% Set rs=LojaDB.Execute("SELECT * FROM listavip WHERE cod_ag LIKE '"&request.QueryString("lid")&"' Order by nomevip") %> <table width="400" border="0" align="center" class="texto"> <% while not rs.EOF If cont=0 Then %> <tr> <% End If%> <td> <% Response.Write FormataNome(rs("nomevip"))%> <div> <a href="?id=elistavip2&X=<%=rs("Código")%>">Excluir</a> </div> <% Response.Write "</td>" cont=cont+1 If cont=2 Then ' Definimos a Quantidade de colunas Response.Write "</tr>" cont=0 End If rs.MoveNext Wend rs.Close set rs = Nothing %> </table> </div> Agradeço qualquer ajuda

O codigo em Cdonts esta funcionando Não estou mais utilizando o SMTPsvg.Mailer Seguem abaixo os codigos SMTPsvg.Mailer "Erro 503 5.5.1 Incorrect command sequence" dim email , nome email = request.Form("e-mail") nome = request.Form("nome") 'response.write "email = " & email & "<br>nome = " & nome & "<br>" 'response.end 'fim debug Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = nome Mailer.FromAddress= email Mailer.RemoteHost = "localhost" ' já foi testando Smtps mails Mailer.AddRecipient " ", "xxx@xx.com.br" 'dados substituidos por xx 'Mailer.ContentType = "text/html" ' formatação html Mailer.Subject = "Cadastro através do site" Mailer.BodyText = "vamos funcionar " 'string_txt If Mailer.SendMail Then Response.Redirect "http://www.xxx.com.br" 'dados substituidos por xx Else Response.Write "Erro " & Mailer.Response End If Set Mailer = nothing end if Cdo.nts Funcionando, inseri os dados no BD e manda por email . Dim var_nome, var_mail, var_to, EnviarMail var_nome = Request.form("nome") var_mail = Request.form("emailp") var_to = "xx@nxx.com.br" sql = "INSERT INTO newsletter(emailp,nome)" & _ "VALUES('" & request.form("emailp") & "','" & request.form("nome") & "')" lojaDB.execute(sql) Set EnviarMail = Server.CreateObject("CDONTS.NewMail") EnviarMail.To = var_to EnviarMail.From = var_mail EnviarMail.Subject = "Meu Site - Contatos" EnviarMail.Body = mensagem EnviarMail.Importance = 1 EnviarMail.BodyFormat = 0 EnviarMail.MailFormat = 0 If EnviarMail.Send Then 'Response.Write "Mensagem enviada com sucesso" Else 'Response.Write "Erro" '& EnviarMail.Response End If %> O meu problema já foi resolvido, pode fechar o tópico. Agradeço a atenção Em breve espero poder estar ajudando. Raphael

Não era isso, se ver os codigos mais acima já tentei isso de diversas formas. Já consegui fazer toda rotina de email no cdonts.

Já testei todos que o server aceita, consigo mandar email sem erro usando eles, mas so com o remente fixo. Ate o momento o Cdonts está me atendendo bem e enviando as mensagens sem problemas. Tem uma caracteristica do cdonts negativa para envio de email de cadastro e email em massa?

Sempre quando coloco o Mailer.FromAddress para receber alguma variavel da o erro. Mailer.FromAddress= email :wacko: Mailer.FromAddress= " xxx@xxx.com.br " :D Não sei porque.. Passei o projeto para o Cdonts agora, e esta evoluindo bem. Um hora eu descobro o que estava acontecendo Obrigado pela ajuda Um abraço, Raphael

Sei sim, Eu rodei o script logo abaixo no server para verificar os componentes e tive como resposta: ADODB SA-FileUp AspHTTP FileSystemObject ASPMail Já vi script de email rodando perfeitamente nesse server usando "SoftArtisans.SMTPMail" mas sempre quando altero para receber o form do email da o mesmo erro. agora fiquei perdido ehehhe <% @ Language="VBScript" %> <% Option Explicit %> <% Dim theComponent(11) Dim theComponentName(11) ' componentes theComponent(0) = "ADODB.Connection" theComponent(1) = "SoftArtisans.FileUp" theComponent(2) = "AspHTTP.Conn" theComponent(3) = "AspImage.Image" theComponent(4) = "LastMod.FileObj" theComponent(5) = "Scripting.FileSystemObject" theComponent(6) = "SMTPsvg.Mailer" theComponent(7) = "CDONTS.NewMail" theComponent(8) = "Jmail.smtpmail" theComponent(9) = "SmtpMail.SmtpMail.1" theComponent(10) = "Persits.Upload.1" theComponent(11) = "UnitedBinary.AutoImageSize" ' apelido do componente! theComponentName(0) = "ADODB" theComponentName(1) = "SA-FileUp" theComponentName(2) = "AspHTTP" theComponentName(3) = "AspImage" theComponentName(4) = "LastMod" theComponentName(5) = "FileSystemObject" theComponentName(6) = "ASPMail" theComponentName(7) = "CDONTS" theComponentName(8) = "JMail" theComponentName(9) = "SMTP" theComponentName(10) = "Persits Upload" theComponentName(11) = "AutoImageSize" Function IsObjInstalled(strClassString) On Error Resume Next IsObjInstalled = False Err = 0 Dim xTestObj Set xTestObj = Server.CreateObject(strClassString) If 0 = Err Then IsObjInstalled = True Set xTestObj = Nothing Err = 0 End Function %> <html> <head> <title>O q tem aqui?</title> </head> <body> <table width="100%" border="1" cellspacing="0" cellpadding="0"> <tr> <td align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000000"><b>Componentes instalados:</b></font></td> </tr> <tr> <td> <font face="Verdana, Arial, Helvetica, sans-serif" size="2"> <table border="0" cellpadding="0" cellspacing="0" width="100%"> <% Dim i For i=0 to UBound(theComponent) If Not IsObjInstalled(theComponent(i)) Then Else Response.Write "<tr>" & vbCrLf Response.Write "<td width=""100%"">" & vbCrLf Response.Write "<b>" & theComponentName(i) & "</b>" & vbCrLf Response.Write "</td>" & vbCrLf Response.Write "</tr>" & vbCrLf End If Next %> </table> </font> </td> </tr> </table> </body> </html> Obrigado Raphael

resultado certo: email = emaildoform@hotmail.com dps que fiz a alteração do nome tb imprimiu certo. dim email , nome email = request.Form("e-mail") nome = request.Form("nome") 'response.write "email = " & email & "<br>nome = " & nome & "<br>" 'response.end 'fim debug Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = nome Mailer.FromAddress= email Mailer.RemoteHost = "localhost" ' já foi testando Smtps mails Mailer.AddRecipient " ", "xxx@xx.com.br" 'dados substituidos por xx 'Mailer.ContentType = "text/html" ' formatação html Mailer.Subject = "Cadastro através do site" Mailer.BodyText = "vamos funcionar " 'string_txt If Mailer.SendMail Then Response.Redirect "http://www.xxx.com.br" 'dados substituidos por xx Else Response.Write "Erro " & Mailer.Response End If Set Mailer = nothing end if o erro " Erro 503 5.5.1 Incorrect command sequence " continua Alguma ideia ? abraço, raphael

não adiantou... =/ já fiz varios testes com formulario e não consigui enviar nenhum por email, em que o email digitado no formulario seja o remetente.

Prezados Srs., Gostaria de pedir a colaboração para resolução do erro "Erro 503 5.5.1 Incorrect command sequence", que acontece quando faço o cadastro. O cadastro envia os forms para meu email sendo que o email do remetente e o preenchido no cadastro. Servidor aceita o ASPMAIL. <% ' ------------------------------Envia formulário---------------------------------- if request.Form("envia") = "envia" then string_txt = "Nome: "&request.Form("nome")&"<br>" string_txt = string_txt &"E-mail: "&request.Form("e-mail")&"<br>" string_txt = string_txt &"Data de Nascimento: "&request.Form("nascimento")&"<br>" string_txt = string_txt &"Telefone: "&request.Form("telefone")&"<br>" string_txt = string_txt &"Celular: "&request.Form("celular")&"<br>" string_txt = string_txt &"Endereço: "&request.Form("endereco")&" - "&request.Form("numero")&" - "&request.Form("complemento")&"<br>" string_txt = string_txt &"Bairro: "&request.Form("bairro")&"<br>" string_txt = string_txt &"Cidade: "&request.Form("cidade")&"<br>" string_txt = string_txt &"Estado: "&request.Form("estado")&"<br>" string_txt = string_txt &"País: "&request.Form("pais")&"<br>" string_txt = string_txt &"Profissão Especial: "&request.Form("profissao")&"- "&request.Form("diagnostico")&"<br><br>" string_txt = string_txt &"Familiaridade com um especial: "&request.Form("familiaridade")&"- "&request.Form("parentesco")&"<br>" string_txt = string_txt &"Diagnóstico do parentesco: "&request.Form("diagnostico2")&"<br>" string_txt = string_txt &"Mensagem: "&request.Form("mensagem")&"<br>" Set Mailer = Server.CreateObject("SMTPsvg.Mailer") 'O nome do remetente Mailer.FromName = request.Form("nome") ' Email do remetente Mailer.FromAddress= request.Form("e-mail") '<==== my probleman Mailer.RemoteHost = "localhost" ' já foi testando Smtps mails 'destinatário Mailer.AddRecipient "xxxx@xx.com", "xxx@xxx.com" 'dados substituidos por xx 'Mailer.ContentType = "text/html" ' formatação html Mailer.Subject = "Cadastro através do site" Mailer.BodyText = string_txt If Mailer.SendMail Then Response.Redirect "http://www.xxxx.com.br" 'dados substituidos por xx Else Response.Write "Erro " & Mailer.Response End If Set Mailer = nothing end if ' ------------------------------Envia formulário fim---------------------------------- %> <html> <head> <title>Documento sem título</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: 13px; color: #333333; } --> </style> <link href="../form.css" rel="stylesheet" type="text/css"> <style type="text/css"> <!-- body { margin-left: 0px; margin-top: 0px; margin-right: 0px; margin-bottom: 0px; } --> </style></head> <body> <table width="590" border="0" cellpadding="2" cellspacing="2"> <form name="form1" method="post" action="cadastro.asp"> <input name="envia" type="hidden" value="envia"> <tr bgcolor="#EBEBEB"> <td colspan="2" align="right"> </td> </tr> <tr bgcolor="#EBEBEB"> <td align="right">Nome</td> <td><input name="nome" type="text" class="box" id="nome" size="55"></td> </tr> <tr bgcolor="#EBEBEB"> <td width="26%" align="right">E-mail</td> <td width="74%"><input name="e-mail" type="text" class="box" id="e-mail2" size="55"></td> </tr> <tr bgcolor="#EBEBEB"> <td align="right">Data de Nascimento</td> <td><input name="nascimento" type="text" class="box" id="e-mail3" size="20"></td> </tr> <tr bgcolor="#EBEBEB"> <td align="right"><div align="right">Telefone</div></td> <td><input name="telefone" type="text" class="box" id="telefone2" size="15"> Celular <input name="celular" type="text" class="box" id="celular2" size="15"> </td> </tr> <tr bgcolor="#EBEBEB"> <td align="right"><div align="right">Endereço</div></td> <td><input name="endereco" type="text" class="box" id="endereco2" size="55"></td> </tr> <tr bgcolor="#EBEBEB"> <td align="right">Número</td> <td><input name="numero" type="text" class="box" id="numero2" size="2"> Compl <input name="complemento" type="text" class="box" id="complemento2" size="10"> Bairro <input name="bairro" type="text" class="box" id="bairro2" size="25"></td> </tr> <tr bgcolor="#EBEBEB"> <td align="right"><div align="right">Cidade</div></td> <td><input name="cidade" type="text" class="box" id="cidade2" size="55"></td> </tr> <tr bgcolor="#EBEBEB"> <td align="right"><div align="right">Estado</div></td> <td><input name="estado" type="text" class="box" id="estado2" size="3"> País <input name="pais" type="text" class="box" id="pais" size="20"></td> </tr> <tr bgcolor="#EBEBEB"> <td align="right">Profissão Especial?</td> <td><input name="profissao" type="radio" value="sim"> sim <input name="profissao" type="radio" value="não"> não - Diagnóstico? <input name="diagnostico" type="text" class="box" id="diagnostico" size="26"></td> </tr> <tr bgcolor="#EBEBEB"> <td> </td> <td> </td> </tr> <tr bgcolor="#EBEBEB"> <td> </td> <td><strong>Familiaridade com um especial </strong></td> </tr> <tr bgcolor="#EBEBEB"> <td> </td> <td><input name="familiaridade" type="radio" value="nenhuma"> nenhuma <input name="familiaridade" type="radio" value="conhecido"> conhecido <input name="familiaridade" type="radio" value="amigo"> amigo </td> </tr> <tr bgcolor="#EBEBEB"> <td> </td> <td><input name="familiaridade" type="radio" value="parentesco"> parentesco <input name="parentesco" type="text" class="box" id="parentesco" size="20"></td> </tr> <tr bgcolor="#EBEBEB"> <td> </td> <td>Diagnóstico <input name="diagnostico2" type="text" class="box" id="diagnostico2" size="23"></td> </tr> <tr bgcolor="#EBEBEB"> <td align="right">Mensagem</td> <td><textarea name="mensagem" cols="54" rows="5" class="box" id="mensagem"></textarea></td> </tr> <tr bgcolor="#EBEBEB"> <td colspan="2"><div align="center"> <input name="enviar" type="submit" class="botao" id="enviar2" value="Enviar"> </div></td> </tr> </form> </table> </body> </html> Desde de já agradeço, Um abraço, Raphael

Boa tarde, Muito obrigado meu xára ehehhe Foi so para ocultar o nome mesmo. O erro estava no resquet.form mesmo. O certo é nome=upl.Form("nome"). Um abraço, Raphael

Boa noite, Gostaria de contar com a ajuda dos Srs. para descobrir meu erro no codigo, tratase de um cadastro com foto. Como começei com asp a pouco tempo, pode ser que seja algum errinhu bobo. Vamos lá, no script abaixo era para ele gravar todas as informações do cadastro no banco de dados Access e armazenar a imagem na pasta /foto/ gravando o nome dela no bd. No momento ele so esta dando upload na imagem <_< <!--#include File="Adovbs.inc"--> <!--#include file="Connections/cadastro.asp" --> <% Set upl = Server.CreateObject("SoftArtisans.FileUp") upl.Path = "E:\..............\cadastro\foto" strFileName = Mid(upl.UserFilename, InstrRev(upl.UserFilename, "\") + 1) upl.Save %> <% vinculo=Request.Form("vinculo") nome=Request.Form("nome") endereco=Request.Form("endereco") numero=Request.Form("numero") bairro=Request.Form("bairro") cidade=Request.Form("cidade") estado=Request.Form("estado") cep=Request.Form("cep") fone1=Request.Form("fone1") fone2=Request.Form("fone2") celular=Request.Form("celular") fax=Request.Form("fax") comentario=Request.Form("comentario") razao=Request.Form("razao") contato=Request.Form("contato") email=Request.Form("email") email2=Request.Form("email2") site=Request.Form("site") foto=Request.Form("foto") obs=Request.Form("obs") Set objConn = Server.CreateObject("ADODB.Connection") strConnection = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" strConnection = strConnection & Server.MapPath("../db/banco.mdb") objConn.Open strConnection strSql = "SELECT nome From cadastro Where [cadastro].nome = '"&nome&"'" Set objTemp = objConn.Execute(strSql) If Not objTemp.Eof Then Response.redirect "erro.asp?nome="&nome Else end if Set RS = Server.CreateObject("ADODB.RecordSet") RS.Open "cadastro", objConn , adOpenKeyset, adLockOptimistic RS.Addnew RS("vinculo") = vinculo RS("nome") = nome RS("endereco") = endereco RS("numero") = numero RS("bairro") = bairro RS("cidade") = cidade RS("estado") = estado RS("cep") = cep RS("fone1") = fone1 RS("fone2") = fone2 RS("celular") = celular RS("fax") = fax RS("comentario") = comentario RS("razao") = razao RS("contato") = contato RS("email") = email RS("email2") = email2 RS("site") = site RS("obs") = obs RS("foto") = strFileName RS("n_acessos") = "0" RS.update RS.Close Set Conn = nothing Set RS = nothing Set upl = Nothing response.redirect "cadastro_cliente_conf.asp" %> agradeço desde já, Raphael.