Vagner Nunes

Prezados, Boa tarde. Recentemente configurei o meu IIS para rodar ASP e agora PHP, porém me vi com um problemão, pois o php o IIS está reconhecendo normalmente, porém o meu phpMyAdmin não está funcionando, ele está aparece um erro de extensão. Não tenho a mínima idéia do que pode estar acontecendo, a minha máquina estava com o EasyPHP e o phpMyAdmin estava beleza. Sds, Vagner Nunes

Quando o professor digita o endereço a página Index.asp é carregada, nesta página ele digitará o nome e uma senha, que é o campo indentificação. Daí quando for clicado em Prosseguir abrirá a página solicitacao.asp. Abaixo a página index.asp <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!--#include file="Connections/Conectar.asp" --> <% Dim Solicitante Dim Solicitante_numRows Set Solicitante = Server.CreateObject("ADODB.Recordset") Solicitante.ActiveConnection = MM_Conectar_STRING Solicitante.Source = "SELECT * FROM solicitantes" Solicitante.CursorType = 0 Solicitante.CursorLocation = 2 Solicitante.LockType = 1 Solicitante.Open() Solicitante_numRows = 0 %> <form action="solicitacao.asp" method="get" name="form1" id="form1" onsubmit="MM_validateForm('solicitante','','R','identificacao','','R');return document.MM_returnValue"> <label> </label> <table width="437" border="0"> <tr> <td width="85" bgcolor="#F0F0F0"><div align="right">Professor:</div></td> <td width="342" bgcolor="#999999"><div align="left"> <input name="solicitante" type="text" id="solicitante" size="55" /> </div></td> </tr> <tr> <td bgcolor="#F0F0F0"><div align="right">Identifica&ccedil;&atilde;o:</div></td> <td bgcolor="#999999"><div align="left"> <input name="identificacao" type="password" id="identificacao" size="15" /> </div></td> </tr> <tr> <td bgcolor="#F0F0F0">&nbsp;</td> <td bgcolor="#999999"><label> <div align="left"> <input type="submit" name="Submit" value="Prosseguir &gt;&gt;" /> </div> </label></td> </tr> </table> <p>&nbsp;</p> <label></label> </form> </div></td> </tr><% Solicitante.Close() Set Solicitante = Nothing %> Segue abaixo a página solicitacao.asp %@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!--#include file="Connections/Conectar.asp" --> <% ' *** 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 & "?" & Server.HTMLEncode(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_Conectar_STRING MM_editTable = "solicitacoes" MM_editRedirectUrl = "sucess_solicitacao_coordenacao.asp" MM_fieldsStr = "solicitante|value|curso|value|disciplina|value|email|value|titulo|value|autor|value|bibliografia|value|edicao|value|editora|value|nbiblioteca|value|nsolicitados|value|emailcoord|value|aprovado|value" MM_columnsStr = "solicitante|',none,''|curso|',none,''|disciplina|',none,''|email|',none,''|titulo|',none,''|autor|',none,''|bibliografia|',none,''|edicao|',none,''|editora|',none,''|nbiblioteca|',none,''|nsolicitados|',none,''|emailcoord|',none,''|aprovado|',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 %> <% Dim Solicitante__MMColParam Solicitante__MMColParam = "1" If (Request.QueryString("identificacao") <> "") Then Solicitante__MMColParam = Request.QueryString("identificacao") End If %> <% Dim Solicitante Dim Solicitante_numRows Set Solicitante = Server.CreateObject("ADODB.Recordset") Solicitante.ActiveConnection = MM_Conectar_STRING Solicitante.Source = "SELECT * FROM solicitantes WHERE identificacao = '" + Replace(Solicitante__MMColParam, "'", "''") + "'" Solicitante.CursorType = 0 Solicitante.CursorLocation = 2 Solicitante.LockType = 1 Solicitante.Open() Solicitante_numRows = 0 %> <form ACTION="<%=MM_editAction%>" METHOD="POST" name="form1"> <table width="756" align="center"> <tr valign="baseline"> <td align="right" nowrap="nowrap" bgcolor="#EFEFEF"><div align="left">Solicitante:</div></td> <td bgcolor="#666666"> <div align="left"> <input name="solicitante" type="text" value="<%=(Solicitante.Fields.Item("solicitante").Value)%>" size="75" /> </div></td> </tr> <tr valign="baseline"> <td align="right" nowrap="nowrap" bgcolor="#EFEFEF"><div align="left">Curso:</div></td> <td bgcolor="#666666"><div align="left"> <input name="curso" type="text" value="<%=(Solicitante.Fields.Item("curso").Value)%>" size="55" /> </div></td> </tr> <tr valign="baseline"> <td align="right" nowrap="nowrap" bgcolor="#EFEFEF"><div align="left">Disciplina:</div></td> <td bgcolor="#666666"><div align="left"> <input name="disciplina" type="text" value="<%=(Solicitante.Fields.Item("disciplina").Value)%>" size="65" /> </div></td> </tr> <tr valign="baseline"> <td align="right" nowrap="nowrap" bgcolor="#EFEFEF"><div align="left">Email:</div></td> <td bgcolor="#666666"> <div align="left"> <input name="email" type="text" value="<%=(Solicitante.Fields.Item("email").Value)%>" size="45" /> </div></td></tr> <tr valign="baseline"> <td align="right" nowrap bgcolor="#EFEFEF">&nbsp;</td> <td bgcolor="#666666">&nbsp;</td> </tr> <tr valign="baseline"> <td align="right" nowrap bgcolor="#EFEFEF"><div align="left"></div></td> <td bgcolor="#666666"><div align="left"></div></td> </tr> <tr valign="baseline"> <td align="right" nowrap="nowrap" bgcolor="#EFEFEF"><div align="left">Titulo:</div></td> <td bgcolor="#666666"><div align="left"> <input type="text" name="titulo" value="Descreva o t&iacute;tulo" size="75" /> </div></td> </tr> <tr valign="baseline"> <td width="104" align="right" nowrap bgcolor="#EFEFEF"><p align="left">Autor:</p></td> <td width="640" bgcolor="#666666"> <div align="left"> <input type="text" name="autor" value="Descreva o autor" size="40"> </div></td> </tr> <tr valign="baseline"> <td align="right" nowrap bgcolor="#EFEFEF"><div align="left">Bibliografia:</div></td> <td bgcolor="#666666"> <div align="left"> <label> <select name="bibliografia" id="bibliografia"> <option value="Basica">B&aacute;sica</option> <option value="Complementar">Complementar</option> </select> </label> </div></td> </tr> <tr valign="baseline"> <td align="right" nowrap bgcolor="#EFEFEF"><div align="left">Edicao:</div></td> <td bgcolor="#666666"> <div align="left"> <input type="text" name="edicao" value="10 ed." size="10"> Editora: <input type="text" name="editora" value="Saraiva" size="32" /> </div></td> </tr> <tr valign="baseline"> <td align="right" nowrap bgcolor="#EFEFEF"><div align="left">N. Biblioteca:</div></td> <td bgcolor="#666666"> <div align="left"> <input type="text" name="nbiblioteca" value="00" size="10" /> N. Solicitados: <input type="text" name="nsolicitados" value="00" size="10" /> </div></td> </tr> <tr valign="baseline"> <td align="right" nowrap bgcolor="#EFEFEF"><div align="left"></div></td> <td bgcolor="#666666">&nbsp;</td> </tr> <tr valign="baseline"> <td align="right" nowrap bgcolor="#EFEFEF"><div align="left">E-mail do Coord.: </div></td> <td bgcolor="#666666"><div align="left"> <input name="emailcoord" type="text" id="emailcoord" value="<%=(Solicitante.Fields.Item("emailcord").Value)%>" size="55" /> </div></td> </tr> <tr valign="baseline"> <td align="right" nowrap bgcolor="#EFEFEF">&nbsp;</td> <td bgcolor="#666666"><div align="left"> <input type="submit" value="Enviar"> </div></td> </tr> <tr valign="baseline"> <td align="right" nowrap bgcolor="#EFEFEF"><div align="right"></div></td> <td bgcolor="#666666"> <div align="left"> <input name="aprovado" type="hidden" id="aprovado" value="não" /> </div></td></tr> </table> <input type="hidden" name="MM_insert" value="form1"> </form><% set conexao = Server.CreateObject("ADODB.Connection") conexao.open "Driver={Microsoft Access Driver (*.mdb)};Dbq=Y:\Relacionamento 2008\Biblioteca\solicitacoes\bd\solicitacoes.mdb" vsolicitante= request.form("solicitante") vemail= request.form("email") vemailcoord= request.form("emailcoord") vtitulo= request.form("titulo") vautor= request.form("autor") vnsolicitados= request.form("nsolicitados") Set rs = conexao.execute(sql) If request.querystring("form1") = 1 then Set mail = CreateObject("CDOSYS.NewMail") mail.From = request.form("email") ' e-mail de quem esta enviando a mensagem mail.To = request.form("emailcoord") ' e-mail de quem vai receber a mensagem mail.CC = "biblioteca@cesat.br" ' Com Cópia 'mail.BodyFormat = 1 ' parametro de formatação 'mail.MailFormat = cdoMailFormatText ' parametro de formatação 'mail.AttachFile "e:\home\login\dados\arquivo.txt" 'caso queira anexar algum arquivo ao seu e-mail mail.Subject = "BIBLIOTECA - SOLICITAÇÃO DE MATERIAIS - " & request.form("solicitante") mail.Body = "Solicitante: " & request.form("solicitante") & vbCrLf & "E-mail: " & request.form("email") & vbCrLf & "Título: " & request.form("titulo") & vbCrLf & "Autor: " & request.form("autor") & vbCrLf & "Quant. Solicitadaos: " & request.form("nsolicitados") mail.Send Set mail = Nothing else end if %> </body> </html> <% Solicitante.Close() Set Solicitante = Nothing %> A idéia da página solicitacao.asp grava no banco e envia o e-mail para um coordenador de curso, que nesta página também mostra os dados dos professores: tipo nome dele, curso, disciplina, e-mail do coordenador já ficam preenchido, onde ele somente preencherá os outros campos da solicitação, porém quando é gravado, se grava tudo no banco e queria também fosse enviado o e-mail também, mas não consigo. Aparece erro abaixo: Mesmo dando este erro aparace o formulário que está gravando no banco normalmente aparecendo a página sucess_solicitacao_coordenacao.asp. Creio eu que seja as linhas do e-mail que está apresentando erro. Muito obrigado pela ajuda dos senhores..... Sds, Vagner Nunes

