Como Pegar O Nome Dos Campos Para Fazer Upload

[ADL]

Olá pessoal estou upload, mas não estou conseguindo pegar os nomes dos campo para inserir no banco de dados. algúem pode me ajudar por favor.

call abreconexao
dim conexaoDataBase,ConnString,objUpload,objNextFile,caminho,codigo_contrato,nome_ar
uivo,sql_insere,tab_insere
Set objUpload = server.CreateObject("Dundas.Upload.2")
objUpload.MaxFileSize = 1048576
objUpload.UseUniqueNames = false
Set objNextFile = objUpload.GetNextFile()
caminho = "C:\Inetpub\wwwroot\contratos\Arquivos"
nome_arquivo = objUpload.form("nome")
codigo_contrato = objUpload.form("numero")
response.write(codigo_contrato)
response.end

If objUpload.FileExists(caminho & "\" & objNextFile.FileName) Then
%>
<script language="javascript">
window.alert('Este arquivo já existe!');
window.close();
//window.location.href="../default.asp"; 
</script>

<%
Else
objNextFile.Save caminho

sql_insere = "INSERT INTO nomearquivo (nome_arquivo, caminho_arquivo, codigo_contrato) VALUES ('"& nome_arquivo &"','"& objNextFile.FileName &"' , '"&codigo_contrato&"')"
set tab_insere = conexaoDataBase.execute(sql_insere)
%>
<script language="javascript">
window.alert('Arquivo salvo com sucesso');
window.location.href="../cartoes_virtuais.asp"; 
</script>
<%

End If

Set objUpload = Nothing

[Guest Marcio Alves Vieira]

Utilize sempre : <% Option Explicit %> em ao declarar variáveis.

Verifique a variável que está em vermelho

call abreconexao

dim conexaoDataBase,ConnString,objUpload,objNextFile,caminho,codigo_contrato,nome_ar

uivo,sql_insere,tab_insere

Set objUpload = server.CreateObject("Dundas.Upload.2")

objUpload.MaxFileSize = 1048576

objUpload.UseUniqueNames = false

Set objNextFile = objUpload.GetNextFile()

caminho = "C:\Inetpub\wwwroot\contratos\Arquivos"

nome_arquivo = objUpload.form("nome")

codigo_contrato = objUpload.form("numero")

response.write(codigo_contrato)

response.end

If objUpload.FileExists(caminho & "\" & objNextFile.FileName) Then

%>

<script language="javascript">

window.alert('Este arquivo já existe!');

window.close();

//window.location.href="../default.asp";

</script>

<%

Else

objNextFile.Save caminho

sql_insere = "INSERT INTO nomearquivo (nome_arquivo, caminho_arquivo, codigo_contrato) VALUES ('"& nome_arquivo &"','"& objNextFile.FileName &"' , '"&codigo_contrato&"')"

set tab_insere = conexaoDataBase.execute(sql_insere)

%>

<script language="javascript">

window.alert('Arquivo salvo com sucesso');

window.location.href="../cartoes_virtuais.asp";

</script>

<%

End If

Set objUpload = Nothing