Publicado em 4 de set.

Envio de imagem para BD, para aparecer no site depois!

Olá pessoal! Mais uma vez estou aqui, pedindo um super help pra vcs!

Eu tenho um sistema de notícias que to adaptando para colocar artigos numa página de internet. Essa pagina de artigo tem Título, subtítulo, Autor, Imagem, Texto e status de ativo e inativo.

O sistema original não tem opção de inserir foto e tentei inserir com aquele objeto "file field" do dreamweaver, pra inserir no campo "figura" o caminho que o objeto file vai mostrar. Não sei se é assim q funciona, se alguem souber como, da um toque tah!!

Então... meu arquivo cadastro.asp está ligado ao bdcomdeus.mdb atravez do arquivo conn.asp. O arquivo cadastro.asp está na pasta "artigos", o arquivo conn.asp está na pasta "Connections" e o BD está na pasta "dados". Todas elas estão num diretório do site, que seria minha raiz, "comdeus2007". O arquivo conn.asp está assim:

' FileName="Connection_ado_conn_string.htm"

' Type="ADO"

' DesigntimeType="ADO"

' HTTP="false"

' Catalog=""

' Schema=""

Dim MM_conn_STRING

MM_conn_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\comdeus2007\dados\bdcomdeus.mdb"

Quando eu faço o teste com o arquivo cadastro.asp, ao efetuar um cadastro, ele deveria ir pro arquivo lista.asp (que tb está na pasta artigos). Porém, quando eu digito os dados e clico em GRAVAR, os dados somem e permanece no arquivo cadastro.asp e ainda por cima, não grava no meu BD. Segue o arquivo cadastro.asp:

CODE
<%@LANGUAGE="VBSCRIPT"%>

' *** 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 = "artigos"

MM_editRedirectUrl = "lista_artigos.asp"

lue"

' 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)))

' 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

' *** 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

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

 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

<!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">](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>

<p>Cadastro de Artigos</p>

<form action="<%=MM_editAction%>" method="POST" enctype="multipart/form-data" name="form1" id="form1">

 <table width="644" border="0" cellspacing="3" cellpadding="0">

 <tr>

 <td width="92">Título</td>

 <td width="543"><label>

 <input name="titulo" type="text" id="titulo" />

 </label></td>

 </tr>

 <tr>

 <td>Subtítulo</td>

 <td><label>

 <input name="subtitulo" type="text" id="subtitulo" />

 </label></td>

 </tr>

 <tr>

 <td>Imagem</td>

 <td><label>

 <input name="figura" type="file" id="figura" />

 </label></td>

 </tr>

 <tr>

 <td>Texto</td>

 <td><label>

 <textarea name="texto" cols="100" rows="15" id="texto"></textarea>

 </label></td>

 </tr>

 <tr>

 <td>Autor</td>

 <td><label>

 <input name="autor" type="text" id="autor" />

 </label></td>

 </tr>

 <tr>

 <td>Status</td>

 <td><p>

 <label>

 <input type="radio" name="status" value="A" />

 Ativo</label>

 <br />

 <label>

 <input type="radio" name="status" value="I" />

 Inativo</label>

 <br />

 </p></td>

 </tr>

 <tr>

 <td colspan="2"><label>

 <input type="submit" name="Submit" value="Gravar" />

 </label></td>

 </tr>

 </table>

 

 <input type="hidden" name="MM_insert" value="form1">

</form>

</body>

</html>

E o arquivo lista.asp:

CODE
<%@LANGUAGE="VBSCRIPT"%>

Dim RSart

Dim RSart_numRows

Set RSart = Server.CreateObject("ADODB.Recordset")

RSart.ActiveConnection = MM_conn_STRING

RSart.Source = "SELECT ID, status, titulo FROM artigos ORDER BY status ASC"

RSart.CursorType = 0

RSart.CursorLocation = 2

RSart.LockType = 1

RSart.Open()

RSart_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">](http://www.w3.org/1999/xhtml)

<head>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />

<title>Untitled Document</title>

<style type="text/css">

<!--

.style2 {font-family: Arial, Helvetica, sans-serif; font-weight: bold; font-size: 12px; }

-->

</style>

</head>

 

<body>

<table width="643" border="0" cellspacing="0" cellpadding="0">

 <tr>

 <td width="77"><div align="center" class="style2">ID</div></td>

 <td width="399"><div align="center" class="style2">Título</div></td>

 <td width="88"><div align="center" class="style2">Status</div></td>

 <td colspan="2"><div align="center" class="style2">Ação</div></td>

 </tr>

 <tr>

 <td><%=(RSart.Fields.Item("ID").Value)%></td>

 <td><%=(RSart.Fields.Item("titulo").Value)%></td>

 <td><%=(RSart.Fields.Item("status").Value)%></td>

 <td width="41"><div align="center"><img src="../Connections/imagens/bull1340.gif" width="24" height="24" /></div></td>

 <td width="38"><div align="center"><img src="../Connections/imagens/excluir.gif" width="20" height="20" /></div></td>

 </tr>

</table>

</body>

</html>

RSart.Close()

Set RSart = Nothing

Onde está o erro? Já fiz esse sistema mais vezes, do msm jeitinho e nunca deu problema... tem algo q deixei passar desabercebido? :blink:

Não to entendendo mais nada... :wacko:

Vcs podem me ajudar? Desde já, mto obrigada!

Discussão (1)

Entre ou cadastre-se para participar da discussão

Entrar Criar conta

Carregando comentários...