Prezado Rafael, Tentei, mas não consegui, mas deixa quieto. Muito Obrigado pela ajuda de todos!! Sds, Vagner Nunes

beleza! ... Estarei no aguardo.....

Mas já tá cdosys....

Ok!

Prezados, Segue a página completa: solicitacao.asp, está página recupera um solicitante, onde aparece os dados dele, daí O solicitante abre está página daí digita os dados solicitadosindex.asp, etnão abre a página do link abaixo: Página solicitacao.asp <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!--#include file="Connections/Conectar.asp" --> <% ' *** 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 & "?" & Server.HTMLEncode(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_Conectar_STRING MM_editTable = "solicitacoes" MM_editRedirectUrl = "sucess_solicitacao_coordenacao.asp" MM_fieldsStr = "solicitante|value|curso|value|disciplina|value|email|value|titulo|value|autor|value|bibliografia|value|edicao|value|editora|value|nbiblioteca|value|nsolicitados|value|emailcoord|value|aprovado|value" MM_columnsStr = "solicitante|',none,''|curso|',none,''|disciplina|',none,''|email|',none,''|titulo|',none,''|autor|',none,''|bibliografia|',none,''|edicao|',none,''|editora|',none,''|nbiblioteca|',none,''|nsolicitados|',none,''|emailcoord|',none,''|aprovado|',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 %> <% Dim Solicitante__MMColParam Solicitante__MMColParam = "1" If (Request.QueryString("identificacao") <> "") Then Solicitante__MMColParam = Request.QueryString("identificacao") End If %> <% Dim Solicitante Dim Solicitante_numRows Set Solicitante = Server.CreateObject("ADODB.Recordset") Solicitante.ActiveConnection = MM_Conectar_STRING Solicitante.Source = "SELECT * FROM solicitantes WHERE identificacao = '" + Replace(Solicitante__MMColParam, "'", "''") + "'" Solicitante.CursorType = 0 Solicitante.CursorLocation = 2 Solicitante.LockType = 1 Solicitante.Open() Solicitante_numRows = 0 %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title>Biblioteca Cesat</title> <style type="text/css"> <!-- body,td,th { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; color: #000000; } body { background-color: #F4F4F4; } a { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; color: #000000; } a:link { text-decoration: none; } a:visited { text-decoration: none; color: #999999; } a:hover { text-decoration: none; color: #666666; } a:active { text-decoration: none; color: #999999; } .style2 {font-size: 10px} .style8 {font-size: 5px} --> </style> </head> <body> <table width="760" border="0" align="center" bgcolor="#FFFFFF"> <tr> <td><table width="760" border="0"> <tr> <td colspan="4"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0" width="760" height="100"> <param name="movie" value="imagens/topo.swf" /> <param name="quality" value="high" /> <embed src="imagens/topo.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="760" height="100"></embed> </object></td> </tr> <tr> <td width="18"><img src="imagens/registration1_(edit)_16x16.gif" width="16" height="16" /></td> <td width="280">Solicita&ccedil;&otilde;es:</td> <td width="368">Seja bem vindo:<span class="style2"><%=(Solicitante.Fields.Item("solicitante").Value)%> </span></td> <td width="82">ID: <span class="style2"><%=(Solicitante.Fields.Item("ID").Value)%></span></td> </tr> <tr> <td colspan="4" bgcolor="#FFFFFF"><div align="center"> <form ACTION="<%=MM_editAction%>" METHOD="POST" name="form1"> <table width="756" align="center"> <tr valign="baseline"> <td align="right" nowrap="nowrap" bgcolor="#EFEFEF"><div align="left">Solicitante:</div></td> <td bgcolor="#666666"> <div align="left"> <input name="solicitante" type="text" value="<%=(Solicitante.Fields.Item("solicitante").Value)%>" size="75" /> </div></td> </tr> <tr valign="baseline"> <td align="right" nowrap="nowrap" bgcolor="#EFEFEF"><div align="left">Curso:</div></td> <td bgcolor="#666666"><div align="left"> <input name="curso" type="text" value="<%=(Solicitante.Fields.Item("curso").Value)%>" size="55" /> </div></td> </tr> <tr valign="baseline"> <td align="right" nowrap="nowrap" bgcolor="#EFEFEF"><div align="left">Disciplina:</div></td> <td bgcolor="#666666"><div align="left"> <input name="disciplina" type="text" value="<%=(Solicitante.Fields.Item("disciplina").Value)%>" size="65" /> </div></td> </tr> <tr valign="baseline"> <td align="right" nowrap="nowrap" bgcolor="#EFEFEF"><div align="left">Email:</div></td> <td bgcolor="#666666"> <div align="left"> <input name="email" type="text" value="<%=(Solicitante.Fields.Item("email").Value)%>" size="45" /> </div></td></tr> <tr valign="baseline"> <td align="right" nowrap bgcolor="#EFEFEF">&nbsp;</td> <td bgcolor="#666666">&nbsp;</td> </tr> <tr valign="baseline"> <td align="right" nowrap bgcolor="#EFEFEF"><div align="left"></div></td> <td bgcolor="#666666"><div align="left"></div></td> </tr> <tr valign="baseline"> <td align="right" nowrap="nowrap" bgcolor="#EFEFEF"><div align="left">Titulo:</div></td> <td bgcolor="#666666"><div align="left"> <input type="text" name="titulo" value="Descreva o t&iacute;tulo" size="75" /> </div></td> </tr> <tr valign="baseline"> <td width="104" align="right" nowrap bgcolor="#EFEFEF"><p align="left">Autor:</p></td> <td width="640" bgcolor="#666666"> <div align="left"> <input type="text" name="autor" value="Descreva o autor" size="40"> </div></td> </tr> <tr valign="baseline"> <td align="right" nowrap bgcolor="#EFEFEF"><div align="left">Bibliografia:</div></td> <td bgcolor="#666666"> <div align="left"> <label> <select name="bibliografia" id="bibliografia"> <option value="Basica">B&aacute;sica</option> <option value="Complementar">Complementar</option> </select> </label> </div></td> </tr> <tr valign="baseline"> <td align="right" nowrap bgcolor="#EFEFEF"><div align="left">Edicao:</div></td> <td bgcolor="#666666"> <div align="left"> <input type="text" name="edicao" value="10 ed." size="10"> Editora: <input type="text" name="editora" value="Saraiva" size="32" /> </div></td> </tr> <tr valign="baseline"> <td align="right" nowrap bgcolor="#EFEFEF"><div align="left">N. Biblioteca:</div></td> <td bgcolor="#666666"> <div align="left"> <input type="text" name="nbiblioteca" value="00" size="10" /> N. Solicitados: <input type="text" name="nsolicitados" value="00" size="10" /> </div></td> </tr> <tr valign="baseline"> <td align="right" nowrap bgcolor="#EFEFEF"><div align="left"></div></td> <td bgcolor="#666666">&nbsp;</td> </tr> <tr valign="baseline"> <td align="right" nowrap bgcolor="#EFEFEF"><div align="left">E-mail do Coord.: </div></td> <td bgcolor="#666666"><div align="left"> <input name="emailcoord" type="text" id="emailcoord" value="<%=(Solicitante.Fields.Item("emailcord").Value)%>" size="55" /> </div></td> </tr> <tr valign="baseline"> <td align="right" nowrap bgcolor="#EFEFEF">&nbsp;</td> <td bgcolor="#666666"><div align="left"> <input type="submit" value="Enviar"> </div></td> </tr> <tr valign="baseline"> <td align="right" nowrap bgcolor="#EFEFEF"><div align="right"></div></td> <td bgcolor="#666666"> <div align="left"> <input name="aprovado" type="hidden" id="aprovado" value="não" /> </div></td></tr> </table> <input type="hidden" name="MM_insert" value="form1"> </form> </div></td> </tr> <tr> <td colspan="4" bgcolor="#F7EF08"><div align="right"><a href="index.asp">Voltar</a></div></td> </tr> </table></td> </tr> </table> <% set conexao = Server.CreateObject("ADODB.Connection") conexao.open "Driver={Microsoft Access Driver (*.mdb)};Dbq=Y:\Relacionamento 2008\Biblioteca\solicitacoes\bd\solicitacoes.mdb" vsolicitante= request.form("solicitante") vemail= request.form("email") vemailcoord= request.form("emailcoord") vtitulo= request.form("titulo") vautor= request.form("autor") vnsolicitados= request.form("nsolicitados") Set rs = conexao.execute(sql) If request.querystring("form1") = 1 then Set mail = CreateObject("CDOSYS.NewMail") mail.From = request.form("email") ' e-mail de quem esta enviando a mensagem mail.To = request.form("emailcoord") ' e-mail de quem vai receber a mensagem mail.CC = "biblioteca@cesat.br" ' Com Cópia 'mail.BodyFormat = 1 ' parametro de formatação 'mail.MailFormat = cdoMailFormatText ' parametro de formatação 'mail.AttachFile "e:\home\login\dados\arquivo.txt" 'caso queira anexar algum arquivo ao seu e-mail mail.Subject = "BIBLIOTECA - SOLICITAÇÃO DE MATERIAIS - " & request.form("solicitante") mail.Body = "Solicitante: " & request.form("solicitante") & vbCrLf & "E-mail: " & request.form("email") & vbCrLf & "Título: " & request.form("titulo") & vbCrLf & "Autor: " & request.form("autor") & vbCrLf & "Quant. Solicitadaos: " & request.form("nsolicitados") mail.Send Set mail = Nothing else end if %> </body> </html> <% Solicitante.Close() Set Solicitante = Nothing %> Obrigado pela ajuda, Sds, Vagner Nunes

