Mesclar codigo p/ upload de foto + dados no access

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: ??????