Cinthia

Olá Pessoal, Estou com um problema em todas as páginas com acesso a banco de dados, aparece a seguinte mensagem de erro: The Dynamic Data Script does not define the find server behaviors function. E isto está acontecendo em todas as páginas com acesso a banco de dados, de diferentes sites que tenho em meu computador, e começou a acontecer de uma hora para outra. Desconfio que seja algum erro no Dreamweaver e não nos arquivos. Será que alguém já teve este problema. Alguém pode me ajudar? Pelo amora de Deus!!!! :wacko: Obrigada, Pessoal. Beijos, Cinthia

Oi pessoal, Preciso de ajuda: Estou usando o ASPSmartUpload e gostaria o arquivo do upload fosse salvo com o conteúdo do campo email preenchido no formulário anterior. Eu tenho uma primeira página com cadastrpo de cliente que apenas insere as informações no Banco de Dados, depois de preenchido o formulário a pessoa vai para uma página resposta.asp onde ela escolhe o arquivo que fará upload, esta página tem um formulário cujo action é a página upload.asp Gostaria que arquivo fosse salvo com a Session("email") Como devo fazer? página resposta.asp <FORM METHOD="POST" ACTION="upload.asp" ENCTYPE="multipart/form-data"> <INPUT TYPE="FILE" NAME="<%=Session("email")%>" SIZE="50"> <INPUT TYPE="SUBMIT" VALUE="ok"> </FORM> E a página upload.asp <% ' Variaveis ' ********* Dim mySmartUpload Dim intCount ' Cria o objeto Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload") ' Upload mySmartUpload.Upload ' Rotina que salva os arquivos na pasta intCount = mySmartUpload.Save("c:\www\portalnoivas\web\concurso") Response.Write(intCount & " file(s) uploaded.") ' Destroi o objeto set mySmartUpload = nothing %> Conto mais uma vez com a ajuda de vocês, Obrigada, Cinthia

Valeu, Cyberalex. Resolveu o meu problema. Muitíssimo Obrigada,

Estou com o mesmo problema desta pessoa, fiz o que você sugeriu mas a página seguinte não exibe o conteúdo da session. > > Será que posso utilizar este recurso para armazenar um campo de uma página que insere as informações no Banco de Dados e depois recuperar este campo na página seguinte à inserção? > > Conto com a sua ajuda. Segue abaixo os meus códigos, para voc~e dar uma avaliada > > Obrigada, > Cinthia Na página de inserção... <% ' *** Edit Operations: declare variables Dim MM_editAction Dim MM_abortEdit Dim MM_editQuery Dim MM_editCmd Dim MM_editConnection Dim MM_editTable Dim MM_editRedirectUrl Dim MM_editColumn Dim MM_recordId Dim MM_fieldsStr Dim MM_columnsStr Dim MM_fields Dim MM_columns Dim MM_typeArray Dim MM_formVal Dim MM_delim Dim MM_altVal Dim MM_emptyVal Dim MM_i MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Request.QueryString End If ' boolean to abort record edit MM_abortEdit = false ' query string to execute MM_editQuery = "" %> <% ' *** Insert Record: set variables If (CStr(Request("MM_insert")) = "form1") Then MM_editConnection = MM_connportal2_STRING MM_editTable = "concurso" MM_editRedirectUrl = "resposta.asp" MM_fieldsStr = "noiva|value|email|value|ddd|value|telefone-res|value|tel-comercial|value|celular|value|endereco|value|numero|value|complemento|value|bairro|value|cep|value|cidade|value|estado|value|data|value|igreja|value|recepcao|value|propaganda|value" MM_columnsStr = "Noiva|',none,''|email|',none,''|ddd|',none,''|telefone_res|',none,''|telefone_com|',none,''|celular|',none,''|endereco|',none,''|numero|',none,''|complemento|',none,''|bairro|',none,''|cep|',none,''|cidade|',none,''|estado|',none,''|data|',none,''|igreja|',none,''|horario|',none,''|propaganda|',none,''" ' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|") ' set the form values For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i))) Next ' append the query string to the redirect URL If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If End If %> <% ' *** Insert Record: construct a sql insert statement and execute it Dim MM_tableValues Dim MM_dbValues If (CStr(Request("MM_insert")) <> "") Then ' create the sql insert statement MM_tableValues = "" MM_dbValues = "" For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_formVal = MM_fields(MM_i+1) MM_typeArray = Split(MM_columns(MM_i+1),",") MM_delim = MM_typeArray(0) If (MM_delim = "none") Then MM_delim = "" MM_altVal = MM_typeArray(1) If (MM_altVal = "none") Then MM_altVal = "" MM_emptyVal = MM_typeArray(2) If (MM_emptyVal = "none") Then MM_emptyVal = "" If (MM_formVal = "") Then MM_formVal = MM_emptyVal Else If (MM_altVal <> "") Then MM_formVal = MM_altVal ElseIf (MM_delim = "'") Then ' escape quotes MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'" Else MM_formVal = MM_delim + MM_formVal + MM_delim End If End If If (MM_i <> LBound(MM_fields)) Then MM_tableValues = MM_tableValues & "," MM_dbValues = MM_dbValues & "," End If MM_tableValues = MM_tableValues & MM_columns(MM_i) MM_dbValues = MM_dbValues & MM_formVal Next MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")" If (Not MM_abortEdit) Then ' execute the insert Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close If (MM_editRedirectUrl <> "") Then Response.Redirect(MM_editRedirectUrl) End If End If End If %> <% Session("email") = Request.Form("email") %> e na página seguinte, após a inserção... <% response.write Session("email")%>