Prezados, Agora aparece o erro que o campo solicitante não pode ser de comprimento null. Mas, valeu mesmo pela ajuda!!! Sds, Vagner Nunes

Prezado, O erro continua aparecendo: Script error detected at line 360. Source line: conexao.open "Driver={Microsoft Access Driver (*.mdb)};Dbq=Y:\Relacionamento2008\Biblioteca\solicitacoes\bd\solicitacoes.mdb" Description: Objeto necessário: 'conexao' Segue abaixo código: <% conexao = Server.CreateObject("ADODB.Connection") conexao.open "Driver={Microsoft Access Driver (*.mdb)};Dbq=Y:\Relacionamento2008\Biblioteca\solicitacoes\bd\solicitacoes.mdb" vsolicitante= request.form("solicitante") vemail= request.form("email") vemailcoord= request.form("emailcoord") vtitulo= request.form("titulo") vautor= request.form("autor") vnsolicitados= request.form("nsolicitados") sql = "INSERT INTO tabela (solicitante, email, emailcord, titulo, autor, nsolicitados) values ('"&vsolicitante&"', '"&vemail&"', '"&vemailcoord&"', '"&vtitulo&"', '"&vautor&"', '"&vnsolicitados&"')" Set rs = conexao.execute(sql) If request.querystring("form1") = 1 then Set mail = CreateObject("CDOSYS.NewMail") mail.From = request.form("email") ' e-mail de quem esta enviando a mensagem mail.To = request.form("emailcoord") ' e-mail de quem vai receber a mensagem mail.CC = "biblioteca@cesat.br" ' Com Cópia 'mail.BodyFormat = 1 ' parametro de formatação 'mail.MailFormat = cdoMailFormatText ' parametro de formatação 'mail.AttachFile "e:\home\login\dados\arquivo.txt" 'caso queira anexar algum arquivo ao seu e-mail mail.Subject = "BIBLIOTECA - SOLICITAÇÃO DE MATERIAIS - " & request.form("solicitante") mail.Body = "Solicitante: " & request.form("solicitante") & vbCrLf & "E-mail: " & request.form("email") & vbCrLf & "Título: " & request.form("titulo") & vbCrLf & "Autor: " & request.form("autor") & vbCrLf & "Quant. Solicitadaos: " & request.form("nsolicitados") mail.Send Set mail = Nothing else end if %> Tentei localizar o erro, mas não obtive sucesso.

