nao estou consigindo jogar os valores do select para seus respectivos campo
codigo = Request.QueryString("cod")
if codigo <>"" then
sql = "SELECT [codigo_despesas],[TipoDespesa],[Cliente],[Projeto],[Unidade],[valor_maximo],[reembolso]"
sql= sql & "FROM [NotaDebito].[dbo].[Regra_Despesa] where codigo_despesas =" & codigo
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql, Conexao
if not rs.eof then
while not rs.eof
if not isnull(rs("TipoDespesa")) then
%><script> document.form1.getElementById('TipoDespesa').value='<%rs("TipoDespesa")%>'</script>
end if
if not isnull(rs("Cliente")) then
%><script> document.getElementById('Cliente').value='<%rs("Cliente")%>'</script>
end if
if not isnull(rs("Projeto")) then
%><script> document.getElementById('Projeto').value='<%rs("Projeto")%>' </script>
end if
if not isnull(rs("Unidade")) then
%><script>document.getElementById('Unidade').value='<%rs("Unidade")%>' </script>
end if
if not isnull(rs("valor_maximo")) then
%><script> document.getElementById('valor_maximo').value='<%rs("valor_maximo")%>'</script>
end if
if not isnull(rs("reembolso")) then
%><script> document.getElementById('reembolso').value='<%rs("reembolso")%>' </script><%
end if
rs.movenext
wend
end if
