Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Pessoal, ja revirei os tópicos mas naum achei nada q realmente me ajudasse a resolver, bom, eu quero mesclar 2 codigos o ASPUPLOAD para enviar uma foto num determinado diretorio, e INSERIR O NOME DA FOTO (alem de mais uns campos) que será enviada num banco de dados em ACCESS:
O FORMULÁRIO::
>
<FORM METHOD="POST" ENCTYPE="multipart/form-data"
ACTION="AA2.asp">
ENVIAR FOTO:
<input type=file size=60 name="file">
TÍTULO:
<input name="titulo" type="text" id="titulo">
CONTEÚDO:
<input name="conteudo" type="text" id="conteudo">
<input type="submit" name="ENVIAR" value="Submit">
</FORM>
ja testei o codigo abaixo que faz somente o upload da foto (pego no site da aspupload):
>
<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Count = Upload.Save("DBQ=D:\Inetpub\teste")
%>
<% = Count %> files uploaded.
AGORA, COMO FAZER PRA MESCLAR COM MAIS ESSE CODIGO ABAIXO q insere tambem os dados num banco de dados em access ?.Reparem crirei dentro da tabela a "url_imagem" , que e para colocar o nome do foto no access, (a mesma q sera enviada no diretorio com o aspupload)
>
<%
Option Explicit
Response.Expires = 0
%>
<%
Dim objConn, objRs, strQuery, strConnection, titulo, conteudo, url_foto
titulo = Request.Form("titulo")
conteudo = Request.Form("conteudo")
url_foto = Request.Form("url_foto")
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DBQ=D:\Inetpub\Db1.mdb" & ";Driver={Microsoft Access Driver (*.mdb)}"
strQuery = "INSERT INTO noticias (titulo,conteudo,url_foto) VALUES ('"&titulo&"','"&conteudo&"','"&url_foto&"')"
On error Resume Next
Set ObjRs = objConn.Execute(strQuery)
objConn.close
Set objRs = Nothing
Set objConn = Nothing
if err = 0 Then
response.redirect "ok.htm"
end if
%>
ME ACODE GENTEMMMM :wacko: ??????
Carregando comentários...