Prezados, Está correto a linha de conexão? Porque está apresentando o mesmo erro!!! <% vsolicitante= request.form("solicitante") vemail= request.form("email") vemailcoord= request.form("emailcoord") vtitulo= request.form("titulo") vautor= request.form("autor") vnsolicitados= request.form("nsolicitados") sql = "INSERT INTO tabela (solicitante, email, emailcord, titulo, autor, nsolicitados) values ('"&vsolicitante&"', '"&vemail&"', '"&vemailcoord&"', '"&vtitulo&"', '"&vautor&"', '"&vnsolicitados&"')" Set rs = conexao.execute(sql) conexao = Server.CreateObject("ADODB.Connection") conexao.open "Driver={Microsoft Access Driver (*.mdb)};Dbq=Y:\Relacionamento2008\Biblioteca\solicitacoes\bd\solicitacoes.mdb" If request.querystring("form1") = 1 then Set mail = CreateObject("CDOSYS.NewMail") mail.From = request.form("email") ' e-mail de quem esta enviando a mensagem mail.To = request.form("emailcoord") ' e-mail de quem vai receber a mensagem mail.CC = "biblioteca@cesat.br" ' Com Cópia 'mail.BodyFormat = 1 ' parametro de formatação 'mail.MailFormat = cdoMailFormatText ' parametro de formatação 'mail.AttachFile "e:\home\login\dados\arquivo.txt" 'caso queira anexar algum arquivo ao seu e-mail mail.Subject = "BIBLIOTECA - SOLICITAÇÃO DE MATERIAIS - " & request.form("solicitante") mail.Body = "Solicitante: " & request.form("solicitante") & vbCrLf & "E-mail: " & request.form("email") & vbCrLf & "Título: " & request.form("titulo") & vbCrLf & "Autor: " & request.form("autor") & vbCrLf & "Quant. Solicitadaos: " & request.form("nsolicitados") mail.Send Set mail = Nothing else end if %> Sds, Vagner Nunes