Por favor, Alguém pode me ajudar? Tem como eu criar uma página que Cadastra o usuário e ao mesmo tempo, depois da inserção no Bando de Dados, esta página já efetua o login? Desde já agradeço a atenção de sempre e fico no aguardo. Beijos, Cinthia

Por favor, alguém conheceu algum site onde eu possa criar Listas de Distribuição de emails? ou seja, eu crio um email e a mensagem que eu envio para este email é retransmitida para todos os emails cadastrados nesta lista. []´s Cinthia

Muito obrigada pela ajuda de todos. Já consegui resolver minha dúvidas. []´s Cinthia

Muito obrigada pela ajuda de todos. Já consegui resolver minha dúvidas. []´s Cinthia

Oi Pessoal, Esta é moleza pra quem entende de ASP (que não é o meu caso,hehe). Gostaria de enviar a página abaixo por email, cujo email do destinatário é o campo recipient da página a ser enviada, e o remetente da mensagem é o campo email da mensagem a ser enviada. Tentei usar os modelos de formulários cdonts que existem na internet, mas como estou iniciando em ASP, tive muitas dúvidas e não consegui. Por favor, gostaria que alguém montasse pra mim a página com o componente cdonts. Tenho certeza que para quem manja de ASP, vai ser rapidinho e fácil. Mais uma vez, Obrigada, Cinthia

Puxa, Nada como falar com quem entende, né? Era exatamente isto que eu queria. Muitíssimo Obrigada!!! Felipe, será que vc. poderia me explicar "de forma simples", o que vc. alterou? Eu não entendo muito de código ASP, estou iniciando agora, e eu ainda vou precisar fazer códigos semelhantes a este em meu site. Valeu, Felipe. []´s Cinthia

Por favor mais uma ajudinha: Quero fazer uma recordset que busque no banco de dados, todas as informações da tabela noiva, cujo campo "email" for igual a variável de sessão "MM_Username" Abaixo segue o código que tentei fazer usando o Dreamweaver, mas está dando a seguinte mensagem de erro: Tipo de erro: Erro de compilação do Microsoft VBScript (0x800A0411) Redefinição do nome /portalnoivas/html/express/enviar.asp, line 25, column 4 Dim rsnoiva__MMColParam ---^ E eu fiz o teste com um registro que existe no BD, eu abri o BD e vi que realmente o registro que usei como teste estava lá. Mais uma vez conta com a ajuda de vocês, Obrigada, Cinthia

Por favor mais uma ajudinha: Quero fazer uma recordset que busque no banco de dados, todas as informações da tabela noiva, cujo campo "email" for igual a variável de sessão "MM_Username" Abaixo segue o código que tentei fazer usando o Dreamweaver, mas está dando a seguinte mensagem de erro: Tipo de erro: E eu fiz o teste com um registro que existe no BD, eu abri o BD e vi que realmente o registro que usei como teste estava lá. Mais uma vez conta com a ajuda de vocês, Obrigada, Cinthia

