Unir Formulários...

[X.bArArA.X]

é o seguinte, não tenho habilidades com asp. Fiz meu sisteminha de notihcias. Upload eu não sei fazer. DAe eu peguei alguns prontos. O uhnico q funcou no meu server, foi esse:

<%@ Language=VBScript %>
<%
    Dim Contador, Tamanho
    Dim ConteudoBinario, ConteudoTexto
    Dim Delimitador, Posicao1, Posicao2
    Dim ArquivoNome, ArquivoConteudo, PastaDestino
    Dim objFSO, objArquivo 
                   
    PastaDestino = "C:\"
            
    '***** Determina o Tamanho do Conteúdo *****
    Tamanho = Request.TotalBytes
    '***** Obtém o Conteúdo no Formato Binário *****
    ConteudoBinario = Request.BinaryRead(Tamanho)

    '***** Transforma o Conteúdo Binário em String *****
    For Contador = 1 To Tamanho
  ConteudoTexto = ConteudoTexto & Chr(AscB(MidB(ConteudoBinario, Contador, 1)))
    Next
    '***** Determina o Delimitador de Campos *****
    Delimitador = Left(ConteudoTexto,InStr(ConteudoTexto, vbCrLf)-1)

    '***** Percore a String Procurando os Campos   *****
    '***** Identifica os Arquivos e Grava no Disco *****
    Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
     
    Posicao1 = InStr(ConteudoTexto, Delimitador) + Len(Delimitador)
    Do While True
  ArquivoNome = ""
  Posicao1 = InStr(Posicao1, ConteudoTexto, "filename=")
  If Posicao1 = 0 Then
  	Exit Do
  Else
  	'***** Determina o Nome do Arquivo *****
  	Posicao1 = Posicao1 + 10
  	Posicao2 = InStr(Posicao1, ConteudoTexto, """")
  	For Contador = Posicao2-1 To Posicao1 Step -1
    If Mid(ConteudoTexto, Contador, 1) <> "\" Then
    	ArquivoNome = Mid(ConteudoTexto, Contador, 1) & ArquivoNome
    Else
    	Exit For
    End If
  	Next
  	
  	'***** Determina o Conteúdo do Arquivo *****
  	Posicao1 = InStr(Posicao1, ConteudoTexto, vbCrLf & vbCrLf) + 4
  	Posicao2 = InStr(Posicao1, ConteudoTexto, Delimitador) - 2
  	ArquivoConteudo = Mid(ConteudoTexto, Posicao1, Posicao2-Posicao1+1)
  
  	'***** Grava o Arquivo *****
  	If ArquivoNome <> "" Then
    Set objArquivo = objFSO.CreateTextFile(PastaDestino & ArquivoNome, True) 
    objArquivo.WriteLine ArquivoConteudo     
    objArquivo.Close 
    Response.Write "Arquvo " & PastaDestino & ArquivoNome & " gravado com sucesso!!!<BR>"
    Set objArquivo = Nothing
  	End If
  End If
    Loop
    Set objFSO = Nothing 
%>

Com esse form:

<FORM method="post" action="upload.asp" enctype="multipart/form-data">

	Arquivo 1:
	<INPUT type="file" name="txtArquivo1"><BR>

	<INPUT type="submit" value="Enviar" name="cmdEnviar">
</FORM>

o que eu qro, é juntar isso aez com o meu sistema de notihcias, um form simples com isso aki:

<%
data = request.form("data")
por = request.form("por")
url = request.form("url")
titulo = request.form("titulo")
chamada = request.form("chamada")
noticia = request.form("noticia")
fonte = request.form("fonte")

Set DB = Server.CreateObject("ADODB.Connection")
DB.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../dados/news.mdb"))

Executar = "INSERT INTO noticias (data,por,url,titulo,chamada,noticia,fonte) " & _
          "VALUES ('"& data &"','" & por & "','" & url & "','" & titulo & "','" & chamada & "','" & noticia & "','" & fonte & "')"

DB.Execute(Executar)
Response.Redirect"admin.asp"
%>

Basicamente seria unir os dois para utilizar somente um botão para enviar.

Obrigado!

[dark0]

você quer colocar o seu codigo no meio do outro?

porque você não deixa seu codigo aí nessa pagina..e depois coloca uma linha de INCLUDE, e inclui o seu assim no codigo de upload..?

não serve?

t+

[X.bArArA.X]

não entendi beim, Dark... é o seguinte, o jeito q eu fiz, tah funfando, mas não é como eu qro. No meu caso, teim dois forms, um para enviar o arquivo e outro para enviar a notihcia, cada um com o seu respectivo botao. Eu queria unir, manja... Uma page só de verificação para tudo, não duas, entende...

C você tiveh outra maneira, um cohdigo de up sem assistente q eu possa colocar ali no meu form para processar o arquivo enviado e o form, salvando a url no bd tb, eu agradeço.