Prezados, Fiz as modificações, porem aparece o seguinte erro: Script error detected at line 368. Source line: Set rs = conexao.execute(sql) Description: Objeto necessário: 'conexao' Segue abaixo o trecho que está sendo modificado: <% vsolicitante= request.form("solicitante") vemail= request.form("email") vemailcoord= request.form("emailcoord") vtitulo= request.form("titulo") vautor= request.form("autor") vnsolicitados= request.form("nsolicitados") sql = "INSERT INTO tabela (solicitante, email, emailcord, titulo, autor, nsolicitados) values ('"&vsolicitante&"', '"&vemail&"', '"&vemailcoord&"', '"&vtitulo&"', '"&vautor&"', '"&vnsolicitados&"')" Set rs = conexao.execute(sql) If request.querystring("form1") = 1 then Set mail = CreateObject("CDOSYS.NewMail") mail.From = request.form("email") ' e-mail de quem esta enviando a mensagem mail.To = request.form("emailcoord") ' e-mail de quem vai receber a mensagem mail.CC = "biblioteca@cesat.br" ' Com Cópia 'mail.BodyFormat = 1 ' parametro de formatação 'mail.MailFormat = cdoMailFormatText ' parametro de formatação 'mail.AttachFile "e:\home\login\dados\arquivo.txt" 'caso queira anexar algum arquivo ao seu e-mail mail.Subject = "BIBLIOTECA - SOLICITAÇÃO DE MATERIAIS - " & request.form("solicitante") mail.Body = "Solicitante: " & request.form("solicitante") & vbCrLf & "E-mail: " & request.form("email") & vbCrLf & "Título: " & request.form("titulo") & vbCrLf & "Autor: " & request.form("autor") & vbCrLf & "Quant. Solicitadaos: " & request.form("nsolicitados") mail.Send Set mail = Nothing else end if %> Onde estou errando? Sds, Vagner Nunes

Prezados, a página está apresentando o seguinte erro: Microsoft VBScript compilation error '800a0401' Expected end of statement /biblioteca/solicitacoes/solicitacao.asp, line 335 sql=INSERT INTO tabela (solicitante, email, emailcord, titulo, autor, nsolicitados) values ('"&vsolicitante&"', '"&vemail&"', '"&vemailcord&"', '"&vtitulo&"', '"&vautore&"', '"&vnsolicitados&"') -----------^ Segue o código da página completo: <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!--#include file="Connections/Conectar.asp" --> <% ' *** 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 & "?" & Server.HTMLEncode(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_Conectar_STRING MM_editTable = "solicitacoes" MM_editRedirectUrl = "sucess_solicitacao_coordenacao.asp" MM_fieldsStr = "solicitante|value|curso|value|disciplina|value|email|value|titulo|value|autor|value|bibliografia|value|edicao|value|editora|value|nbiblioteca|value|nsolicitados|value|emailcoord|value|aprovado|value" MM_columnsStr = "solicitante|',none,''|curso|',none,''|disciplina|',none,''|email|',none,''|titulo|',none,''|autor|',none,''|bibliografia|',none,''|edicao|',none,''|editora|',none,''|nbiblioteca|',none,''|nsolicitados|',none,''|emailcoord|',none,''|aprovado|',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 %> <% Dim Solicitante__MMColParam Solicitante__MMColParam = "1" If (Request.QueryString("identificacao") <> "") Then Solicitante__MMColParam = Request.QueryString("identificacao") End If %> <% Dim Solicitante Dim Solicitante_numRows Set Solicitante = Server.CreateObject("ADODB.Recordset") Solicitante.ActiveConnection = MM_Conectar_STRING Solicitante.Source = "SELECT * FROM solicitantes WHERE identificacao = '" + Replace(Solicitante__MMColParam, "'", "''") + "'" Solicitante.CursorType = 0 Solicitante.CursorLocation = 2 Solicitante.LockType = 1 Solicitante.Open() Solicitante_numRows = 0 %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title>Biblioteca Cesat</title> <style type="text/css"> <!-- body,td,th { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; color: #000000; } body { background-color: #F4F4F4; } a { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; color: #000000; } a:link { text-decoration: none; } a:visited { text-decoration: none; color: #999999; } a:hover { text-decoration: none; color: #666666; } a:active { text-decoration: none; color: #999999; } .style2 {font-size: 10px} .style8 {font-size: 5px} --> </style> </head> <body> <table width="760" border="0" align="center" bgcolor="#FFFFFF"> <tr> <td><table width="760" border="0"> <tr> <td colspan="4"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0" width="760" height="100"> <param name="movie" value="imagens/topo.swf" /> <param name="quality" value="high" /> <embed src="imagens/topo.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="760" height="100"></embed> </object></td> </tr> <tr> <td width="18"><img src="imagens/registration1_(edit)_16x16.gif" width="16" height="16" /></td> <td width="280">Solicita&ccedil;&otilde;es:</td> <td width="368">Seja bem vindo:<span class="style2"><%=(Solicitante.Fields.Item("solicitante").Value)%> </span></td> <td width="82">ID: <span class="style2"><%=(Solicitante.Fields.Item("ID").Value)%></span></td> </tr> <tr> <td colspan="4" bgcolor="#FFFFFF"><div align="center"> <form ACTION="<%=MM_editAction%>" METHOD="POST" name="form1"> <table width="756" align="center"> <tr valign="baseline"> <td align="right" nowrap="nowrap" bgcolor="#EFEFEF"><div align="left">Solicitante:</div></td> <td bgcolor="#666666"> <div align="left"> <input name="solicitante" type="text" value="<%=(Solicitante.Fields.Item("solicitante").Value)%>" size="75" /> </div></td> </tr> <tr valign="baseline"> <td align="right" nowrap="nowrap" bgcolor="#EFEFEF"><div align="left">Curso:</div></td> <td bgcolor="#666666"><div align="left"> <input name="curso" type="text" value="<%=(Solicitante.Fields.Item("curso").Value)%>" size="55" /> </div></td> </tr> <tr valign="baseline"> <td align="right" nowrap="nowrap" bgcolor="#EFEFEF"><div align="left">Disciplina:</div></td> <td bgcolor="#666666"><div align="left"> <input name="disciplina" type="text" value="<%=(Solicitante.Fields.Item("disciplina").Value)%>" size="65" /> </div></td> </tr> <tr valign="baseline"> <td align="right" nowrap="nowrap" bgcolor="#EFEFEF"><div align="left">Email:</div></td> <td bgcolor="#666666"> <div align="left"> <input name="email" type="text" value="<%=(Solicitante.Fields.Item("email").Value)%>" size="45" /> </div></td></tr> <tr valign="baseline"> <td align="right" nowrap bgcolor="#EFEFEF">&nbsp;</td> <td bgcolor="#666666">&nbsp;</td> </tr> <tr valign="baseline"> <td align="right" nowrap bgcolor="#EFEFEF"><div align="left"></div></td> <td bgcolor="#666666"><div align="left"></div></td> </tr> <tr valign="baseline"> <td align="right" nowrap="nowrap" bgcolor="#EFEFEF"><div align="left">Titulo:</div></td> <td bgcolor="#666666"><div align="left"> <input type="text" name="titulo" value="" size="75" /> </div></td> </tr> <tr valign="baseline"> <td width="104" align="right" nowrap bgcolor="#EFEFEF"><p align="left">Autor:</p></td> <td width="640" bgcolor="#666666"> <div align="left"> <input type="text" name="autor" value="" size="40"> </div></td> </tr> <tr valign="baseline"> <td align="right" nowrap bgcolor="#EFEFEF"><div align="left">Bibliografia:</div></td> <td bgcolor="#666666"> <div align="left"> <label> <select name="bibliografia" id="bibliografia"> <option value="Basica">B&aacute;sica</option> <option value="Complementar">Complementar</option> </select> </label> </div></td> </tr> <tr valign="baseline"> <td align="right" nowrap bgcolor="#EFEFEF"><div align="left">Edicao:</div></td> <td bgcolor="#666666"> <div align="left"> <input type="text" name="edicao" value="" size="10"> Editora: <input type="text" name="editora" value="" size="32" /> </div></td> </tr> <tr valign="baseline"> <td align="right" nowrap bgcolor="#EFEFEF"><div align="left">N. Biblioteca:</div></td> <td bgcolor="#666666"> <div align="left"> <input type="text" name="nbiblioteca" value="" size="10" /> N. Solicitados: <input type="text" name="nsolicitados" value="" size="10" /> </div></td> </tr> <tr valign="baseline"> <td align="right" nowrap bgcolor="#EFEFEF"><div align="left"></div></td> <td bgcolor="#666666">&nbsp;</td> </tr> <tr valign="baseline"> <td align="right" nowrap bgcolor="#EFEFEF"><div align="left">E-mail do Coord.: </div></td> <td bgcolor="#666666"><div align="left"> <input name="emailcoord" type="text" id="emailcoord" value="<%=(Solicitante.Fields.Item("emailcord").Value)%>" size="55" /> </div></td> </tr> <tr valign="baseline"> <td align="right" nowrap bgcolor="#EFEFEF">&nbsp;</td> <td bgcolor="#666666"><div align="left"> <input type="submit" value="Enviar"> </div></td> </tr> <tr valign="baseline"> <td align="right" nowrap bgcolor="#EFEFEF"><div align="right"></div></td> <td bgcolor="#666666"> <div align="left"> <input name="aprovado" type="hidden" id="aprovado" value="não" /> </div></td></tr> </table> <input type="hidden" name="MM_insert" value="form1"> </form> </div></td> </tr> <tr> <td colspan="4" bgcolor="#F7EF08"><div align="right"><a href="index.asp">Voltar</a></div></td> </tr> </table></td> </tr> </table> <% vsolicitante= request.form("solicitante") vemail= request.form("email") vemailcoord= request.form("emailcoord") vtitulo= request.form("titulo") vautor= request.form("autor") vnsolicitados= request.form("nsolicitados") sql=INSERT INTO tabela (solicitante, email, emailcord, titulo, autor, nsolicitados) values ('"&vsolicitante&"', '"&vemail&"', '"&vemailcord&"', '"&vtitulo&"', '"&vautore&"', '"&vnsolicitados&"') Set rs = conexao.execute(sql) If request.querystring("form1") = 1 then Set mail = CreateObject("CDOSYS.NewMail") mail.From = request.form("email") ' e-mail de quem esta enviando a mensagem mail.To = request.form("emailcoord") ' e-mail de quem vai receber a mensagem mail.CC = "biblioteca@cesat.br" ' Com Cópia 'mail.BodyFormat = 1 ' parametro de formatação 'mail.MailFormat = cdoMailFormatText ' parametro de formatação 'mail.AttachFile "e:\home\login\dados\arquivo.txt" 'caso queira anexar algum arquivo ao seu e-mail mail.Subject = "BIBLIOTECA - SOLICITAÇÃO DE MATERIAIS - " & request.form("solicitante") mail.Body = "Solicitante: " & request.form("solicitante") & vbCrLf & "E-mail: " & request.form("email") & vbCrLf & "Título: " & request.form("titulo") & vbCrLf & "Autor: " & request.form("autor") & vbCrLf & "Quant. Solicitadaos: " & request.form("nsolicitados") mail.Send Set mail = Nothing else end if %> </body> </html> <% Solicitante.Close() Set Solicitante = Nothing %>