Esta é a linha que dá erro: <input name="noiva" type="text" value="<%=(rsnoiva.Fields.Item("Noiva").Value)%>" size="84">

Oi Pessoal, Peço a ajuda de vocês. para o meu probleminha: Depois que o visitante do meu site efetua logon, gostaria de apresentar na página seguinte todas as informações de cadastro dele. Estou conseguindo apresentar apenas o que foi armazenado na variavel de sessão, quando ele efetuou o logon, que é o nome de usuário (MM_Username). Tentei fazer um recordset filtrando a coluna email do meu Banco de dados = a variavel de sessão MM_Username, mas não deu certo. Aparece a seguinte mensagem de erro: "Tipo de erro: ADODB.Field (0x800A0BCD) BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual. /portalnoivas/html/express/enviar.asp, line 40 " Abaixo segue o código da minha página. Se alguém puder dar uma olhadinha para ver se há algum erro, ou se falta algum código, eu agradeço. Obrigada, Beijos, Cinthia CÓDIGO: <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!--#include file="../../Connections/connportal2.asp" --> <% Dim rsnoiva__MMColParam rsnoiva__MMColParam = "1" If (Request.Form("MM_Username") <> "") Then rsnoiva__MMColParam = Request.Form("MM_Username") End If %> <% Dim rsnoiva Dim rsnoiva_numRows Set rsnoiva = Server.CreateObject("ADODB.Recordset") rsnoiva.ActiveConnection = MM_connportal2_STRING rsnoiva.Source = "SELECT * FROM noiva WHERE email = '" + Replace(rsnoiva__MMColParam, "'", "''") + "'" rsnoiva.CursorType = 0 rsnoiva.CursorLocation = 2 rsnoiva.LockType = 1 rsnoiva.Open() rsnoiva_numRows = 0 %> <html> <head> <title>Documento sem t&iacute;tulo</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body> <form name="form1" method="post" action=""> <p align="center"><font size="5"><em>Dados que ser&atilde;o enviados aos anunciantes</em></font></p> <table> <tr> <td colspan="6"><font size="4" color="#FF0000"><i><font size="5">Noiva</font></i></font></td> </tr> <tr> <td width="53"><b><font color="#FF0000">Nome:</font></b></td> <td colspan="5"> <input name="noiva" type="text" value="<%=(rsnoiva.Fields.Item("Noiva").Value)%>" size="84"> </td> </tr> <tr> <td><b><font color="#FF0000">Email:</font></b></td> <td colspan="5"> <input name="email" type="text" value="<%response.write Session("MM_Username") %>"> <font size="2" color="#666666">&nbsp;</font></td> </tr> <tr> <td colspan="6"><table width="100%"> <tr> <td width="13%"><b><font color="#FF0000">Tel. Res.:</font></b></td> <td width="25%"><b>( <input name="ddd" type="text" id="ddd3" value="<%=(rsnoiva.Fields.Item("ddd").Value)%>" size="5"> ) <input name="telefone-res" type="text" id="telefone-res3" value="<%=(rsnoiva.Fields.Item("telefone_res").Value)%>" size="10"> </b></td> <td width="13%"><div align="right"><strong><font color="#FF0000">Tel. Com.:</font></strong></div> </td> <td width="15%"><input name="tel-comercial" type="text" id="tel-comercial3" size="10"> </td> <td width="12%"><div align="right"><strong><font color="#FF0000">Celular:</font></strong> </div> </td> <td width="22%"> <div align="left"> <input name="celular" type="text" id="celular3" size="9"> </div> </td> </tr> </table> </td> </tr> <tr> <td colspan="6"><table width="100%"> <tr> <td width="17%"><b><font color="#FF0000">Endere&ccedil;o:</font></b></td> <td width="59%"><input name="endereco" type="text" id="endereco3" size="50"> </td> <td width="10%"><div align="right"><strong><font color="#ff0000">n&deg;:</font></strong></div> </td> <td width="14%"><input name="numero" type="text" id="numero3" size="4"> </td> </tr> <tr> <td><strong><font color="#ff0000">complemento:</font></strong></td> <td><input name="complemento" type="text" id="complemento3"> </td> <td><div align="right"><strong><font color="#ff0000">bairro:</font></strong></div> </td> <td><input name="bairro" type="text" id="bairro3" size="8"> </td> </tr> </table> </td> </tr> <tr> <td><b><font color="#FF0000">Cep:</font></b></td> <td width="114"> <input name="cep" type="text" id="cep3" size="10"> </td> <td width="71"><b><font color="#FF0000">Cidade:</font></b></td> <td width="197"> <input name="cidade" type="text" id="cidade3" size="15"> </td> <td width="136" colspan="2"><b><font color="#FF0000">Estado: <input name="estado" type="text" id="estado" size="4"> </font></b> </td> </tr> <tr> <td colspan="6">&nbsp;</td> </tr> <tr> <td colspan="6"><font color="#0000FF" size="5"><strong><em>Noivo</em></strong></font></td> </tr> <tr> <td colspan="6"><font color="#0033CC"><strong>Nome: <input name="noivo" type="text" id="noivo" size="84"> </strong></font></td> </tr> <tr> <td colspan="6"><strong><font color="#0033CC">Email: <input name="email_noivo" type="text" id="email_noivo" size="84"> </font></strong></td> </tr> <tr> <td colspan="6">&nbsp;</td> </tr> <tr> <td colspan="6"><font size="4"><i><font color="#FF9900" size="5">Seu Casamento</font></i></font></td> </tr> <tr> <td><b><font color="#FF9900">Data:</font></b></td> <td><b><font color="#FFCC00"> <input name="data" type="text" size="10"> </font></b></td> <td><b><font color="#FF9900">Igreja:</font></b></td> <td colspan="3"> <input name="igreja" type="text" id="igreja3"> </td> </tr> <tr> <td>&nbsp;</td> <td>&nbsp;</td> <td><font color="#FF9900"><strong>Recep&ccedil;&atilde;o:</strong></font></td> <td colspan="3"><input name="recepcao" type="text" id="recepcao3"> </td> </tr> <tr> <td>&nbsp;</td> <td><font color="#FF9900">&nbsp;</font></td> <td><div align="right"><font color="#FF9900"><strong>hor&aacute;rio:</strong></font></div> </td> <td colspan="3"><input name="horario" type="text" id="horario"> </td> </tr> <tr> <td>&nbsp;</td> <td colspan="2"><div align="right"><font color="#FF9900"><strong>n&deg; convidados:</strong></font></div> </td> <td colspan="3"><input name="convidados" type="text" id="convidados"> </td> </tr> </table> <p><font size="5"><em>Cota&ccedil;&otilde;es</em></font></p> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="22%"><strong><font size="2" face="Arial, Helvetica, sans-serif">Produto:</font></strong></td> <td width="78%" colspan="2"><input name="produto" type="text" id="produto" value="Trajes Femininos"> </td> </tr> <tr> <td><strong><font size="2" face="Arial, Helvetica, sans-serif">Quantidade:</font></strong></td> <td colspan="2"><input name="quantidade" type="text" id="quantidade"> </td> </tr> <tr> <td><strong><font size="2" face="Arial, Helvetica, sans-serif">Manequim<br> (tamanho):</font></strong></td> <td colspan="2"><input name="manequim" type="text" id="manequim"> </td> </tr> <tr> <td><strong><font size="2" face="Arial, Helvetica, sans-serif">cor:</font></strong></td> <td colspan="2"><input name="cor" type="text" id="cor"> </td> </tr> <tr> <td>&nbsp;</td> <td><font size="2" face="Arial, Helvetica, sans-serif">&nbsp; <input name="transacao" type="text" id="transacao"> </font></td> <td><font size="2" face="Arial, Helvetica, sans-serif">&nbsp; </font></td> </tr> <tr> <td><font size="2" face="Arial, Helvetica, sans-serif"><strong>Regi&atilde;o:</strong></font></td> <td colspan="2"><input name="regiao" type="text" id="regiao"></td> </tr> <tr> <td><strong><font size="2" face="Arial, Helvetica, sans-serif">Mensagem:</font></strong></td> <td colspan="2"><textarea name="mensagem" id="mensagem"></textarea> </td> </tr> <tr> <td colspan="3"><div align="center"> <input name="recipient" type="hidden" id="recipient"> <input type="submit" name="Submit" value="Enviar"> <strong></strong></div> </td> </tr> </table> <p>&nbsp; </p> </form> </body> </html> <% rsnoiva.Close() Set rsnoiva = Nothing %>