webdeveloper

O form e a query estã em páginas diferentes???

Tente multiplicar por (-1) quando o valor que for retornar for menor que zero.

'percorre o recordset e com o dados escreve no arquivo XML do while not rs.eof act.WriteLine("<slide src=""fotos/" & rs("fotos") & ".jpg"" href=""http://www.netzart.com.br/rodeiofest/fotos/fotos.asp"" title=""" & rs("nome") & """><![CDATA[""" & rs("data") & "-" & rs("casa") & """]]></slide>") ' move para o proximo registro rs.movenext loop

Troca isso: 'percorre o recordset e com o dados escreve no arquivo XML do while not rs.eof act.WriteLine("<slide src=fotos/&rs(""fotos"")&.jpg href=""http://www.netzart.com.br/rodeiofest/fotos/fotos.asp"" title=&rs(""nome"")&>""<![CDATA[& rs(""data"")& - &rs(""casa"")&]]>""</slide>") ' move para o proximo registro rs.movenext loop Por isso: 'percorre o recordset e com o dados escreve no arquivo XML do while not rs.eof act.WriteLine("<slide src=""fotos/" & rs("fotos") & ".jpg"" href=""http://www.netzart.com.br/rodeiofest/fotos/fotos.asp"" title=""" & rs("nome") & "><![CDATA[""" & rs("data") & "-" & rs("casa") & """]]></slide>") ' move para o proximo registro rs.movenext loop

Em .NET dá, agora em ASP acredito que você terá que fazer um insert sem valores somente pra pegar o ID, assim você mostra pro cara digitar ai quando ele for gravar você faz um update com o ID que você pegou no insert.

Tenta assim: hoje=date() diaSemana=weekDay(hoje) dataIni = cdate((hoje - diaSemana))+1 sa=(Year(dataIni) &"-"& Month(dataIni) &"-"& Day(dataIni)) dataFim=cdate(dataIni + 30) se=(Year(dataFim) &"-"& Month(dataFim) &"-"& Day(dataFim)) Call abreConexao result=trim(request.form("valor")) result1=cstr(trim(request.Form("modo"))) sqlTabela = "Select * From agenda where data between ' " & sa & " ' and ' " & se & " ' " sqlTabela = sqlTabela + " ORDER BY data desc " set rsTabela=conexaoDataBase.execute(sqlTabela) Se não me engano o formato de data o MySql é assim YYYY-MM-DD.

Fazer isso automaticamente assim que você cadastra dá, faça uso de funções do ASP que são chamadas quando você adicionar, ou use Ajax.

Assim: response.Redirect("Alt_Paciente.asp?id_Paciente=" & vid_Paciente)

Então o código está correto.

Verifica o que tem na variável email, se está vindo o que foi selecionado.

Veja essa linha: dia = cdate(rsTabela("data"))+2 Não deveria ser substituida por isso??? dia = CDate(rsTabela("data")) - 2 Assim você pegará os registos dois dias antes (-2).

Tente assim: Dim v91 v91 = 2.9 var_valordocumento = FormatNumber( Request.QueryString("valordocumento") + v91, 2 )

Da forma que está já está mandando para todos.

Aparentemente o código está correto, para cada registro que ele encontrar ele envia um e-mail, ou você quer mandar para todos de uma vez só???

Tá dando algum erro???

Você já postou esse tópico aqui http://scriptbrasil.com.br/forum/index.php?showtopic=104081. Evite postar tópicos com a mesma finalidade, faça uma busca no fórum, se não achar poste, leia as regras do fórum. Para códigos prontos utilize o Google, no caso de dúvida utilize o fórum.

Ou assim: strSql = "select nmFunc, cfpFunc from tbFunc where codFunc In ( '00121', '00125' )"

<!-- #include file="conexao.asp" --> <% DIM cn,rs SET rs = cn.EXECUTE(" Select * from Cadastro where TIPO = '1' "); If Not rs.EOF Then rs.MoveFirst Do While Not rs.EOF For Each Col In rs.Fields Response.Write " | " & Col.Value & " | " Next Response.Write "<br />" rs.MoveNext Loop End If %>

Tá dando erro onde??? E qual erro???

Monta um link que chama a outra pagina contendo todos os dados que você quer passar. <a href="pag2.asp?nome=fulano&email=fulano@eu.com>fulano</a>

Está dizendo que sua instrução SQL tem algum erro, poste ela pra podermos analizar melhor.

Que tipo de campo é a data da tabela???

Tenta declarar assim: arrDados() E na hora de redimensionar, mantenha do jeito que está.

Verifique se você tem privilégio de gravação na pasta onde está o banco de dados.

Checa o que a função Cells.Find está retornando.