Prezados, Alguém poderia me ajudar, o código abaixo sozinho em meu servidor funciona perfeitamente: <% If request.querystring("op") = 1 then Set mail = CreateObject("CDONTS.NewMail") mail.From = request.form("email") ' e-mail de quem esta enviando a mensagem mail.To = "biblioteca@cesat.br" ' e-mail de quem vai receber a mensagem mail.CC = "ogoulart@cesat.br" ' Com Cópia 'mail.BodyFormat = 1 ' parametro de formatação 'mail.MailFormat = cdoMailFormatText ' parametro de formatação 'mail.AttachFile "e:\home\login\dados\arquivo.txt" 'caso queira anexar algum arquivo ao seu e-mail mail.Subject = "CONTATOS[SITE] - " & request.form("assunto") mail.Body = "Nome: " & request.form("nome") & vbCrLf & "E-mail: " & request.form("email") & vbCrLf & "Assunto: " & request.form("assunto") & vbCrLf & "Mensagem: " & request.form("mens") mail.Send Set mail = Nothing else end if %> Porém tentei jogar este código na página de cadastro, porém o envio para o banco é feito, mas o e-mail não chega. Obrigado.. Sds, Vagner Nunes

Pesquisei no Google e testei alguns códigos, mas sem sucesso. Eu tenho um formulário que envia e-mail e tenho formulários de cadastro em banco, mas quando junto os dois não funciona de jeito nenhum. Valeu..... Sds, Vagner Nunes

Prezados, Boa tarde, preciso da ajuda dos senhores mais uma vez. Tenho um formulário de cadastro que grava em um banco access, até aí tudo bem, porém meu superior me solicitou que além de gravar no banco, ele quer que este mesmo formulário, além de gravar no banco, envie um e-mail para um e-mail cadastrado no campo de e-mail cadastradol formulário - gravar no banco - enviar e-mail. Como posso fazer isso, não tenho nem idéia de como começar, alias tive, porém grava no banco grava direito, mas o e-mail que é bom mesmo não aparece. Seria muito grato se alguém pode me ajudar nesta missão. Sds, Vagner Nunes

Prezados, Boa noite. Preciso novamente da ajuda dos senhores. Tenho uma página onde mostra uma imagem gravada no banco, porem as vezes é feito um cadastro sem foto, daí fica um X no lugar da imagem, tipo que a imagem foi excluída. Gostaria que esse x não aparecesse se não cadastrar a foto. Segue linha abaixo: <img src="uploads/<%=(Doces.Fields.Item("foto1").Value)%>" width="171" height="109" /> Resumindo: preciso que não apareça nada onde fica este campo imagem se não for cadastrado foto. Seria muito grato se os senhores poder me ajudar Sds, Vagner Nunes

Prezados, Alguém poderiam me indicar umas apostilas de Dreamweaver CS3 avançado, uma que aborde o trabalho com ASP ou PHP. Comprei uns livros, mas não gostei muito, porque a maioria dos temas já sei fazer, queria uma apostila boa, dei uma olhada no Apostilando, lá tem uma apostila excelente, mas é de demonstração, para ter acesso a todo conteúdo tem que comprar o CD 4 me parece. Sds, Vagner Nunes

Prezado Rafael, Já dei uma limpeza em meu formulário e tá cadastrando, preciso de ajuda somente no Upload, e como fazer.... Trabalho na manutenção de dois site, e os dois usa componentes diferentes, que seria, o Dundas Upload e o ou é o Persits (eu acho que escreve assim). Obrigado pela ajuda..... Sds, Vagner Nunes

Prezados, Peço ajuda dos senhores novamente, estou a dias tentando fazer um upload pelo meu formulário, mas não estou conseguindo. Alguém poderia me ajudar? Tenho um formulário onde tenho campos nome, email, telefone, foto1 e foto2. Gostaria que os campos foto1 e foto2 além de grava-los no banco a fazer upload ao mesmo tempo, mas não sei fazer este procedimento de gravar no banco e fazer upload. Seria muito grato se alguém poder me ajudar. Abaixo está o código do arquivo que faz Upload onde hospedo site. <% Set Upload = Server.CreateObject("Persits.Upload.1") Upload.OverwriteFiles = False On Error Resume Next Upload.SetMaxSize 1048576 ' Limit files to 1MB Count = Upload.Save("E:\domains\j\jacaraipeonline.com\user\htdocs\qdelicia\uploads\") %> <html> <body BGCOLOR="#FFFFFF"> <center> <% If Err <> 0 Then %> <font SIZE=3 FACE="Arial" COLOR=#0020A0> <h3>Ocorreu um erro ao fazer o Upload:</h3> </font> <font SIZE=3 FACE="Arial" COLOR=#FF2020> <h2>"<% = Err.Description %>"</h2> </font> <font SIZE=2 FACE="Arial" COLOR="#0020A0"> Please <a HREF="doces_teste.asp">try again</a>. </font> <% Else %> <font SIZE=3 FACE="Arial" COLOR=#0020A0> <h2>Sucesso! <% = Count %> file(s) Arquivo carregado.</h2> </font> <font SIZE=3 FACE="Arial" COLOR=#0020A0> <table BORDER=1 CELLPADDING=3 CELLSPACING=0> <th BGCOLOR="#FFFF00">Uploaded File</th><th BGCOLOR="#FFFF00">Size</th><th BGCOLOR="#FFFF00">Original Size</th><tr> <% For Each File in Upload.Files %> <% If File.ImageType = "GIF" or File.ImageType = "JPG" or File.ImageType = "PNG" Then %> <td ALIGN=CENTER> <img SRC="/upload/<% = File.FileName%>"><br><b><% = File.OriginalPath%></b><br> (<% = File.ImageWidth %> x <% = File.ImageHeight %> pixels) </td> <% Else %> <td><b><% = File.OriginalPath %></b></td> <% End If %> <td ALIGN=RIGHT VALIGN="TOP"><% =File.Size %> bytes</td> <td ALIGN=RIGHT VALIGN="TOP"><% =File.OriginalSize %> bytes</td><tr> <% Next %> </table> </font> <p> <font SIZE=2 FACE="Arial" COLOR=#0020A0> Click <a HREF="doces.asp">here</a> to upload more files.</font> <% End If %> <hr> <font SIZE=2 FACE="Arial" COLOR=#0020A0> <a HREF="http://www.persits.com/aspupload.exe">Download</a> your trial copy of AspUpload. </font>

Pure ASP Upload

Prezados, Nos sites que faço sempre utilizado um formulário para enviar dados ao banco e outro formulário para gravar as imagens fazendo upload. Os senhores poderiam me ajudar, queria inserir o dados e o upload em um formulário só. Abaixo um formulário que geralmente uso. Obrigado pela ajuda Sds, <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!--#include file="Connections/Conn.asp" --> <% ' *** 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 & "?" & Server.HTMLEncode(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_Conn_STRING MM_editTable = "chamada" MM_editRedirectUrl = "Relacionamento 2008/processo/sucess.asp" MM_fieldsStr = "curso1|value|curso2|value|data|value|email|value|fonte|value|hora|value|idade|value|informacao|value|motivo|value|municipio|value|nome|value|provedor|value|qual|value|telefone|value" MM_columnsStr = "curso1|',none,''|curso2|',none,''|data|',none,NULL|email|',none,''|fonte|',none,''|hora|',none,NULL|idade|',none,''|informacao|',none,''|motivo|',none,''|municipio|',none,''|nome|',none,''|provedor|',none,''|qual|',none,''|telefone|',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 %> <% Dim Gravar Dim Gravar_numRows Set Gravar = Server.CreateObject("ADODB.Recordset") Gravar.ActiveConnection = MM_Conn_STRING Gravar.Source = "SELECT * FROM chamada" Gravar.CursorType = 0 Gravar.CursorLocation = 2 Gravar.LockType = 1 Gravar.Open() Gravar_numRows = 0 %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title>Untitled Document</title> </head> <body> <form action="<%=MM_editAction%>" method="POST" enctype="multipart/form-data" name="form1"> <table align="center"> <tr valign="baseline"> <td nowrap align="right"><div align="left">Curso1:</div></td> <td><div align="left"> <input type="text" name="curso1" value="" size="32"> </div></td> </tr> <tr valign="baseline"> <td nowrap align="right"><div align="left">Curso2:</div></td> <td><div align="left"> <input type="text" name="curso2" value="" size="32"> </div></td> </tr> <tr valign="baseline"> <td nowrap align="right"><div align="left">Data:</div></td> <td><div align="left"> <input type="text" name="data" value="" size="32"> </div></td> </tr> <tr valign="baseline"> <td nowrap align="right"><div align="left">Email:</div></td> <td><div align="left"> <input type="text" name="email" value="" size="32"> </div></td> </tr> <tr valign="baseline"> <td nowrap align="right"><div align="left">Fonte:</div></td> <td><div align="left"> <input type="text" name="fonte" value="" size="32"> </div></td> </tr> <tr valign="baseline"> <td nowrap align="right"><div align="left">Hora:</div></td> <td><div align="left"> <input type="text" name="hora" value="" size="32"> </div></td> </tr> <tr valign="baseline"> <td nowrap align="right"><div align="left">Idade:</div></td> <td><div align="left"> <input type="text" name="idade" value="" size="32"> </div></td> </tr> <tr valign="baseline"> <td nowrap align="right"><div align="left">Informacao:</div></td> <td><div align="left"> <input type="text" name="informacao" value="" size="32"> </div></td> </tr> <tr valign="baseline"> <td nowrap align="right"><div align="left">Motivo:</div></td> <td><div align="left"> <input type="text" name="motivo" value="" size="32"> </div></td> </tr> <tr valign="baseline"> <td nowrap align="right"><div align="left">Municipio:</div></td> <td><div align="left"> <input type="text" name="municipio" value="" size="32"> </div></td> </tr> <tr valign="baseline"> <td nowrap align="right"><div align="left">Nome:</div></td> <td><div align="left"> <input type="text" name="nome" value="" size="32"> </div></td> </tr> <tr valign="baseline"> <td nowrap align="right"><div align="left">Provedor:</div></td> <td><div align="left"> <input type="text" name="provedor" value="" size="32"> </div></td> </tr> <tr valign="baseline"> <td nowrap align="right"><div align="left">Qual:</div></td> <td><div align="left"> <input type="text" name="qual" value="" size="32"> </div></td> </tr> <tr valign="baseline"> <td nowrap align="right"><div align="left">Telefone:</div></td> <td><div align="left"> <input type="text" name="telefone" value="" size="32"> </div></td> </tr> <tr valign="baseline"> <td nowrap align="right"><div align="left">Foto1</div></td> <td><div align="left"> <label> <input name="foto1" type="file" id="foto1" /> </label> </div></td> </tr> <tr valign="baseline"> <td nowrap align="right"><div align="left">Foto2</div></td> <td><div align="left"> <input name="foto2" type="file" id="foto2" /> </div></td> </tr> <tr valign="baseline"> <td nowrap align="right">&nbsp;</td> <td><input type="submit" value="Cadastrar"> </td> </tr> </table> <input type="hidden" name="MM_insert" value="form1"> </form> <p>&nbsp;</p> </body> </html> <% Gravar.Close() Set Gravar = Nothing %>

Tenho um formulário, onde é feito um cadastro, porém quando vou inserir este formulário não aceita acentos, ele grava no banco uns caracteres estranhos. Porém quando vou fazer uma atualização do conteúdo em outro formulário, ele atualiza certinho com todos os acentos, mais estranho nisso é que já criei um site com os mesmos procedimentos e saiu perfeito, agora que apareceu este problema.

Prezados, Estou com um problema, tenho um formulário onde faço um cadastro, porém o mesmo não está aceitando acentuação. Recentemente estou utilizando o Dreamweaver CS3. E verifiquei no banco que está gravando sem acentuação, daí se eu for atualizar o conteúdo cadastrado daí aceita a acentuação. Alguém poderiam me judar? Sds,

Valeu pela ajuda Rafael...

Prezado Rafael, Agora apresentou o erro Script error detected at line 64. Source line: wend Description: Instrução esperada Fiz uns testes aqui também e verifiquei que quando insiro esta sequencia de código é que apresenta o erro: <% 'Dim myMail, fields, f1, f2, f3, f4, f5, resposta, mensagem Dim myMail, resposta, mensagem 'f1 = "NOME:" & Request.Form("nome") & vbcrlf 'f2 = "EMAIL: " & Request.Form("email") & vbcrlf 'f3 = "ASSUNTO: " & Request.Form("assunto") & vbcrlf 'f4 = "SETOR: " & Request.Form("setor") & vbcrlf 'f5 = "MENSAGEM: " & Request.Form("mensagem") & vbcrlf 'fields = f1 & f3 & f4 & f5 'if request.form("cmdRemover") = "x" then Set myMail = CreateObject("CDONTS.NewMail") myMail.From = "coloque aqui seu e-mail" myMail.To = objRS("email") & objRS("provedor") myMail.subject = "teste" myMail.MailFormat = 1 myMail.Body = "teste" myMail.Send Set myMail = Nothing 'Para o cliente 'Set myMail = CreateObject("CDONTS.NewMail") 'myMail.From = Request.Form("email") 'myMail.To = Request.Form("email") 'myMail.subject = "Contato" 'myMail.MailFormat = 1 'resposta = "Não deixe de responder o e-mail." & vbcrlf 'resposta = resposta + fields & vbcrlf 'resposta = resposta + "" & vbcrlf 'resposta = resposta + "" & vbcrlf 'resposta = resposta + "-----------------------------------------------------------------" & vbcrlf 'resposta = resposta + "Nome da Instituição" & vbcrlf 'resposta = resposta + "Endereço e número" & vbcrlf 'resposta = resposta + "Bairro" & vbcrlf 'resposta = resposta + "Municipio-ES" & vbcrlf 'resposta = resposta + "Telefone" & vbcrlf 'resposta = resposta + "Site " & vbcrlf 'resposta = resposta + "------------------------------------------------------------------" & vbcrlf 'myMail.Body = "teste resposta sem html" 'myMail.Send 'Set myMail = Nothing %>